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MAIN  program 

storage  used:  cooeiii  oooiras  dataio)  oc303t>;  «l*nk  commonizi  csoooo 

COMMON  BLOCKS: 

0003  GEL  I C30R2R 
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PRINT  60  • NAME 
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6* 
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7* 
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9* 
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13* 
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00133 

16* 
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00135 
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23# 
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00117 
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26  • 

CALL  NTR AN  19.22) 

00151 

27  • 
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00153 

28  • 

CALL  N TR An (9.9.101 
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29* 

CALL  FINISH 

00155 

30 • 

CALL  EXIT 

00155 

3 I • 

C 

00156 

32* 

50  FORMAT! 12A6.ISI 

00157 

33# 
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END  OF 
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• 
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R2F  l 

053616 

0005 

R2F2 

00033! 

0006 

R2F3 

000267 

0007 
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0010 
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0001 

000067 

10L 

0001 

000309 

100L 

0001 

000311 

I 10L 

0000 

000029 

HOF 

OOUl 

000095 

HMG 

0000 

000091 

»SOF 

0001 

000191 

l 77g 

0001 

000 I 5 1 

2QL 

0001 

000232 

30L 

0001 

000259 

401 

0001 

000262 

70L 

cool 

000270 

bol 

0003 

000917 

ACC 

0005 

000266 

A K MO 

0005 

000205 

AMU 

0006 

000039 

ASQRM 

00C5 

000007 

AYlD 

0035 

000291 

ATLDl 

0005 

000250 

bE  T A i 

OOC6 

000070 

CAPA 

0036 

000075 

CAPC 

0006 

000027 

CONQ 

0010 

000IC2 

DEUR 

0010 

000056 

DEL  X 

0003 

000922 

D1SP 

00J6 

000397 

DLTH 

OOIO 

000077 

dltha 

0006 

000103 

LLVH 

0006 

030109 

DL2H 

0006 

0001)50 

DTMIN 

0009 

001092 

OX 

0009 

001079 

DT 

0009 

000672 

E 

0009 

001919 

EG 

0006 

000077 

El 

0C06 

000073 

FNl 

0006 

000033 

MTIEK 

00b6 

000032 

HTKEK 

0030 

1 

000010 

1 

0003 

000232 

IEDM 

0036 

000251 

IHTOP 

0010 

000072 

IK 

0000 

000106 

INJP4 

3010 

000109 

l NT  VS 

3003 

000231 

I PLOT 

0003 
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ISTOP 

00J6 

000252 
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0010 

000127 
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0010 

000132 

1 SUB  7 

0007 

0001 5 1 

ISWS 

0036 

000001 

itape 

0010 
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0010 

030070 

jgmax 

0006 
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0006 
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JJL3 

00U6 
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3006 
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JMIN 
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300116 
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JO 
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1 

000037 

K 
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1 030100 

KC 

0006 

000063 
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keouas 

0006 
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K IN 
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OOCGl 9 

KM 

3010 

! 

C 3 G o 6 5 

kma  < 

0000 

000012 

1 20F 

0001 

000057 

1S2G 

0001 

000290 

ROL 

0001 

000276 

*0L 

0010 

000107 

AREF 

0005 

000257 

BB 

0004 

000025 

CONA 

00|0 

000102 

DELY 

O0C4 

000036 

OL  TPM 

OCQH 

00H26 

ov 

0004 

OOOlO* 

EMU 

0004 

000220 

FXTRA 

0004 

000060 

ICART 

0003 

000251 

UMAX 

0004 

000057 

IPLR 

0010 

000130 

ISUB2 

OOOR 

000000 

ITEMS 

0004 

I 000117 

JJLl 

0004 

000129 

JM  A X 

0004 

000062 

JOlD 

00C4 

000257 

kact 

0006 

000305 

KGMAX 

OOIO 

I 000066 

KM  J N 

0009 

000013 

I30f 

0001 

000122 

1676 

000 1 

000296 

SOL 

0009 

000239 

A 

0005 

oooooo 

ARHO 

0005 

000275 

BETAA 

0006 

000026 

CONL 

0006 

000010 

dint 

0006 

0660*1 

OLTZ 

0006 

000253 

ovf 

0006 

060105 

EP 

0003 

000920 

COT 

0003 

000230 

IOOmP 

0006 

0002*9 

INC 

0007 

oOoiso 

ISRS 

0010 

000131 

ISUb3 

0006  ] 

I 000090 

J 

0006 

000I21 

J3L2 

OOIO 

000117 

JNAX6 

0010 

oooooo 

JRE6 

0006 

000069 

ka«av 

0006 

000052 

KGMXP9 

0000 

1 00001 1 

KMP  1 

BOUND 


cs 


&> 

iQ 

fD 

vo 


OOOo 

000045 

kntrol 

0006 

000013 

K 2 

0003 

OC9226 

LMAX 

0006 

CC0003 

UTAPe 

0010 

000116 

NCO  N£ 

0906 

000007 

NXGEB 

ooio 

000067 

NRC 

0005 

000223 

NVlSM 

0005 

0D003H 

P A 1 

0005 

000061 

P8 1 

0006 

OOOOOO 

PI 

0006 

000107 

PZ 

0006 

0002SH 

QRT 

0010 

000076 

RCALC 

0006 

000072 

SB 

0006 

000113 

SSP2 

OOOH 

000  H 70 

SXY 

OOOH 

001244 

SZYY 

0005 

000133 

T ILA 

0005 

000176 

T1LBET 

0006 

000031 

TOT  l E 

OOOH 

000522 

TXX 

0003 

00033S 

YBUL 

0006 

000022 

VVB 

0006 

000250 

KT  2 

0010 

00007S 

XCNTK 

0006 

000237 

XMlN 

0010 

000073 

XPLRHN 

0006 

000236 

xvz 

0010 

000076 

YCNTR 

OOOH 

00006H 

YP 

0006 

000246 

Y T 2 

0CU6 

COCO  1 2 

KOuT 

0Cvl6 

CuOO 1 7 

kc 

osc* 

000061 

LOX 

C 0 v 6 

0002 10 

MTKL 

0006 

00C05S 

NCORD 

0006 

030065 

NK  INC, 

0006 

000053 

NRDKKT 

0005 

00021 H 

NV  I SR 

0005 

OOOOH3 

PA2 

0005 

000070 

PBl 

0005 

000016 

PM 

0006 

000265 

PZ1 

0007 

OOOOOO 

QX 

0006 

0001  1 2 

RHO 

0006 

00007 1 

SB! 

S0C5 

000313 

STHARd 

OOOH 

OOOHoH 

SYY 

00u3 

000227 

T 

0005 

000115 

T 1 L A A 

00u5 

000160 

TILES 

0006 

3C0033 

TOTKE 

OOOH 

000640 

TxY 

3006 

000255 

VELCUy 

0006 

C00023 

WC 

OOOH 

001160 

X 

OOOH 

000116 

XDH 

0006 

000232 

XHSS 

0010 

000 103 

XPLRMx 

OOOH 

00072H 

Y 

OOOH 

000150 

YOH 

0010 

00007H 

yplrmn 

0010 

000106 

Y V I NT 

002  6 

3003 1 5 

Uvw  A 

030260 

Kb 

0010 

OCOIOl 

LRC 

0033 

000234 

NA^h 

OC  „ 6 

00CO4 1 

ncyclE 

0006 

000006 

nLPR 

0036 

000(jH  3 

NRESTR 

C005 

000304 

nyy 

0005 

000052 

P A 3 

0005 

000077 

PB2 

0006 

000020 

P N | N 

0006 

300266 

PZ2 

0007 

000032 

gxe 

3010 

000126 

RMAX 

0003 

000250 

SMASS 

OOOH 

000436 

STT 

OOOH 

001330 

SZTT 

003H 

OOOOOO 

temb 

0035 

000167 

T ILALP 

0005 

000322 

TILE5P 

0006 

0001 23 

TSPL 

OOOH 

000554 

TTY 

OOOH 

001362 

VM 

0036 

000024 

WD 

0003 

OOOOOO 

XBUL 

0006 

000234 

XFOT 

0006 

000235 

XMSUM 

0006 

000243 

X T I 

0003 

000062 

YBUL 

0006 

000 1 I H 

YIELD 

0010 

000126 

YPLRMX 

00C6 

000 102 

KPRESS 

0006 

000261 

K9 

0006 

000263 

11 

0004  | 

OOOOOO 

N0C 

0006 

000042 

MEDIT 

0006 

000076 

NP 

0006 

OOOOOH 

NT  APE 

OOOH 

000756 

P 

0005 

000232 

PAR 

0005 

000106 

PB3 

0006 

0001 10 

PP 

OOOH 

001010 

Q 

0007 

000064 

QY 

0010 

000074 

RHJN 

0003 

0002S2 

5M0M 

0003 

000421 

SVEL 

OOOH 

00 1 2 I 2 

szxx 

OOOH 

OOOOOO 

TEMP 

0005 

000142 

tilb 

0005 

OOOISI 

tilez 

0006 

00004H 

TT  I ME 

0003 

000253 

UBUL 

0006 

000067 

VP 

0003 

000423 

VZERO 

0010 

000026 

XCMAX 

OOOH 

000320 

xmass 

0006 

000233 

XHV 

0006 

000245 

XT2 

0010 

000046 

YCMAX 

0006 

000242 

ymax 

0006 

000100 

YR 

0006 

000046 

KSToP 

0006 

000262 

L 

0004 

000202 

MPN 

0000  1 

oooooo 

NBR 

0010 

000071 

NJGEB 

0006 

000066 

nplot 

&006 

000056 

NVIS 

0005 

000025 

PAZ 

0003 

OOOIHH 

PBUL 

0006 

000256 

PCSCUT 

0006 

000101 

PSCaLE 

0006 

OOOItl 

QH 

0007 

0001 16 

QYB 

0004 

001H44 

RRR 

0006 

000074 

SN 

0004 

000352 

sxx 

0004 

001274 

SZXY 

0010 

000014 

THETA 

0005 

000l?H 

TItBB 

0006 

000035 

TOTE 

0004 

000606 

TTT 

0004 

000244 

V 

0006 

00002 I 

VV  A 

0006 

000247 

WT  I 

0010 

000014 

XCM  I N 

0006 

000241 

Xh  AX 

0004 

000032 

xp 

do  10 

odoios 

XV  I Nl 

do  10 

000036 

ycmjn 

0006 

000240 

THIN 

0006 

000244 

YTl 

00101 

I # 

SUBROUT  I 

ne 

BOUND 

00103 

2* 

INCLUDE 

6ELCMN 

00107 

3* 

include 

chain 

CO  1 26 

1 nclude 

COEN 

00126 

&♦ 

C 

OMMENT  ••  NBR(t) 

00126 

A* 

C 

nbr  (r  1 

J» jMAX  , K 1 

00126 

7# 

c 

NBR  < 0 ) 

K-KMAX 

00126 

8 • 

c 

NBC-1 

— 

INTER 

CO  1 2 6 

?• 

c 

NBC-2 

- - 

XDOT-i 

00  t 26 

10* 

c 

NBC-3 

-- 

VOID 

00126 

1 I • 

c 

NBC-R 

-- 

MATER 

00126 

12* 

c 

NBC-5 

-- 

MATER 

00126 

13* 

c 

NBC- A 

-- 

XDO  T ■ 

00126 

IR* 

c 

NBC-7 

-- 

VOID 

00126 

15* 

c 

NBC-B 

- - 

VOID 

00126 

!*• 

c 

NBC-9 

-- 

VOID 

00126 

17* 

c 

NBC" l 0 - 

mater 

00126 

18* 

c 

NBC-  l I 

J-l  ,K 

j"l,K>|,  NuR ( 2 ) J"JMAX,K"I,  NBftlJI  J"l.lC"KHAX 
■KMAX,  NrR IS ) » J"  I . NbR(k)  J-JMAX.  MBR(7)  K"l 


1"0,  FIXEO  POINT 


X AXIS 


B 10 


B 20 
B 30 
B HO 


oooooo 

000000 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

Oooooo 

OOOOOO 

oooooo 

oooooo 

oooooo 

OQOOOO 

oooooo 

ooOooo 

OOOOOO 

ooOooo 

oooooo 

OQOGOO 
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BOUND 


00126 

19» 

00126 

20* 

00126 

2|* 

00126 

22* 

00126 

23* 

60126 

29* 

00126 

25  • 

00126 

24* 

00126 

279 

60126 

2 a* 

00126 

29* 

00126 

30* 

00126 

3 1 • 

00126 

32* 

00126 

33* 

00126 

39* 

00126 

35* 

00132 

34* 

00133 

37* 

00135 

38* 

60190 

39* 

00192 

90* 

00150 

91* 

00156 

92* 

60157 

M3* 

00160 

MM* 

00162 

M5* 

00163 

M 4* 

00165 

M7* 

00173 

Ml* 

00175 

M 9* 

60203 

50* 

60209 

51* 

00205 

52* 

00207 

53* 

002(1 

5 M • 

00213 

55* 

00215 

54* 

00217 

57* 

00221 

58* 

00223 

59* 

00229 

40* 

00225 

M • 

00226 

42* 

00227 

43* 

00230 

4M* 

00231 

45* 

00232 

44* 

00233 

47* 

00239 

48* 

00235 

49* 

00236 

70* 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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NBC-12  - JHAX  in  polar  COORDINATES 

NBC- 1 3 - VOID  To  RIGHT  XDOT-D  TOOT  FREE 

NBC - I 1 - VOID  ABOVE  AND  TO  LEFT  OF  FREE  POINT 

NBC- 1 5 - VOID  To  LEFT  OF  FREE  POINT 

NBC-16  - MATERIAL  BELO*  AND  TO  RIGHT  OP  FREE  POJNT 

NBC-17  - MATERIAL  ABOVE  AND  TO  RIGHT  XDoT-OiTDOt  FREE 

NBC-20  - PINNED  point  On  slip  line 
nbc-21  - slip  point  on  slip  line 

NBC-29  - J-l  IN  POLAR  COORDINATES  WITH  FIXED  x AXIS 
NBC-2S  - MATERIAL  ABOVE  AND  TO  RIGHT  Or  FREE  POINT 

NBC-26  - MATERIAL  ABOVE  AND  TO  RIGHT  *00T  FREE  YDOTjiO 

NBC-27  - MATERIAL  ABOVE  AND  TO  LEFT  XDOT  FREE  YqOTwO 

NBC-28  - VOIO  BELOW  XOOT  FREE  YOOTwO 

NBC-2?  - HATER  I At  BELOW  AND  TO  LEFT  XDOT-0  YDOT  FREE 

NBC-32  - MATERIAL  ABOVE  AND  TO  LEFT  XDOTwO  TOOT  FREE 

NBC -33  - VOID  BELOR  ANO  TO  LEFT  OF  FREE  POJNT 

NBC-3‘1  - VOID  BELO*  AND  TO  RIGHT  OF  FREE  POINT 
DIMENSION  NBR(B) 

IF  (J.GT.JJLl.OR.X.GT.l)  GO  TO  10 
READ  I S • 1 20 1 NBR 
WRITE  (6-1301 

WRITE  1 6 • I NO  I (NBR ( I I • l-l ,2> 

WRITE  I 6 • I SO  I INBRI I ) , 1-3.8) 

N8C<  J,KC)-N6R(  I ) 


GO  TO  110 

IF  (K.EQ.2)  GO  TO  20 
KHP1-KMIN-I 

IF  IJ.NE-JJLI.ORtX.NE.KMPl ) GO  TO  20 
READ  I S - 1 20 ) (NBR< I I .1-3.8) 

WRITE  (6.130) 

WRITE  (6.150)  <NBr( I > . 1-3,8) 

NBC( J.KC)»NBR(5) 


GO 

TO  no 

If 

< J#EQt JJRI oANDoKoEQ* 1>  GO 

TO 

30 

if 

( J.EQ* JJR| • A NO. K. EG  #KHaX* 

GO 

TO 

MO 

IF 

( J.EQ. JJLl # AND.K.EQ.KMAX ) 

GO 

TO 

50 

IF 

( J*EQ« JJLl ) GO  TO  40 

IF 

( J.EQ# JJR1 ) GO  TO  70 

IF 

(KoFQbI)  GO  TO  80 

IF 

(K.Nt.KMAX)  GO  TO  90 

GO 

TO  100 

30  NBC( J.KC)-NBR(2) 
GO  TO  110 

HO  NBC(  J,KC)-NBRM) 
GO  TO  110 

SO  NBC( J.KC)-NBR(3) 
GO  TO  110 

60  NBCl J.KC)-NBR(S) 
GO  TO  110 

70  NBCl J.XC)“NBR(6J 
GO  TO  110 

80  NBC(J.KC)»NBR(7) 


00237  7|* 

002 HQ  72- 


GO  TO  110 
90  NBC ( J . KC ) ■ I 


B 80 
B 90 
B 100 

B no 

B 120 
B 130 
B MO 
B I So 
8 160 
B 1 70 
B 180 
B 1 90 
8 200 
B 210 
B 220 
B 230 
B 280 
B 2S0 
B 260 
B 270 
B 280 
B 290 
B 300 
B 310 
B 320 
B 330 
B 390 
B 350 
B 360 
B 370 
B 380 
B 390 
B 900 
B 910 
B 920 
B 930 
B 990 


000000 

OQOOOO 

000000 

OQOOOO 

000000 

OQOOOO 

OqOooO 
000000 
000000 
&Q0000 
000000 
000000 
OqOooo 
ooOooo 
600000 
OQOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
0000  IB 
0000)0 
0Q0Q35 
000050 
000062 
6q6o6B 
000067 
0Q0o7 I 
000079 
000 | 07 
000)25 
080(32 
0Q0|99 
OQO|97 
OQOtSI 
000)69 
00&200 
000219 
0Q0217 
OQ0222 
000225 
000230 
0Q0232 
000236 
000290 
000299 
000296 
006252 
0Q02S9 
000260 
000262 
000266 
000270 
000279 
000276 
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BOUND 


002MI 

7 3* 

002m  2 

7 M • 

130 

002m  3 

7 5* 

1 10 

002MM 

78® 

002MM 

77* 

C 

002MS 

78® 

1 2 Z 

002M  6 

7 9® 

130 

002M7 

80  • 

MO 

002m  7 

81® 

002S0 

62® 

iso 

002S0 

83® 

002S0 

8 M • 

00250 

8S® 

002  5 1 

86® 

END  OF 

COMPILATl 

v*Q  to  110 

NBC  t J »KC i *NBK ( B) 

CONTINUE 

K z T u R M 

FORMAT  i 1 6 I H ) 

F0RMATi/t30X, •BOUNDARY  CONDITIONS  FOR  GEOhETR 1 C BLOCK*) 

FORMAT (SX • • N B C ■ • ■ I 3 • 2 X % • F 0 K J«jMIN*K®1*»7a»,NBC«%I3»2X.,FOR  J«JMA 


Format  <SX . MHNac- # I 3 • 2* . 1 7HF0R  j»JrtlN»K«KMAX*HXfMMNBC-ol3|2X,i7H 
IFOR  J-JMAX.K-KMaX./.SX.^HNbC-, I3.2X, 10HF0R  J- JM I N # 9X , MHNBC- , 1 3 • 2% » 
2 1 OHFOR  J-JMAX .9X.MHNBC- # 13 , 2X  , lOHfOR  K-KM  I N , 9X i *»HnBC® i 13 ,2X , 10HFOR 

3 K-KMAX) 

END 


NO  DIAGNOSTICS. 


8 

M SO 

030332 

a 

M 80 

00030H 
03031  l 
300311 

B 

M 90 

000311 

B 

SOO 

0Q0327 

000327 

000327 

000327 

000327 

a 

SSO 

000327 

B 

580 

000)27 

a 

570 

000327 

8 

S80 

000327 

OHDG 


CALCA 
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CALCA 


WFOR , S CALCA 

FOR  SE2C"OVI?/75-o9S3‘*!S|  *Oi> 

SUBROUTINE  CALCA  ENTRY  POINT  00037s 


STORAGE  USED:  COOEID  000*)0**l  DATA(O)  00003**!  blank  common<2>  oooooo 


COMMON 

BLOCKS 

• 

• 

0003 

6 El  i 

000424 

ooo<« 

rzfi 

053646 

ooos 

RZF2 

000331 

0004 

RZF3 

000267 

0007 

RZF4 

000152 

EXTERNAL  REFERENCES  (BLOCK!  NAME) 


0010 

MOTION 

0011 

ZONE 

0012 

N»OUS 

0013 

NI02S 

001** 

NERR3S 

STORAGE 

ASSI6NMENT  (BLOCK.  TYPE 

I,  RELATIVE  LOCATION,  NAME) 

0001 

ooooso 

I4SC 

0001 

000 10* 

1 62G 

0001 

000217 

2126 

0001 

000 1 S 7 

23U 

9001 

00020* 

240L 

0001 

00021 3 

2S0L 

0001 

000315 

2S8L 

0001 

000334 

264G 

0001 

00035*1 

2 7 5 G 

0001 

000244 

45  I L 

0001 

0003 1 o 

452L 

0001 

000u2* 

704L 

0003 

R 

OOOH7 

ACC 

OOOS 

040264 

AKHO 

0005 

000205 

AMU 

ooos 

000007 

ayld 

ooos 

0002*11 

ayldi 

ooos 

000257 

BB 

0006 

000070 

CAPA 

0006 

000075 

CAPC 

0006 

000025 

cona 

0006 

000010 

DINT 

0003 

R 

000  **22 

DISP 

0006  R 

0000*<7 

dlth 

0006 

000103 

OLVH 

0006 

000  to** 

OLZH 

0006 

000050 

DTHIN 

0004 

001 0**2 

DX 

0004 

R 

00107** 

OY 

000** 

000671 

E 

0004 

00 1 **  I ** 

EQ 

0006 

000077 

EZ 

0006 

000073 

FNI 

0006 

000033 

HT  IEK 

00u6 

000032 

HTKEK 

0006 

000060 

1CART 

0006 

1 

000251 

ihtop 

0003 

000251 

IKHAX 

0004 

00026*1 

INC 

0006 

000057 

1PLR 

0007 

000150 

1SRS 

0003 

000233 

ISTOP 

0006 

000001 

ITAPE 

0004 

OOOOOO 

ITEMB 

0006  I 

0000**0 

J 

0006 

I 

000121 

JJL2 

0006 

000122 

JJL* 

0004 

000120 

J JR  1 

0006 

I 

000154 

JHIN 

0006 

000116 

JHNP1 

0006 

000062 

JOLD 

0006 

000037 

K 

0006 

000257 

KACT 

0004 

00006*) 

kaway 

0006 

I 

ooooos 

kqmax 

0006 

000052 

KGMXP4 

0006 

00001 1 

KIN 

0006 

000012 

KOUT 

0006 

OOOOIS 

KP 

0006 

000102 

KPRESS 

0006 

000017 

KO 

0006 

000260 

K6 

0006 

000261 

K* 

0003 

[ 

000224 

LH  AX 

0000 

I 

000002 

LUX 

0006 

000061 

LOX 

0006 

000003 

HT  APE 

0006 

000210 

HTRL 

0003 

00023*1 

NAHE 

0006 

1 

0000**  1 

ncycle 

0006 

000012 

nedit 

0006 

00CO07 

nkgeb 

0006 

000076 

NP 

0006 

000066 

NPLOT 

0026 

00OO53 

nRD*T 

V 


0000 

000005 

23  1 F 

0001 

000317 

2SIG 

0001 

000361 

340L 

0001 

000310 

708L 

0005 

OOOOOO 

ARNO 

0005 

000275 

BET  A A 

0006 

000026 

CONL 

0006 

000036 

dltph 

OOo** 

001124 

OV 

0006 

000106 

EMU 

0006 

000220 

FXTRA 

0003 

000230 

10UMP 

0000 

000017 

1NJPS 

0006 

I 

000252 

ISUBC 

0006 

000115 

JGH  I N 

0006 

1 

00005*1 

JLJH 

0004 

000002 

JTAPE 

0004 

I 

000043 

KCOMP 

0006 

00001*1 

KH 

0006 

I 

0000*«6 

KSTOP 

0004 

000242 

L 

0036 

000263 

H 

000*1 

OOOOOO 

NBC 

0006 

000065 

NKING 

00C6 

000013 

NRESTR 

0001 

000102 

232t 

0001 

00032*1 

256L 

0001 

0002*12 

53lk 

0001 

00023*1 

A 

0004 

060031 

ASORM 

0005 

060250 

beta! 

0006 

0 00027 

CONQ 

0006 

R 

O0OOSI 

OLtZ 

0006 

000253 

OVP 

0006 

000105 

EP 

0003 

R 

000*120 

got 

0003 

000232 

1EP 1 7 

0003 

000231 

IPkoT 

0007 

000151 

13*5 

0006 

1 

060t 17 

44k  l 

0006 

I 

00012** 

4MAX 

0006 

O00O| 6 

40 

0004 

000217 

KE0UA5 

0006 

000015 

KMTROt 

0006 

1 

000013 

KZ 

dooQ 

1 

000001 

Lk 

000*1 

000202 

MPN 

0006 

000055 

NCORD 

0OO6 

000006 

NLPR 

0006 

OOOOQ** 

NT  APE 
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C AtC* 


0006 

OC0056 

M*  IS 

^ocs 

C00223 

NVI5H 

uC.S 

00C21 1 

NV  ISK 

ooos 

0w302S 

PAZ 

000C31 

P A 1 

eo^s 

000jl3 

PA2 

0003 

aaoin 

PBUL 

OOOCbl 

PBZ 

C 5 

OG Jy 70 

PBl 

0006 

033256 

PESCUT 

JC06 

K 

CoOwCu 

PI 

00^5 

OCOJl 6 

PM 

0006 

OOCIOl 

PSCAlE 

0006 

OCOIC7 

PZ 

uCu6 

C 3 w 2 6 S 

PZI 

0006 

OOOI  1 1 

QH 

0006 

R 

0C02S1 

gRT 

000  7 H 

OoO jOO 

QX 

0007 

R 

0301  1& 

QYB 

0006 

0001 1 2 

RHO 

0004 

00111* 

RRR 

0003 

C002S0 

srass 

0003 

0002S2 

SMOM 

0006 

000o7<* 

SN 

OOOH 

00013* 

STT 

0003 

R 

000121 

SVEL 

OCQ  4 

0C0JS2 

s x X 

0004 

001330 

sztt 

0001 

0012(2 

SZXX 

0004 

001276 

SZXY 

0004 

OOOOOO 

TEMB 

0001 

OOOOOO 

TEMP 

0000  ft 

oooool 

TFCE 

0005 

000167 

T l L ALP 

oocs 

000112 

T 1 LB 

ooos 

000121 

T ILBB 

0005 

000322 

TILESP 

ooos 

000151 

tilez 

0006 

000036 

TOTE 

0006 

000123 

TSPL 

0006 

000011 

T T l ME 

0004 

000606 

TTT 

0004 

R 

030651 

TYT 

00u3 

R 

000253 

UBUL 

0004 

000266 

V 

0004 

001362 

VH 

0006 

000067 

VP 

0006 

000021 

WA 

0006 

000021 

vvo 

0003 

000123 

VZERO 

0006 

000217 

ft  T 1 

0003 

R 

OOOOOO 

XBUL 

0001 

R 

0001 16 

XDH 

0006 

000231 

XFDT 

0006 

000237 

XM1N 

0006 

R 

000232 

XMS5 

0036 

000236 

XHSUM 

0006 

000213 

XT  1 

0006 

300215 

X T 2 

0006 

000236 

xvz 

0004 

R 

0001S0 

YOH 

0000 

R 

OOOOOO 

YOSAVE 

0006 

0001  11 

YIELD 

0004 

R 

000061 

YP 

0006 

oooico 

YR 

0006 

000211 

YTl 

00101 

1 • 

SUBROUTINE  CALCA 

00103 

2 • 

include  gelcmn 

00107 

3* 

INCLUDE  CM A l N 

00107 

4 • 

C 

00126 

5* 

JLIM-JMaX(KCOMP) 

00127 

6* 

JJLI-JMJNUCCOMP) 

00130 

7ft 

JJL2»JJLIftl 

00131 

8 • 

1 F ( KCOMP • NE • 1 ) GO  TO  706 

00133 

IF  ( 1 SUdC  • E W • 1 ) Yt>bAVE»YDH  ( 1 » K.  Z 

00135 

JO* 

706 

CONT 1 hue 

00135 

II* 

c 

00I3S 

12ft 

c 

00135 

13ft 

c 

special  acceleration  at  top  of  mi 

00135 

14* 

c 

00136 

l 5* 

1F<KC0MP.LT.KGHAA)  go  TO  25C 

00140 

16* 

tfce-o* 

00141 

17* 

LMX*2ft JLlMftKGHAX*! 

00141 

18» 

c 

00142 

!?• 

IF  < 1 H TOP • EG • 1 1 GO  TO  232 

00  1 4 4 

20ft 

00  230  Jft J JL2  t JL 1 M 

00147 

2 1 • 

23o 

TFCE»TFCE^TYYtJ,Kz)ft<X(j,KZlftft 

0CI51 

22* 

TFCE-PM  1 ) -TFCE 

00152 

23ft 

ifcmod<ncycle*2c>*eo«o)  ARI TE  < 

OC  156 

24« 

231 

FORMAT C5X , *FURCE  U n TCP  SURFaCI 

00156 

25ft 

c 

OC  15  7 

26ft 

fVEL*  (*TFCE/XMSS1  •Oi.TZ 

CO  1 60 

27* 

232 

CONT 1 NU{ 

C216C 

28* 

c 

OOq5 

000301 

ny  r 

oocs 

OOOOS2 

P A 3 

0005 

000077 

P B 2 

0036 

003020 

pm  i n 

0006 

000266 

PZ2 

0007 

R 

000032 

QXB 

0006 

000072 

SB 

0006 

000113 

SSP2 

0004 

000170 

SXY 

0004 

001211 

SZYY 

0005 

000133 

T 1 L A 

0005 

000176 

tilbet 

0006 

000031 

TOT  1 E 

0004 

000622 

T X X 

0003 

R 

000335 

VBUL 

0006 

000022 

VVB 

0006 

000250 

WT2 

0004 

000320 

XMASS 

0006 

000233 

XMV 

0004 

R 

000721 

Y 

0004 

000212 

ymax 

0006 

000216 

YT2 

h *0 
h so 

M AO 


0001 

000756 

P 

boos 

000232 

P A 4 

0005 

000106 

PB3 

0006 

000110 

PP 

0001 

0010)0 

9 

0007 

R 

000061 

9 Y 

0006 

000071 

SB  1 

ooos 

000313 

stha*d 

Oooi 

000101 

SYY 

0003 

000227 

T 

OOOS 

0001)5 

TILAA 

0005 

000160 

TILES 

0006 

000030 

totkb 

0001 

000(10 

TXT 

0006 

R 

0002SS 

VEtCUT 

0006 

000023 

vvc 

0001 

R 

001160 

X 

0006 

000211 

XMAX 

0001 

00b032 

xp 

0003 

R 

000062 

tbul 

0006 

000210 

THIN 

0000 

R 

060003 

YVEL 

000000 

OQOOOO 

oooooo 

oooooo 

oooooo 

000002 

000004 

000004 

ooooi 1 

000023 

000023 

000023 

000023 

000023 

000023 

000026 

000027 

000027 

00003H 

0Q0050 

ooooso 

0Q0060 
000062 
000075 
000075 
000075 
300 102 
300102 
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CALC* 


OOUI 

29* 

DO  2*40  J-JJLI.JLlH 

000102 

00161 

30* 

LMX«LMX-I 

000|I2 

00 1 45 

3 1 • 

IF(  IHTOP.EG. 1 > GO  TO  23m 

000| 15 

001 67 

32* 

TDH<J,KZI«YDM»J,KZI*YVEl 

000|20 

00170 

33# 

IFCABSIY0H4 JiKZ) > , L T . VtL CUT  1 Y UH 1 J , K Z 1 -0 . 

000 1 2*4 

00172 

39* 

DYI  J,KZ)«DYCJ,KZ»*YDH<J.ICZ)«DLTH 

O0O|*4l 

00173 

35* 

Y(J,K2»«YP(J.KZ)»OY4J,IC2) 

000(53 

00171 

36# 

23*4  IF  ( (HTOP.Eft.  1)  CALL  MOTION 

000 | 57 

00176 

37* 

IF(K5T0P«NE«NCYCLtl  GO  TO  2*40 

OQO | 65 

00200 

30* 

UBUL4LMX)-XDH< J.KZl 

0Q0| 7 3 

00201 

39* 

VBUL(LHX)*>YDH(J,Kz> 

000|76 

00202 

HO* 

XBUL(LHX>*X( J»KZ> 

000200 

00203 

HI* 

YBUL(LMX)-Y(J,KZ) 

000202 

0020*4 

H2* 

2 *40  CONT  ( HUE 

000206 

00206 

H3* 

I F i IHTOP.EQ.I  ) GO  TO  *452 

000206 

00210 

HM* 

GO  TO  256 

000211 

00210 

H5* 

C 

000211 

002|l 

HA* 

250  DO  *45  ( J-JJLI.JLlM 

000213 

0021*4 

H 7 • 

call  motion 

000217 

002  | 5 

H 0* 

IFIKCOMP.GT.n  GO  TO  *43] 

00022*4 

002(7 

H9* 

UBULl JI-X0H4 J.KZ) 

000230 

00220 

50* 

VBUL4 J)-YOH(J»KZ> 

000232 

0022( 

51* 

XBUL4 J1-X4 J.KZI 

00023*4 

00222 

52* 

YBUL4 J)»Y( J.KZI 

000236 

00223 

S3* 

GO  TO  *45  ( 

0002*40 

0022*4 

SM* 

*4  3 ( IF(  J.LT.  JLIMI  GO  TO  *451 

0002*42 

00226 

ss* 

LHX-JLIM*KC0MP-| 

000250 

00227 

S A* 

XBUL4LMX l»X( J,KZ) 

000255 

00230 

57* 

UBUL(LMX>-XDH( J,KZ) 

00&257 

0023  ( 

50* 

VBUL(LMXl«YDH( J.KZ) 

000261 

00232 

59* 

YBUL4LMXI-Y4J.KZ) 

0QO263 

00233 

AO* 

*45  ( CONT(NUE 

000267 

00233 

A 1 • 

C 

000267 

00235 

A2* 

IF ( KC  OHP • NE • 1 1 GO  TO  708 

000267 

00237 

A3* 

IF CKSTOP«NE»NCYCLtl  GO  TO  708 

000272 

002*4  ( 

AM* 

ACC-CY0H4 I iKZI-YDSAVEI/GOT 

000277 

002*42 

AS* 

5VEL-Y0HI 1 ,KZ J 

000303 

002*13 

AA* 

DISP-DY( 1 ,KZI 

000305 

002*4*4 

A 7 • 

708  CONTINUE 

000310 

0021S 

A8* 

*452  CONTINUE 

000310 

002*16 

•DIAGNOSTIC 

• the  test  for  equality  between  non-integehs  m*y  not  be  meaningful* 

002*16 

A9* 

IF(QRT«EQ*0*>  60  TO  2S6 

000310 

002*46 

70* 

c 

000310 

00250 

71* 

DO  25*1  JaJJLltJLlH 

000317 

002S3 

72* 

UX B ( J ) «QX  4 J ) 

00031! 

0025*4 

73* 

25*4  QYBIJ)-QY(J) 

000320 

0025*1 

7H* 

C 

000320 

00256 

75* 

256  CONTINUE 

000321 

00257 

7 A • 

IF (K5T0P.NE.NCYCLEI  GO  TO  256 

000321 

0026  ( 

77* 

IFIKCOMP.NE.KGHaXi  go  TO  258 

000326 

00263 

78* 

DO  257  LL-I  iLMAX 

000336 

00266 

79* 

YBUL(LLI«YBUL(LLI-D|SP 

000336 

00267 

80* 

257  VBUL4LL)BVBUL(LL>-SVEL 

000310 

0027  ( 

8 | • 

258  CONTINUE 

000315 

0027  1 

b2* 

C 

00272 

6 3 • 

IF  t K C U h P • £ U • l » <iU 

00271 

00  263  J*JjL2,Jllh 

00277 

as* 

CALL  2 unE 

0C300 

86* 

263 

CONT 1 NuE 

00300 

& 7 • 

C 

30302 

e e • 

34- 

cont inue 

00303 

89* 

KtTURN 

00303 

90* 

c 

00301 

9 1 • 

END 

END  OF  COMPILATION;  I DIAGNOSTICS. 


OHO  G 


C-LC« 


000315 
H 1 130  0003*15 

000351 
H 1150  0003S1 

H 1160  OO0361 

000361 
000361 
0Q036I 
H 1730  000361 

H 1750  000103 


Ctu  I T 


Page  16 


CtOlT 


WFOR.S  CEDlT 

FOR  SE2C"0?/ I 9/75-0? • 3H • *5  *0»l 


SUBROUTINE  CEDlT 


ENTRY  POINT  jOC | 6^ 


STORAGE  USED:  CODE ( I » 000171;  DaTACO)  000120;  BLANK  COMMONS)  000000 


COMMON 

blocks: 

0003 

geli 

OOOH2H 

000*1 

RZF  1 

0S36H6 

0005 

RZF2 

000331 

0006 

RZF3 

0C0267 

0007 

rzfh 

000 l 52 

EXTERNAL  REFERENCES  (BLOCK,  NAME! 

0010 

NADU* 

001  1 

N 103* 

0012 

N 1 02* 

0013 

NERR3* 

storage 

ASSIGNMENT  (BLOCK,  TYPE 

0000 

ooooos 

120F 

0000 

i 

0000 

000073 

160F 

0001 

0003 

OOOH 1 7 

ACC 

ooos 

ooos 

000007 

AYLO 

ooos 

0006 

000070 

CAPA 

0006 

0006 

000010 

DINT 

0003 

0006 

000103 

DLVH 

300* 

000*1  R 

0010H2 

DX 

OOOH 

R 

000*1 

OOIHIH 

LG 

0006 

0006 

000033 

HT  UK 

0006 

0006 

0002SI 

ihtop 

0000 

i 

0003 

000231 

IPLOT 

0006 

0007 

OOOISI 

isws 

0306 

0000  | 

000001 

JIN 

liG  J6 

0006 

OOOOSH 

jlim 

0006 

l 

0000  1 

000000 

JREAD 

0C36 

0006 

00006H 

KARAY 

0006 

1 

0006 

0000 1 1 

KIN 

0006 

0006 

000102 

K PRESS 

0006 

0006 

00026 1 

K? 

0036 

oooh  1 

000202 

MPN 

0006 

0006 

OOOOSS 

NCORD 

0006 

1 

0006 

000006 

nlpr 

0006 

0006 

00000*1 

ntape 

0036 

OOOH  X 

C007S6 

P 

OOjS 

ooos 

C00232 

PA1* 

00-3 

000003 

OUOOHl 

000076 

00C056 

00C02S 

OOOIH1* 


I30F 

l77G 

AKMO 

AYLOI 

CAPC 

OISP 

OLZH 

OY 

EZ 

HTKEK 

I J 

IPLR 
l T APE 
JJLI 
Jh  AX 
JT  APE 
KCOMP 
KM 

KSTOP 

L 

MT  APE 

NCYCLE 

NP 

NV  |S 

PAZ 

PtJUL 


0000 

coot 

ooos 

0005 

0006 

0006  R 
0006 
DOOM  R 
0006 
0006 
00C3 

0007 
OCOM 
0006 
0006  1 
0006 
0006 
0006 
0C06  | 
0033 
0006 
0036 
0036 
GCjS 
COjS 
GOCS 


000026 

000066 

000206 

0002S7 

0C002S 

OOOOH7 

ocooSo 

000*7 2 
000073 
000060 
0002SI 
C30IS0 
300000 
030121 
0C01S6 
000016 
000217 
0300MS 
000013 
000226 
000210 
OOOOH2 
000066 
000223 
0C0C3M 
0 J £ u 6 I 


i**OF 

SOL 

AMU 

BB 

CONA 

OLTM 

0TM1N 

E 

FN1 

ICART 

| K M A X 

ISPS 

iTEMB 

JJL2 

JMIN 

JO 

KEQUAS 

kntrol 

K2 

LMAX 

MTRL 

NED1T 

nplot 

nvism 

pa! 

phz 


0001 

OOOOSS 

IHHG 

0000 

0000H7 

150F 

000 1 

000067 

60L 

OOOH 

00023H 

A 

ooos 

000000 

ARHO 

0006 

OOOOSH 

asqrh 

ooos 

00027S 

BET** 

OOOS 

O0O2SO 

BETaI 

0006 

000026 

CONL 

0006 

000027 

CONQ 

0006 

000036 

DLTPH 

0006 

000051 

oltz 

OOOH 

K 

001126 

OV 

0006 

0002S3 

ovp 

0006 

QQOtO* 

EMU 

0006 

OOOIOS 

EP 

0006 

000220 

FXTRA 

0003 

000H20 

GOT 

0033 

000230 

1 DUMP 

0003 

000232 

IED  I T 

0006 

00026*+ 

INC 

3300 

OOOIOI 

INJPS 

0003 

000233 

l STOP 

0006 

000252 

ISUBC 

0CQ6 

1 

OOOOHO 

J 

0006 

0001  IS 

jghin 

0006 

000122 

JJL3 

0006 

000120 

J Jp  1 

0006 

0001 16 

jmnp  1 

0006 

000062 

JOLD 

0006 

000037 

K 

0006 

O0O257 

KACT 

0006 

ooooos 

KGMAX 

0006 

000052 

kghxpm 

0006 

000012 

KOUT 

0006 

OOOOJS 

KP 

0006 

000017 

KO 

0006 

000260 

K6 

0006 

000061 

LOX 

0006 

0&0263 

H 

0003 

1 

00023H 

NAME 

Oooh 

000000 

NBC 

0006 

000007 

nkgeb 

0006 

00006S 

NKlNG 

0006 

0000S3 

nrort 

0006 

000013 

nresJr 

OOOS 

00021*+ 

NV  1SR 

ooos 

00030H 

NY  Y 

ooos 

0000*4  3 

P A 2 

ooos 

0000S2 

PA3 

OOC& 

000070 

PB  I 

ooos 

000077 

PB  2 
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Cto  J i 


0005 

0CC1C6 

P5  3 

0j06  fC325* 

PE  SCUT 

OOOo 

0031 10 

PP 

„0C6  OuC  1 u 1 

pscale 

CCOH 

K 001C1C 

Q 

v * ^6  3uC  1 1 1 

On 

0C07 

C0OO6M 

UT 

01,07  CJC»|6 

*yd 

0006 

0 0 3 0 7 1 

SB» 

C*>02  50 

SPaSS 

0005 

300313 

5 T M A t\t) 

OOCH  OuOH  36 

STT 

OOOH 

OOOH  OH 

SYY 

OO0H  r 001330 

SZTT 

0C03 

000227 

T 

OOuH  OOOOCG 

TEMB 

0005 

0C0167 

T 1 L ALP 

00j5  000IH2 

TILB 

0C05 

OCO 322 

T | L ESP 

0005  000151 

T ILEZ 

0006 

000123 

TSPL 

0006  R OOOGHH 

TT  IME 

OOOH 

R 00355  H 

TTY 

0Ol>3  000253 

OBUL 

OOOH 

CO  1 36  2 

VM 

0006  00C06  7 

VP 

0006 

C0002H 

vvo 

JOw  3 000H23 

VZERO 

0006 

000250 

Y.T2 

C00H  R 00 1160 

X 

OOOH 

CQ0320 

AMASS 

00u6  0002  H 1 

XH  AX 

0006 

000233 

Xh  V 

OQJH  000032 

XP 

OOOH 

R C0072H 

Y 

0003  000062 

T0UL 

0006 

00 0 2 H 0 

YM  IN 

OC0H  O0OG6H 

YP 

C0101 

1 • 

SUBROUTINE  CEDIT 

00  1 D 3 

2* 

INCLUDE  GELCMN 

00107 

3» 

include  chain 

CO  12  6 

H« 

jhead»jmax ikcomp ) 

00127 

5* 

JIN»JM!N(KC0MP1 

00127 

6* 

c 

00127 

7* 

c 

print  out  quantiT 

ies  on  1 

00127 

8 • 

c 

00130 

9* 

H O 

6RITE<6,120)  NAME 

00133 

10* 

*RIT£(6,130)  NCYCLE  »KCOmI 

001H! 

1 1 • 

WRITE  ( 6 » 1 HO ) 

001  H 3 

1 2 • 

DO  70  J»JlNtJREAD 

00 1 H 6 

1 3* 

H 2 

IF (KCONP.EQ# 1 ) GO 

TO  50 

00150 

1H« 

l J«HPN( JtXZ) 

00151 

15« 

AS2»-DV( JiKZ)/V( J 

,KZ) 

00152 

16* 

GO  TO  63 

00153 

17« 

53 

AS2*U. 

00I5H 

I 8 • 

63 

CONTINUE 

00155 

19# 

WRlTEC6,160l  J»X* JiX2) iY 

03155 

20  • 

1 

Q(J»K2) ,0X1  JiF.Z 

1 • D Y ( J 1 1 

03172 

21  • 

70 

CONTINUE 

001  7 H 

22* 

• RITE  1 6 • 1 SO ) 

00176 

23* 

00  80  J« J I N » JRE  AD 

00201 

2H* 

WS3«RRR( J»KZ  1 

00202 

25* 

R I T E * 6 » 160)  J»E(  J 

* K Z ) * S Z 

00202 

26  • 

1 

| T X X 1 j |KZ ) , T Y Y (J 

»KZ  ) , TT 

00216 

27* 

83 

CONTI NUE 

00220 

28* 

110 

CONTINUE 

CC22I 

29  • 

return 

00221 

30* 

C 

33  222 

31  • 

12: 

FOHMmT  ( / / / * l 2 A 6 » 

/ ' * 

. c t> 

r ^ 

*xU06 

ocv* 

OCC  3 
uOOH 
□ COM 

0005 
0Cu6 
OOOM 
OOOH 

0006 
0000 
0003 
0006 
uO  0 6 
0C3H 
or  j 6 


:5.«0j 

n C 2 -» M 

3 jjl 1 2 
: 3v2=>2 
Z 0 J *1 2 1 
001212 
030000 
0C012H 
030035 
000606 
030266 
000021 
000003 
000000 
000237 
3002H3 
r 3y 4 SO 
CJClOO 


► I 
p/ 

<«h  3 
SHll 

SVEt 

SZYX 

TEMP 

TILBB 

TOTE 

T T T 

V 

V V A 
*S2 
XBUL 
xh  Jn 
X T I 
YON 

V K 


MluUS  Slot  OF  BLIP  LINE 


OC0S 

0306 

0307 
OO0M 
0006 
OOOH 
OOOH 
0005 

0005 

0006 
OOOH 
0003 
0006 
0000 
OOOH 
0006 
0006 
0006 
0006 


0QD3I 6 
303265 
COOJOO 
03 ! HM6 
3000  7 H 
000352 
001276 
000133 
000176 
000031 
000522 
000335 
000022 
00000** 
000116 
00023 2 
0002HS 
0001 IH 
0002HM 


PM 

PZ  I 

QX 

Rftfl 

SN 

sxx 

SZXY 

tila 

tilbet 

TOT  l E 

TXX 

VBUL 

VVB 

• S3 

XQH 

XMSS 

XT  2 

YIELD 

YTl 


I 160 
1 170 


I 230 
I 260 


I 290 
I 300 
1 310 


t 


1 350 

I 630 
I 6M0 
1 65J 


0006  003020  Pm  I N 


0006 

000^ 

0036 

0006 
OOOH 
OOOH  R 
0005 

0005 

0006 
OOOH 
0006 
0006 
0006 
0006 
0006 
0006 
0036 
0006 


003266  P 2 2 
C0C032  QXB 
030072  SB 
000113  SSP2 
000H70  SXY 
0012HH  SZYY 
000115  T1LAA 
000160  TILES 
000030  TOTkC 
000*10  TXT 
000255  VELCVT 
000023  VVC 
0002*17  *TI 
000231  XFOT 
000235  XMSUM 
00023*  X VZ 
000212  YMXX 
C0021*  T T 2 


000003 

000003 
000003 
000003 
000012 
000012 
000012 
000012 
OOOOH 
000031 
000012 
000055 
000055 
0Q0057 
0000*1 
0000*1 
0000*5 
0000*7 
0000*7 
0000*7 
OQO l 1 0 
OOOl 10 
000122 
000|22 
000(21 
000121 
000|15 
000115 
000115 
000|1S 
0^0  1 70 


CtOlT 


00223  32* 

00223  33* 

0022H  3<*» 

0022H  35* 

00225  36* 

00225  37* 

00226  38* 

00227  3 9 • 


130  FORMAT 1//.5X, 'CYCLE* ,16,5*. * X-LINE* ,IM,5X,« Tint' .iPElS.S, 

I 5X  • • UELT  A*T  • • EL  1 6 • © t / / 1 

ISO  F0RMAT12A,IHJ.SX,lHX,12x.lMY.l0X.5HX-aUT.*X,5HY-00T,9X,2rtMU, 

|hP.I2X,tHQ.l3X,2HjX,l3*.2HDY,5A,3HHpN> 

150  FORMAT!/. 2X,'J*. OX. •E,.l‘tX1!SXX*,10X,»SYY*.>0X,  StT  .13 

1 *SXY*  , 10X, 'TXX*  , 10X, 'TYY*  . IOX. *YTT*  . |0X  , 'YLO  > 

160  FORMAT! 1 X , 13. 1P?E i3.M , 13» 

LNO 


1 2X  • 1 


000170 
000170 
000170 
OOO 1 7 0 
000170 
000170 
000170 
730  000170 


end  or  compilation; 


NO  DIAGNOSTICS. 


0HDG 


CPLOT 


►d 

P» 

eQ 

CD 
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yFOK.S  cplot 

FOR  SE2C-09/|9/7S-g9:3h:S7  C J • ) 


SUBROUTINE  CPLOT  l 

STORAGE 

USED:  CODEC  1) 

COMMON 

BLOCKS: 

0003 

GEL  1 

003M2M 

OOOH 

RZFl 

0536M6 

0005 

RZF2 

000331 

0006 

RZF3 

000267 

0007 

RZFM 

000152 

EXTERNAL  REFERENCES  (1 

0010 

SETUAV 

00 1 1 

LlNEUV 

0012 

PR  1 NT  V 

0013 

LA9LV 

0011 

nadus 

0015 

N102S 

0016 

NERR J* 

storage 

ASSIGNMENT  ( 

0001 

000023 

10L 

0001 

000213 

33L 

0005 

000205 

AMU 

0005 

000257 

BB 

0006 

000025 

CON  A 

0003 

300122 

D1SP 

0006 

000101 

OLZh 

0001  H 

001071 

DY 

0006 

000077 

E Z 

0006 

000032 

mtkek 

0006  | 

000251 

ihtop 

0006 

000057 

1PLR 

0006 

00000 > 

ITAPE 

0006 

000121 

JJL2 

0000  I 

000002 

JLP1 

0000  | 

OOOOOl 

JR 

0006 

000257 

kact 

0006 

000052 

KGMXPH 

0006  | 

000015 

KP 

0006 

00026C 

K 6 

0C06 

C30263 

M 

ODOR 

C30030 

NBC 

OC06 

030C6S 

NK  l N*a 

ENTRY  POINT  0002  7 1 


(BLOCK,  TYPE,  RELATIVE  LOCATION,  NAME) 


DOJI 

0000 

ooos 

OOOB 
0006 
0006 
0006 
GOJR 
OG  06 
COuO 
0003 
0007 
000*1 
0006 
0006 
0000 
0006 
0006 
0CJ6 
0GJ6 
vOwH 
0036 
03C  6 


000027 

00002$ 
000000 
000275 
C00026 
SoOuM  7 
000050 
000672 
000073 
OuGOu6 
000251 
000150 
000000 
000122 
000 1 2 ** 
00000* 
00006** 
00001  I 
0001 q2 
000261 
OoO 2q2 
00005$ 
OOOO^o 


1 3H  G 

35F 

ARMO 

BETAA 

C ONL 

OLTH 

DTMIN 

E 

FN1 

l 

UMAX 
1 SRS 

itemb 

JJL3 

jmax 

JRPl 

kaaay 

KIN 

KPRESS 

K9 

MPN 

nCORD 

nlpr 


3001 

jOO1* 
0CG6 
CCC5 
oO  36 
00  j6 
JCCR 

j006 
00-6 
00  j6 
0006 
0003 
0026 
0006 
0006 
0036 
0006 
0006 
J036 
OC  36 
uO  C 6 
JC  J6 
233  6 


030153  I 5 7 g 


J002  3*4 
0C003M 
00u2$0 
030027 
0b-*o36 
001)26 
030106 

0C0220 
OOO06O 
0C026M 
000233 
I 0000**0 
000120 
1 000  I $6 
000002 
l 000063 

00001 M 

OGOQH  6 
030262 
000303 

1 OGOJ^l 


A 

ASQRM 

beta! 

CON  Q 

OLTPH 

OV 

EMU 

FXTRA 

1CART 

INC 

l STOP 

J 

J JR  1 
JM1N 

jtape 

kcomp 

KH 

KSTOP 

L 

MT  APE 
ncvcle 

UP 


0001 

000106 

*0L 

0001 

000132 

30L 

0003 

000117 

ACC 

0005 

000266 

AKMO 

ooos 

000007 

AYLO 

0005 

000211 

AYLDI 

0006 

000070 

CAPA 

0006 

000075 

CAPC 

0000 

R 

000007 

CYCLE 

0006 

OOOOjO 

DINT 

0006 

000051 

dltz 

0006 

000103 

DLVh 

0006 

000253 

DVP 

0001 

001012 

dx 

0006 

000105 

EP 

0001 

ooim 

EQ 

0003 

000120 

gdt 

0006 

000033 

HTIEK 

0003 

000230 

IDUMP 

0003 

000232 

1 CD  1 T 

0000 

000051 

INJPS 

0003 

000231 

I PLOT 

0006 

000252 

ISUBC 

0007 

OOOISI 

1 SRS 

0006 

0001  IS 

JGMIN 

0006 

000 1 1 7 

J JL  1 

0000 

I 

000000 

JL 

0006 

000051 

JL  1 H 

0006 

000116 

JHNPl 

0006 

000062 

jold 

0006 

000016 

JO 

0006 

000037 

K 

0006 

000217 

KEQUAS 

0006 

1 000005 

kgmax 

0006 

000015 

kntrol 

0006 

000012 

KOUT 

0006 

I 

000013 

KZ 

0006 

000017 

KO 

0003 

000226 

LM  A X 

0006 

000061 

LOX 

0006 

C002 1 9 

MTRL 

0003 

1 000231 

name 

0006 

000012 

NED  1 T 

0006 

000007 

NKGE8 

0006 

0000 A 6 

NPLOr 

0006 

000053 

NRD#  T 
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CPLOT 


0006 

000013 

NRESTr 

0005 

000301 

NYT 

0005 

000052 

PA* 

OOOS 

000077 

PB2 

0006 

000020 

PMIN 

0006 

000266 

PZ* 

0007 

000032 

QXB 

0006 

000072 

SB 

0006 

0001  13 

SSP2 

0001 

000170 

SXY 

0001 

001211 

SZYY 

0005 

000115 

TILAA 

0005 

000160 

TILES 

0006 

000030 

TOT  KE 

0001 

000610 

TXY 

0006 

000255 

VELCUT 

0006 

000023 

VVC 

0001 

R 

001 160 

X 

0006 

R 

000211 

XMAX 

0001 

000032 

XP 

0003 

000062 

YBUL 

0001 

00006* 

YP 

0000 

R 

000005 

Y 2P 

00u6 

OOOOOI 

NT  APE 

0031 

030756 

P 

0035 

S0G232 

PA* 

0005 

000106 

PB3 

0036 

000)10 

PP 

0001 

001013 

Q 

0007 

000061 

QY 

0006 

000071 

SB  l 

0005 

0003 1 3 

STHARo 

000* 

oooioi 

SYY 

0003 

000227 

T 

0005 

000167 

TILALP 

0005 

000322 

TILESP 

0006 

000)23 

TSPL 

0001 

000551 

TYY 

0001 

001362 

VH 

0CU6 

000021 

WO 

0003 

000000 

XBUL 

0006 

R 000237 

XHIN 

00o6 

R 000213 

XTl 

0031 

000150 

YOH 

0006 

000  1 00 

YR 

3Cu6 

030056 

NVIS 

0005 

030025 

PAZ 

00w3 

000)11 

PBUL 

UCJ6 

000256 

PESCUT 

0036 

oooioi 

PSCALE 

0006 

0001 l 1 

9H 

0007 

000115 

QYB 

0003 

000250 

SHASS 

0001 

000136 

5TT 

0001 

001330 

SZTT 

0031 

000000 

TEHB 

0005 

000112 

TUB 

0005 

000)5) 

TiLEZ 

0006 

n 

000011 

ttime 

0003 

000253 

UBUL 

0006 

000067 

VP 

0003 

000123 

V ZERO 

0001 

000116 

XOH 

0006 

003232 

XMSS 

0096 

R 

000215 

XT2 

0006 

0001 11 

yield 

0036 

R 

000211 

YTI 

00101  1* 

00103  2* 

00107  3* 

00126  1* 

00127  5* 

00130  6* 

00132  T 

00132  a* 

00133  *• 

00136  1C* 

00110  U* 

001 1 1 12* 

00112  13* 

00111  11* 

00115  IS* 

00117  16* 

00150  17* 

00150  ia* 

00152  !*• 

00152  20* 

00151  21* 

00155  22* 

00156  23* 

00161  21* 

00162  25 • 

CO  163  26* 

00161  27* 


SUBROUTINE  CPLOT 
INCLUOE  GELCMN 
INCLUDE  CHAIN 
JL* JH 1 N 1 KCOHP 1 
JRaJHAA(KCOHP) 

IF  1 KCOHP » GT  » l ) GO  TO  10 

CALL  SETUAVUHlN.XMAX.THlN.THAX, SO. *71. 50,»71) 

C 

10  DO  30  J»JL.JR 

IF  I KCOHP.EQ.KGHA*)  GO  TO  20 

jlpi*jmin(kpi 

JRP  I ■ JHAX  t KP 1 

IF( J.LT .JLPl .OR.J.GT.JRPI > GO  TO  20 

CALL  LlNEUVlXI J,Kt) .V  I J.K2)  , X < J , KP ) , Y ( J ,K P > > 

20  IF( J.EQ.JR)  60  TO  30 

CALL  LINEUVlXU.K/l  .Y1J.KZ)  , X C J*  1 , KZ  1 , T ( J*  1 • < l • • 

30  CONTINUE 

IFdHTOP.EO.il  CO  TO  33 

c plot  rigio  boot  on  t0p  of  projectile 

Y 1 P» VT I *DY I 1 . KZ ) 

Y2PaYT2*OY(jR.X2l 
DO  32  1*1.3 

CALL  LlNEUVlXI l , K * I , Y ( 1 , Kt > , X T I . Y I P I 
CALL  LlNEUVlXl JR.kZ) ,Y(jR,k2) .XT2.Y2P) 

CALL  LINEUVlXTI.YiP.XT2.Y2P) 

32  CONTINUE 


«* 


0005 

000223 

NV|SM 

0005 

000031 

P A 1 

0005 

00036) 

PBZ 

0006 

000000 

PI 

0006 

000107 

PZ 

0006 

000251 

QRT 

0006 

000112 

RHO 

000* 

000252 

SHOW 

000* 

000121 

SVEL 

00**4 

0012)2 

szxx 

000*4 

000000 

TEHP 

0005 

000121 

TILBB 

0006 

000035 

TOTE 

000*4 

000606 

TTT 

OOOH 

000266 

V 

0006 

00002) 

V V A 

0006 

000217 

ATI 

0006 

000231 

XPOT 

0006 

000235 

XMSUH 

0006 

000236 

xvz 

0006 

R 0002*2 

ymax 

0006 

R 0002*6 

YT2 

OOOS 

0002)1 

NVISR 

OOOS 

000013 

PA2 

OOOS 

000070 

pb! 

BOOS 

003016 

PH 

0006 

000265 

PZl 

0007 

000000 

QX 

000*4 

001116 

RRR 

0006 

000079 

SN 

000*4 

000352 

sxx 

000*4 

001276 

SZXY 

OOOS 

000133 

TILA 

OOOS 

000176 

TILBET 

0006 

000031 

TOT  | E 

000*4 

000522 

TXX 

0003 

000335 

VBUL 

0006 

000022 

VVB 

0006 

000250 

WT2 

000*4 

000320 

XHASS 

0006 

000233 

XH  V 

000*4 

R 

000721 

Y 

0006 

R 

000210 

YhlN 

0000 

R 

OOOOQI 

YIP 

000000 
000000 
000000 
OQOOOO 
000002 
ooOooi 
000010 
000010 
000023 
0000* 1 
000011 
0Q0O17 
000051 
000065 
0Q0)06 
000)13 
000133 
000133 
000)33 
000)33 
OQO 1 36 
000)11 
000)53 
000151 
000)66 
000203 
000213 


CPLOT 


0016H 
00U6 
OOl  4 7 
00170 
00170 
60171 

00172 

00173 
0017*1 
00177 

00177 

00200 

00201 

00202 


20  • C 


29# 
30  • 
3 I • 
32* 
33* 
3*1  • 
35* 
34* 
37* 


33  CONTINUE 

CALL  PRiNTv(-72,N«ME,20,lCia) 

CALL  PKJNTlM-7l,7|HTlHE 
I CTCLE»20»10"0) 

CALL  LA8LV(TT1ME#0MiIOOOi-6iI »3) 

cycle-ncyclE 

CALL  LABLV(CYCLE*b20, 1000.9.1 *9) 

#R I TE ( 4 . 35 ) NCYCLt 

35  FORHAK/.lOX, 'CYCLE*. 14, 3X.1HAS  BEEN  PLOTTED  f 


/✓) 


30*  C 

39*  100  CONTINUE 

A0»  RETURN 

H | • END 


000213 

000213 

000213 

000220 

000220 

000224 

000234 

0Q0291 

000251 

000257 

000257 

000257 

000257 

000274 


end  of  compilation: 


NO  DIAGNOSTICS. 


ERROR 


tfHDG 


Page  22 


BFOR.S  ERROR 

FOR  SE2C-09/19/7S-091 35:01  (0,) 


ERROR 


SUBROUTINE  ERROR  ENTRY  POINT  0000*5 

STORAGE  USEOS  CODEC  I I 000017;  DATACO)  OOOO*4*!  BLANK  COMMON  C 2 1 000000 


COMMON 

BLOCKS 

• 

• 

0002 

GEL  1 

000H2M 

0004 

R2FI 

0S36H6 

0005 

RZF2 

000331 

0004 

RZF2 

000267 

0007 

RZF  *• 

000152 

EXTERNAL  REFERENCES  (BLOCK,  NAME) 


0010 

NNOUS 

00l| 

N102S 

0012 

NERR4S 

0013 

NERR3S 

STORAGE  ASSIGNMENT  (BLOCK,  TYPE,  RELATIVE  LOCATION,  NAME  I 


0000 

000000 

to  F 

0004 

000234 

A 

0003 

0004)7 

ACC 

0005 

000000 

ARHO 

0004 

000034 

ASQRH 

0005 

000007 

AYUD 

0005 

00027S 

BET  A A 

0005 

0002S0 

BETA  1 

0004 

000070 

CAPA 

0006 

000024 

CONE 

0004 

000027 

conq 

0004 

0000)0 

DINT 

0006 

000034 

DLTPH 

0004 

000051 

OLTZ 

0004 

000)03 

DtVH 

OOOR 

001 124 

uv 

0004 

000253 

D VP 

0004 

00)042 

D X 

0006 

000104 

EMU 

0004 

000105 

EP 

0004 

00)4)4 

EQ 

0006 

000220 

FXTRA 

0003 

000420 

GOT 

0004 

000033 

htiek 

0003 

000230 

IDUMP 

0003 

000232 

I ED  1 T 

0004 

00025) 

IHTOP 

0000 

000010 

INJP* 

0003 

00023) 

1PL0T 

0004 

000057 

1PLR 

0006 

000252 

ISUBC 

0007  I 

000)5> 

IS*S 

0004 

00000) 

1 T APE 

0006 

000115 

JGH1N 

0004 

0001 1 7 

J JL  1 

0004 

000)21 

J JL2 

0006 

000054 

JLl* 

0004 

000*24 

JM  AX 

0004 

000)54 

JHIN 

0006 

000002 

JT  APE 

0004 

000014 

JO 

0004 

000027 

K 

0006 

000043 

KCOMP 

0004 

0002 | 7 

KEQUAS 

0004 

000005 

KGH  A X 

0006 

0000)4 

KH 

0004 

000045 

KNTROt 

0004 

0000)2 

kOUT 

0006 

000044 

kstop 

0004 

000013 

Kl 

0004 

0000)7 

ko 

0006 

000242 

L 

0003 

000224 

lmax 

0004 

000041 

LOX 

0006 

000003 

HT  APE 

0U04 

000210 

HTRL 

0003 

000234 

NAME 

0006 

00004  1 

NCYCLt 

0004 

C00C42 

NEDIT 

0004 

000007 

NKGE6 

0006 

000074 

NP 

0004 

C30044 

NPLOT 

0004 

000053 

nrdrt 

0006 

000054 

N V 1 S 

0005 

000223 

NV1SM 

0005 

000214 

nvisr 

OC05 

000025 

PAZ 

0035 

000034 

P A 1 

0035 

000043 

paz 

0003 

000144 

PBUl 

0C05 

00004* 

PBZ 

0035 

000070 

PBl 

C006 

000254 

PESCUT 

0004 

03C000 

PI 

0095 

0000)4 

PM 

0006 

00010) 

PSCALE 

0C04 

000)07 

PZ 

3034 

30024S 

PZ  1 

0005 

000244 

0005 

000241 

0004 

000075 

000> 

000422 

0004 

000)04 

0004 

00)074 

0004 

000077 

0004 

000032 

0003 

000251 

0007  | 

i 000150 

0004 

000000 

0004 

000122 

0004 

0001 1 4 

0004 

000257 

0004 

000052 

0004 

000015 

0004 

000240 

0004 

000243 

0004 

000000 

0004 

000045 

0004 

000043 

0005 

000304 

OOoS 

000052 

0005 

000077 

0004 

000020 

0004 

000244 

AKMO 

0005 

AYLDI 

0005 

CAPC 

0004 

DISP 

0006 

OLZH 

0004 

OY 

00Q4 

EZ 

6004 

HTKEK 

0004 

UMAX 

0006 

1SRS 

0003 

1TEMB 

0006 

JJL? 

0006 

JMNP1 

0006 

kact 

0006 

KGMXPH 

0006 

KP 

0006 

K6 

0006 

M 

0004 

NBC 

0006 

NK1NG 

0006 

NRESTR 

0006 

NYY 

0004 

PA3 

0005 

PB  2 

0005 

PM  l N 

0006 

PZ2 

0004 

0002Q5  AMU 
000257  BB 
000025  CONa 
000047  OlTh 
000050  OTM I N 
000572  E 
000072  FN) 
000040  ICART 
000244  JNC 
000222  1ST  OR 
000040  J 
000120  JJR I 
000042  JOLD 
000064  KARAT 
OOoOfl  KJN 
000102  KfRESS 
00024*  Kt 
000202  MPN 
000055  NCORO 
000004  NLRR 
000004  NT  APE 
000754  p 
000222  PA4 
000)05  Pa2 
OOOIIO  PP 
001010  0 
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0004 

0001  1 1 

0JJ6 

000251 

QRT 

0007 

000  1 1 4 

y YH 

0006 

0001  I 2 

R HO 

0003 

0002S0 

SMASS 

0&w»3 

000252 

5M0H 

0001 

000134 

STT 

0003 

000121 

SVEL 

0001 

001330 

SZTT 

0004 

001212 

szxx 

0001 

OOOOOO 

temb 

0004 

OOOOOO 

temp 

OOOS 

000 1 M2 

T ILB 

OOOS 

000121 

T I LBB 

000& 

oooisi 

TILEZ 

0006 

000035 

TOTE 

0004 

OOOOH 

TTIME 

000* 

000404 

TTT 

0003 

0002S3 

UBUL 

0004 

000244 

V 

0004 

000047 

VP 

0006 

000021 

V V A 

0003 

000123 

V ZERO 

0036 

000217 

* T 1 

0001 

0001  1 4 

X OH 

0006 

000231 

XFDT 

0004 

000232 

XMSS 

0006 

000235 

XMSUM 

0004 

000215 

XT2 

0036 

000234 

XVZ 

0004 

000 1 1 1 

YIELD 

0006 

000212 

TMAX 

0004 

000211 

YT  1 

0036 

000214 

Y T 2 

00101 

1 • 

SUBROUTINE  error 

00103 

2« 

include  gelcmn 

00107 

3* 

INCLUDE  CHAIN 

00126 

*RlTE(6f  10)  ISRS.  1S*S 

00132 

S* 

10  FORMAT (/// i 10X #•  ISRS* • • 

00133 

6« 

RETURN  0 

00134 

7 • 

END 

END  OF  COMPILATIONS  NO  DIAGNOSTICS 


SHOG 


ERROR 


OC  37 

OOOOOO 

yx 

doji 

03H14 

RRR 

JC34 

030071 

$N 

acoi 

030352 

sxx 

0031 

CO  1 274 

SZXY 

O005 

300133 

TILA 

0005 

000174 

TILBET 

0004 

000031 

TOT  l E 

0001 

000522 

TXX 

0003 

000335 

VBUL 

0004 

000022 

VVB 

0004 

000250 

*T2 

0001 

000320 

XMASS 

0004 

000233 

XMV 

0001 

000721 

Y 

0004 

000210 

YMIN 

SX.MSAS-*. !*••///» 


0007 

000032 

Qxa 

0004 

000072 

SB 

0004 

0001 13 

S5P  2 

0001 

000M70 

SXY 

0001 

0012H4* 

SZYY 

0005 

0001  IS 

tilaa 

0005 

000160 

tiles 

0004 

000030 

TOTKE 

0001 

0006H0 

TXY 

0004 

0002SS 

VELCUT 

0004 

000023 

we 

OOol 

001160 

X 

0004 

000241 

XMAX 

0001 

000032 

xp 

0003 

000062 

ybul 

0001 

000064 

YP 

0007 

000041 

QY 

0004 

000071 

SB  1 

0005 

0003)3 

STHaRD 

Oooi 

0O0101 

SYY 

6003 

060227 

T 

0005 

000147 

tilalp 

0005 

000322 

TlLCSf 

0004 

000123 

isn 

0001 

000SS1 

TYY 

0001 

001342 

VM 

0004 

000021 

VVP 

0003 

oOoooo 

XiUL 

0004 

000237 

XMIN 

0006 

000213 

XT  1 

0001 

O0OISO 

ydh 

0006 

000100 

VR 

OQOOOO 

oooooo 

OQOOOO 

OOOOOO 

000006 

000004 

OoOoli 


GEO  I T 
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6E0  1 T 


0FOR.S  GEOIT 

FOR  5E2C-09/19/75-0»:35:03  0,1 


SUBROUTINE  GEO  1 T ENTRY  POINT  OOOlSl 


storage  used:  cooeih  oooiai:  data<0)  ooooahj  blank  cohmonui  oooooo 


COMMON 

BLOCKS 

• 

• 

0003 

GEL  1 

00QM2H 

0004 

RZFI 

053AH6 

OOOS 

RZF2 

000331 

0006 

0007 

RZF3 

RZF4 

000267 

000152 

external  REFERENCES  (BLOCK,  NANE) 


0010 

KREAD 

0011 

ntran 

0012 

ERROR 

0013 

NftDUS 

0014 

N 1 03f 

oois 

N 1 02S 

0016 

NERR3S 

storage  ASSIGNMENT  (BLOCK,  TYPE,  RELATIVE  LOCATION,  NAME) 


0001 

OOOOS3 

10L 

0000 

000002 

101F 

0000 

000005 

10*F 

0000 

00003S 

1QSF 

0001 

000021 

13HG 

0001 

000101 

1S*G 

ooos 

000266 

AKMO 

0005 

00020S 

AMU 

0005 

OOOOOO 

ARHO 

ooos 

000241 

AYLO  1 

ooos 

000257 

BB 

ooos 

000276 

betaa 

0006 

000075 

capc 

0006 

000025 

CONA 

0006 

000026 

CONL 

0003 

000422 

D1SP 

0006 

000047 

OLTH 

0006 

000036 

dltph 

0006 

000104 

OLZH 

0006 

000050 

DTM1N 

0004 

001126 

ov 

OOOH 

001074 

OY 

0004 

000672 

E 

0006 

OGU 106 

EMU 

0006 

000077 

EZ 

0006 

000073 

FN1 

0006 

000220 

FXTRA 

0006 

000032 

HTKEK 

0006 

000060 

ICART 

0003 

000230 

IDUMP 

0003 

00025 1 

I KM  AX 

0006 

000264 

INC 

0000 

000046 

JNJPS 

0007 

1 000150 

1SRS 

0003 

000233 

1 STOP 

0006 

000252 

1SUBC 

OOOH 

OOOOOO 

ITEMS 

0006 

I 

000040 

J 

0006 

009U5 

JGM  I N 

0006 

000122 

jjl3 

0006 

000120 

J JR  1 

0006 

0001)54 

JL  1 M 

0006 

0001 16 

JMNPI 

0006 

000062 

JOLD 

0000 

t OOOOOO 

JRD 

0006 

000016 

JO 

0006 

1 

000037 

K 

0006 

000257 

K ACT 

0006 

000217 

kequas 

0006 

I 

oooocs 

KGMAX 

0006 

000051 

KGMXPH 

0006 

000045 

kntrol 

0006 

000012 

KOUT 

0006 

000015 

KP 

0006 

000013 

KZ 

0006 

000017 

KO 

0006 

000260 

Kb 

0003 

000226 

LM  AX 

0006 

000061 

LOX 

0006 

000263 

M 

0006 

000210 

MTRL 

0003 

1 

000234 

NAME 

0C04 

) OOOOOO 

NBC 

0006 

000042 

NEDiT 

0006 

C00C07 

NKGEB 

00  C 6 

000065 

NX  I N G 

0006 

000066 

NPLOT 

0006 

000053 

N R D « T 

J0C6 

000043 

nRESTR 

0000 

0000)2 

I03F 

0000 

0000|6 

OOOH 

R 

000234 

A 

0003 

060447 

000  A 

000034 

ASQRM 

0005 

000007 

ooos 

000250 

BETA) 

0006 

000070 

0006 

000027 

CONQ 

0006 

000010 

0006 

000051 

dltz 

.0006 

000103 

0006 

000253 

D VP 

0004 

001042 

0006 

000)05 

EP 

0004 

001414 

oooJ 

000420 

GOT 

0006 

000033 

0003 

000232 

1E01T 

0006 

000251 

0003 

000231 

1 PLOT 

0006 

000057 

0007 

OOOlSl 

1 sws 

0006 

I 

00000 1 

0006 

0001)7 

J JL  1 

0006 

000121 

0006 

1 

000124 

JM  AX 

0006 

1 

0001*4 

0006 

000002 

JTAPC 

Oooo 

I 

000001 

0006 

000064 

KAWAY 

0006 

000063 

0006 

00001 1 

K | N 

0006 

0000)4 

0006 

000)02 

KPRESS 

0006 

000046 

0006 

000261 

K9 

0006 

I 

000262 

OOOH 

1 

000202 

MPN 

0006 

000003 

0006 

000055 

NCORD 

0006 

000&RI 

0006 

000006 

nlpr 

0006 

000076 

0006 

000004 

ntape 

0006 

0000S6 

10**F 

ACC 

AYLO 

CAfA 

OINT 

OLVh 

DX 

CO 

HUE*: 

IHTOP 

I PLR 

ITAPB 

JJL2 

JH1N 

J*T 

KCOhP 

KH 

KSTOP 

L 

HTAPE 

NCYCCC 

NF 

NVIS 


gedit 


0305 

000223 

NY  1 Srt 

ocos 

0002J  * 

NV  IS* 

30  jS 

0C030* 

NYY 

0005 

00003* 

PAl 

0035 

0000*3 

P A 2 

O005 

300052 

P A 3 

0005 

0000*1 

P 8 Z 

ecus 

300070 

P0I 

coos 

00CU7  7 

PB2 

ooo<> 

OOOOOO 

PI 

0005 

00001* 

PM 

OOj* 

000020 

PMJn 

0006 

000107 

PL 

0006 

060265 

PZ  l 

003* 

03026* 

PZ2 

0006 

00025* 

QRT 

0007 

OOOOOO 

gx 

3007 

030032 

gxs 

0006 

OCOI  12 

rho 

000*1 

00 1 *** 

RRR 

300* 

000072 

SB 

0003 

0002S2 

5M0M 

0006 

00007* 

5N 

003* 

0001 13 

5SP2 

0003 

000*21 

SVEL 

OOoR 

000352 

sxx 

000* 

000*70 

SXY 

000*4 

001212 

SZXX 

000*4 

00127* 

SZXY 

ooo* 

0012** 

SZYY 

000*4 

OOOOOO 

TEMP 

0005 

000133 

tila 

0005 

0001  15 

TIUAA 

0005 

00012* 

T ILBtt 

0005 

00017* 

TILBEt 

0005 

0001*0 

tiles 

0006 

000035 

TOTE 

0006 

000031 

totie 

000* 

000030 

TOTKE 

000*4 

000*0* 

ttt 

000*4 

000522 

T X X 

000* 

000**0 

TXY 

000*4 

R 0002** 

V 

0003 

000335 

VBUL 

000* 

000255 

VELCUT 

0006 

000021 

V V A 

00  J6 

000022 

V V B 

000* 

000023 

VVC 

0006 

0002*7 

A T 1 

0006 

000250 

A T 2 

600* 

R 0011*0 

X 

0006 

00023* 

xpot 

000*4 

R 0u0320 

XMASS 

oco* 

0032*1 

XM  AX 

0006 

000235 

XMSUM 

0006 

0u0233 

X MV 

*03* 

330J32 

XP 

0006 

00023* 

xvz 

0CU*» 

R 000/2* 

Y 

0003 

0030*2 

YBUL 

0006 

0006 

0002*2 

0002** 

Y M AX 
YT2 

0006 

0002*3 

YMIN 

000* 

3C0o6* 

YP 

OOIOI 

1 • 

SUBROUTINE  GEDIT 

00103 

2 • 

INCLUDE  GElCMN 

00103 

3» 

C 

00103 

R* 

C 

SUBROUTINE  GEO  1 T PRINTS  OUT  GENERATOR  OUTPUT 

00103 

5« 

c 

00107 

4* 

INCLUDE  CHAIN 

00107 

T 

c 

0012* 

!• 

WRITE!*. 101)  NAME 

00131 

?• 

WRITE!*.  102) 

00131 

I0« 

c 

00133 

l 1 • 

DO  100  K"l  .KGHAX 

0013* 

12* 

JRD-JMIN(K) 

00137 

13* 

JWT-JHAA (K) 

001*0 

IR* 

L»K 

001*1 

IS* 

lFtKGMAX.LE.9B)  GU  TO  13 

001*3 

1 4 * 

L*  1 

001** 

l 7 • 

CALL  KREA01 ITaPE.I ) 

001*5 

IB* 

CALL  NTRAN1 ITaR£.22) 

001** 

IV* 

if i isrs.le.O)  Call  error 

00150 

20* 

10 

WRITE!*! 103)  K 

00153 

21* 

*R 1 TE ( * i 10* ) 

00153 

22* 

c 

00155 

23* 

DO  90  J-JRD.JWT 

001*0 

2 R • 

WRITE  I*. 105)  J.HPnIJ.L) .NtfCtJ.U  , * 1 J , L ) . Y 1 J . L ) . XH A 

O0l*0 

2S  • 

1 A < 3 a L ) i V 1 J iL 1 

00172 

26* 

90 

CONTINUE 

00172 

27* 

c 

CO  1 7 * 

28* 

100 

CONTINUE 

ooo* 

ooos 

0005 

00&6 

000** 

0007 

000* 

0005 

000*1 

0003 

0005 

0005 

000* 

000*1 

000* 

000* 

0003 

OOO* 

000* 

000* 

000* 


SS< J.L) 


00075* 

P 

000232 

PAR 

00010* 

PB  3 

0001  10 

PP 

001010 

Q 

0000** 

QY 

000071 

SB  1 

000313 

STHARO 

000*0* 

SYY 

000227 

T 

0001*7 

T I L ALP 

000322 

tilesp 

000123 

TSPL 

00055* 

TYY 

0013*2 

VH 

00002* 

WO 

OOOOOO 

XBUL 

000237 

X M | N 

0002*3 

XTl 

000150 

YOH 

oootoo 

YR 

0005 

000025 

PAZ 

0003 

0001** 

P8UL 

3006 

00025* 

PESCUT 

000* 

OOOlOl 

PSCALE 

0006 

0001 1 1 

QH 

0007 

00011* 

QYB 

0OO3 

000250 

SHASS 

000* 

000*3* 

STT 

Ooo* 

001330 

SZTT 

000* 

OOOOOO 

tcmb 

0005 

0001*2 

TUB 

0005 

000151 

TILEI 

OOO* 

0000** 

TTIMC 

0003 

000253 

ubul 

OOO* 

000067 

VP 

0003 

000*23 

VZCRO 

000* 

00011* 

XOH 

OOO* 

000232 

XHSS 

0006 

0002*5 

XT  2 

OOO* 

OOOM* 

yield 

Ooo* 

0002** 

YTl 

000000 
000000 
000000 
ooOooo 
OoOote 
•oOtoo 
••0000 
00*800 
00001  I 
OOOOI 1 
000021 
000021 
000023 
000025 
000027 
00&033 
00003* 
0000*1 
0000** 
0Q00S3 
0800*7 
0000*7 

Oo6|OI 

OOOlOl 

ooflioi 

000122 

000122 

000122 


OOI7M 

2** 

c 

00176 

30* 

IFtKGMAX.OT.UB)  Call  NTRANdTAPE. 10.221 

00200 

31* 

RETURN 

00200 

32* 

c 

00201 

33* 

101 

F0RHAT11H1 «20X,12a*»//) 

00202 

3M* 

102 

F0RHATI35X, 'GENERATOR  OuTPut'./) 

00203 

35* 

103 

FORMATt/.IOX.'K-L|NE' , M./l 

0020M 

36* 

10H 

F0RMAT12X»'J* »3X»'MPN' . 2 X , • NBC • . 1 2X  . ' X • 

0020M 

37* 

l IOX.  • A* , I2X . ' V' » 

00205 

38* 

105 

FORMAT! IX, 13, 215. *X, IPSE  13. Rt 

00206 

39* 

END 

END  of 

COMPILAT I 

ONI  no  DIAGNOSTICS, 

0HDG 


GEN 


I2X.'Y'.I0X, 'HASS', 


000|22 
000122 
000133 
OflO 1 33 
000 |*0 
000|AO 
000|*0 
000|*0 
0001*0 
000|*0 
0001*0 
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BFOR  9 5 OL‘N 

FOR  SE2C-09/I?/7b-c9:3b:OS  ( 3 i ) 


SUBROUTINE  Vi  e N 


entry  point  -iGI^ 


STORaOE  used:  CODE!!)  OOU3J;  DaTaIO)  0OOS6S;  blank  COMMON  ( 2 ) OOCOOO 


COMMON 

BLOCKS; 

0003 

SEL  1 

090*42*4 

ooos 

RZFl 

0536*46 

OOOS 

RZF2 

0C0331 

0006 

R2F3 

090267 

0007 

RZFS 

099 1 5 2 

0010 

SNR  T 

0091*42 

tXTERNAl 

. REFERENCES  (l 

0011 

NERR2S 

0012 

NRDUS 

0013 

NI02S 

00  is 

N101S 

0015 

NADUS 

OOlo 

NERR3S 

STORAGE 

ASSIGNMENT  { 

0001 

000007 

lot 

0001 

00037S 

2 CL 

0000 

0300  2 S 

330F 

ocoo 

000076 

3 8 OF 

0000 

000 1 S3 

MNCF 

0000 

000302 

S90F 

0000 

000370 

530F 

0001 

000760 

573g 

0001 

CO  1363 

6*406 

0000 

003S63 

666F 

0003 

OOOS | 7 

ACC 

0006 

00003S 

aSwrm 

OOOS  H 

CC02S0 

BETA  l 

0006  R 

000327 

CONQ 

0003 

030S22 

D1SP 

0006 

000103 

DLVH 

ooos 

0010S2 

DA 

ooos 

OOISIS 

EO 

0006 

000033 

HT  1EK 

0303 

030232 

IED1T 

0000 

003SM7 

INJPS 

0303  1 

000233 

J S TOP 

0310 

003 1 32 

1 SUB  7 

name  ) 


0001 

OOCl 

0001 

0030 

oo^c 
0001 
00  J 1 
9031 

0031 
0330 
JOOS 

ooos 

00j6 
0010 
0306 
0006 
00J*4 
0036 
00  j6 
C036 
3313 
CO'J  6 
j - j7 


000557 

031  ICO 
OOC33S 
0001 17 
000171 
C 0 0 6 | 3 
0007  Q*4 
030773 
OOl iji 
OwCboO 
CJ0266 
000007 
000070 
000102 
0000*47 

COOlG1* 

03107*4 

000077 

000032 

0C025I 

COOlo** 

900252 

900151 


l SOL 

2C0L 
3320 
385F 
HS3T 
SC30 
5Hbu 
6020 
6*470 
66QF 
A K HO 

ayld 

CAPA 

DELR 

OLlH 

0L2M 

DY 

EZ 

HTKEK 
l H TOP 
INTVS 
ISUBC 
ISAS 


00  3 1 

coai 

uOuO 

00  JO 

OCuO 

30  JO 

OOoO 

OC  ~3 

UOJO 

G u 9 3 

DOLiS 

J00& 

0C06 

0010 

jO  10 

0CQ6 

C0Q*4 

OC  36 

3000 

JO  10 

00'3 

OC  10 

3C  . 6 


090uS5 

900*10 
C 0 0 0 2 6 

3 GU 1 37 
OOJ22*1 
030J2C 
039N044 
339*4  l *4 
930*430 
OCu&O7 
* 900205 
H 3 ju2  H I 

000075 

00UJS6 
000077 
R OCOoSO 
000*72 
0C0073 
] 300001 
I 0J0i>72 
330231 
9 0 J i 2 7 
t 0:9,01 


1 S 7 (| 

30L 

350F 

393T 

*470F 

513F 

559F 

61  Of 

663  r 

6 7 OF 

AMU 

AYLOl 

CAPC 

DEL* 

DLTMA 

dtmn 

E 

FNl 

1 

l< 

IPLOT 
1 SUB  1 


0001 

0007 JS 

I40L 

0001 

001022 

170t 

oooo 

ooooos 

3 | OF 

oooo 

000006 

320F 

0000 

0000S2 

369F 

000Q 

000067 

370F 

0001 

ooossi 

*»0L 

OOOO 

OOOl S7 

HOOF 

0090 

000237 

H60F 

3000 

0002S7 

h?of 

000  1 

000627 

51  3G 

3300 

0003S6 

S20F 

0031 

0007ZO 

5556 

3301 

0007MS 

56Hg 

□ OOl 

OOl 30* 

61  1G 

0001 

00 1 OS  2 

626G 

OOjO 

00CH3  1 

662F 

doao 

OOOSSS 

6 6 H F 

oooo 

OOOS | 3 

6 8 OF 

ooos 

00023S 

A 

0910 

R 

300107 

AREF 

ooos 

OOOOQO 

ARHO 

0005 

R 

0002S7 

BB 

ooos 

R 

00027S 

betaa 

0006 

R 

00002S 

CONA 

0306 

R 

000026 

conl 

0010 

R 

000102 

DEL  Y 

0006 

n 

000010 

0 l NT 

0006 

R 

000036 

dltph 

0006 

n 

OOOOSI 

OtTZ 

000*4 

00112* 

DV 

0006 

000253 

D VP 

0006 

000106 

EMU 

0006 

OOOIOS 

EP 

0006 

000220 

FXTRA 

0003 

000S20 

GOT 

0096 

I 

000060 

l CART 

0003 

0002)0 

IDUhP 

OOl)  3 

| 

0002SI 

1 KM  A X 

0006 

00026S 

INC 

0096 

1 

0000S7 

1PLR 

0007 

000  ISO 

15R5 

90  1 0 

0001 30 

ISUB2 

0010 

000131 

1 SUB  3 

000*4 

300 JOO 

ITEMS 

0006 

ooooso 

J 
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GEN 


0010 

I 

000007 

JGEB 

0006 

000122 

JJL* 

0006 

000156 

JM1N 

0006 

1 

000002 

JT  APE 

0010 

I 

000100 

KC 

0006 

000011 

KIN 

0006 

000012 

KOUT 

0006 

000017 

KO 

0006 

000061 

LOX 

0006 

I 

000210 

MTRL 

0006 

000051 

NCYCLE 

0000 

1 

000005 

nkzons 

0010 

I 

000067 

NRC 

0000 

1 

000003 

ntjgeb 

0005 

000756 

P 

0005 

R 

000232 

pah 

0005 

R 

000)06 

PB  ^ 

0006 

000110 

PP 

0005 

001010 

Q 

0007 

000065 

QY 

00  to 

R 

000075 

RHIN 

0003 

000252 

SMOM 

0003 

000521 

S VEL 

0005 

001212 

szxx 

0005 

OOOOOO 

TEMP 

0005 

R 

000)52 

TILB 

0005 

R 

000151 

T 1LEZ 

0006 

000055 

TTIME 

0003 

000253 

ubul 

0006 

000067 

VP 

0003 

000523 

VZERO 

0010 

R 

000026 

X CM  A X 

0005 

000320 

XMAS5 

0006 

000233 

XMV 

0006 

R 

000255 

XTZ 

0010 

R 

000056 

t CM  A X 

0006 

R 

000252 

YMAX 

0006 

000100 

YR 

0010 

l 

0U0370 

JGMAX 

0006 

000120 

JJR1 

00 10 

1 

000133 

JhlNG 

0006 

000016 

JO 

0006 

000063 

KCOMP 

0006 

000015 

Kh 

0006 

000015 

KP 

0006 

000260 

K A 

0010 

1 

oooioi 

LRC 

0003 

000235 

NAME 

0006 

000052 

NEDI  T 

0006 

1 

000006 

NLPR 

0006 

000053 

nrdnt 

0006 

000056 

NVIS 

0005 

R 

000025 

PAZ 

0003 

000155 

PBUL 

0006 

R 

000256 

PESCUt 

0006 

oooioi 

PSCALE 

0006 

0001  1 1 

QH 

0007 

0001)6 

MYB 

0005 

COI 556 

RRR 

0006 

0U0075 

SN 

0005 

020352 

sxx 

0005 

CO  1 276 

SZXY 

0010 

R 

000016 

theta 

0005 

R 

000125 

tilbb 

0006 

000035 

TOTE 

0005 

000606 

TTT 

0005 

000266 

V 

0006 

000021 

V V A 

0006 

R 

000257 

ATI 

0010 

R 

000016 

XCH1N 

0006 

R 

00025 1 

XMAX 

0005 

000032 

XP 

0010 

00010s 

XVINT 

0010 

R 

0j0036 

Y CM  1 N 

0006 

R 

000250 

YM  1 N 

0006 

R 

000255 

YTI 

0006 

I 

0001 15 

JGM|N 

0006 

000055 

JLIM 

0006 

0001)6 

JMNPI 

0006 

000037 

K 

0006 

1 

000217 

KEQUAS 

0010 

1 

000065 

KM  AX 

0006 

000102 

KPRESS 

0006 

000261 

K* 

0006 

1 

000263 

M 

0005 

OOOOOO 

NBC 

0010 

| 

000071 

NJGEB 

0000 

1 

OOOOOO 

nmtrls 

0000 

I 

000002 

NREG 

0005 

000223 

NVISM 

0005 

n 

000035 

P A 1 

0005 

R 

000061 

PBZ 

0006 

R 

OOOOOO 

PI 

0006 

C00107 

PZ 

0006 

R 

000255 

QRT 

0010 

K 

000076 

rcalc 

0006 

000072 

SB 

0006 

0001  13 

SSP2 

0005 

000570 

SXY 

0005 

001255 

szyy 

0005 

n 

000133 

T1LA 

0005 

R 

000176 

TILBET 

0006 

000031 

TOT  l E 

0005 

000522 

TXX 

0003 

000335 

VBOL 

0006 

000022 

VV8 

0006 

R 

000250 

AT  2 

0010 

00007S 

XCNTR 

0006 

R 

000237 

xhin 

0010 

000073 

XPLRMN 

0006 

R 

00023* 

X V Z 

0010 

000076 

YCNTR 

0005 

000065 

YP 

0006 

R 

000256 

YT2 

acioi 

00103 
00107 
00126 
00126 
00126 
00126 
SO  I 26 
00126 
00126 
00126 
CO  12  6 


2» 

3* 

5* 

5* 

*• 

T 

8» 

10* 

I I* 
12» 


subroutine  gen  (1tihe.Ni 

INCLUDE  GELCMN 

incluoe  CHAIN 

INCLUDE  CGEN iL I st 

omment  read  in  Input  fob  entire  grid# 

•••••  input  for  entire  cR*m  grid  ••••• 

CONA  — ANISOTROPIC  0 constant 

CONL  — LINEAR  U CONSTANT 

CONQ  — OUAORATIC  0 CONSTANT 

UINT  --  INITIAL  DELTa-t 


0006 

000117 

JJLl 

0006 

000125 

JMAX 

0006 

000062 

JOLD 

0006 

1 

000257 

kact 

0006 

l 

000005 

KGMAX 

0010 

l 

00006* 

KM  I N 

0006 

000056 

KSTOP 

0006 

l 

000262 

L 

0005 

000202 

MPN 

0010 

00011* 

NCONE 

0006 

I 

000007 

NKGE0 

0006 

000076 

NP 

0006 

000053 

NRE5TR 

0005 

1 

0002|5 

NV  I SR 

0005 

R 

000053 

PA2 

0005 

R 

000070 

PBI 

0005 

R 

00001* 

PM 

ooo* 

000265 

PZl 

0007 

OOOOOO 

QX 

000  6 

0001 12 

RHO 

0006 

00007 1 

SB  1 

0005 

R 

000313 

sthard 

0005 

000505 

SYY 

0003 

000227 

T 

0005 

R 

0001)5 

tilaa 

0005 

R 

000)60 

tiles 

0006 

000030 

TOTKE 

0005 

000650 

TXY 

0006 

R 

0002S5 

VELCUT 

0006 

000023 

VVC 

0005 

00)160 

X 

0005 

000116 

XDH 

0006 

R 

000232 

XMSS 

0010 

000103 

xplrmx 

0005 

000725 

Y 

0005 

000150 

YDH 

0010 

000075 

yplrmn 

0010 

00010* 

Y V 1 NT 

c 10 
C 20 


0006  000121  JJL2 

0010  | 0001)7  JHAXG 
6010  I O0OOOO  JREG 
0006  000065  M*aT 

0006  I 000052  K6HXPN 
0006  00005S  KNTfttL 

0006  0000*3  KZ 

0003  | 000226  LHAX 
0006  I 000003  HTAPC 
0006  I 000055  NCORD 
0006  000065  NKING 

0006  000066  NPLOT 

0006  000005  NTAPE 

0005  | 060J01  NTT 
0005  R OOOOS2  PA J 

0005  R 000077  PB2 

0006  000020  PHlN 

0006  000266  PZ2 

0007  000032  0X6 

0010  R 000126  RMAX 
0003  R 066250  SHASS 
OOOR  000536  STT 
6005  06)330  SZtT 

0005  000000  TCRB 

0005  R 006167  TILAWP 

0005  R 000322  T)LE$P 

0006  000123  TSPL 

0005  000555  TYV 

0005  001362  VH 

0006  000025  VVO 

0003  O000QO  XBUL 
0006  000235  XPOT 

0006  006235  XMSUH 

0006  R 000253  XTl 
0003  O0OO62  TBUL 
0006  0001)5  T|ELO 

0010  000126  TPLRNX 


000000 

000000 

000000 

000000 

ooOooo 

oooooo 

OOOOOO 

OOOOOO 

oooooo 

oooooo 

oooooo 

oooooo 
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00126 
00126 
00126 
00126 
00126 
00126 
00126 
00126 
00126 
00126 
00126 
00126 
CO  I 26 
00126 
00126 
00126 

00126 
00126 
00126 
00126 
00126 
00126 
00126 
00126 
00126 
00126 
00126 
00126 
00126 
00126 
00126 
GO  I 26 
00126 
00126 
00126 
00126 
00126 
00  I 26 
00126 
00126 
00126 
00126 
00126 
00126 
00126 
00126 
00126 
00126 
00126 
00126 
00126 
00126 
00126 
00126 


Gt' 


I 3* 

C 

D T M l N 

1 H • 

c 

IS* 

c 

I K M A X 

16* 

r 

I PL* 

17* 

C 

18* 

c 

I TAPE 

19* 

c 

ihtqp  -- 

20* 

c 

JMAXG 

21* 

c 

JMING 

22* 

c 

JT  APE 

23* 

c 

KGMAX 

2 H • 

c 

KMAX 

2S  • 

c 

kstop 

26* 

c 

lmax  -- 

27* 

c 

MT  APE 

28* 

c 

ncord 

29* 

c 

30* 

c 

NEDI  T - 

31* 

c 

NKGCB 

32* 

c 

NMTKLS 

33* 

c 

PEScUl 

3 H • 

c 

QRT 

3S* 

c 

YfLC JT 

36* 
3 7* 
38* 
39* 
HO* 
HI* 
H2* 
H 3 • 
MM* 
H 5 • 
H 6 • 
H7* 
M8* 
M9* 
SO* 
SI* 
S2* 
S3* 
SH* 
SS* 
S6* 
57* 

58  • 

59  • 
60* 
6|  • 
62* 
63* 
6 M • 
65* 
66* 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


--  MlNlhUti 
P * 0 b L E !> 
N U H d E rt  o ►* 

--  F-UAL  i 


dEcf>M£b  L£j5  TPAf  DTMlu 


0 1 L 1 A-T  c l r 
*ILL  ) 

RECORDS  tyLLR  rill  b*ir  J'l  *Z  STA9I 

tor  c - « • s i a n i«cU*c.try.  E ? v.  a l f0R 

CYLINDRICAL  GtDMCIRf 
--  TtMPO«A«T  D K li r • rluE 
1hT0P*|  nO  HA«dt^H»  IhT^P»2  FUR  mARD  TOP 
--  MAXIMUM  J OF  GEOMETRIC  block 
--  MINIMUM  j OF  GEOMETRIC  BLOCn 
--  TEMPORARY  DRu*  F IlE 
--  NUMbCR  OF  K-Ll‘MES  IN  GRID 
--  MAXIMUM  a OF  GEOMETRIC  BLOCK 
--  CYCLE  TO  TERMINATE  *Un 

number  of  boundary  points  ro  transmit  to  euler 
--  restart  tape 

--  EQUAL  i T-fR  CARTESIAN  lOOHoINAIES*  EOUaE  2 
POLAR  v.0- RE  InATlS 
- CYCLE  FREQUENCY  Jf  printout 

--  NUMBC*  OF  GEpVETRIC  BlOCKS  . Y D|RtCT;OS 
--  riUMBFR  OF  a T E R j ^ L S I*«  P»0Uk.‘^ 

--  CUToF f Fur  PfSbUKE.  t E R G i ANu  STRESS 
--  R3TAT  l j N A L G C ) iS  I A n T 
--  /cLOC I TY  CUT ;FF 


FOR 


»•••*  INPUT  FOR  A K GEOmEThIC  6LuCk 

aref  --  reference  density  l R H 0 NOT) 


JGEO 

JREG 

keuuas 

mTRl 
NKEG 
NVISR  - 


•-  J AT  »HICH  DELTA  X CHANGES 
--  J AT  rtHlCH  MATERIALS  CHANGE 

►-  EOUATIjN  OF  STaTE  NUMBER  EQUAL  I FOR  POLYNOMIAL 
EQUAL  2 FOR  TlLLOfSON 
..  NUMBER  OF  material 

--  NUMpEK  01-  MaTEkIaL^  I ■<  a K GEOMETRIC  &LOC* 

- t/lSCOslTY  OF  REGION  lQual  I F OR  QUADRATIC  Q ONLY 
2 FOR  QoAOKATjC  ♦ uIM»w  3 ► OR  qUAuRATjc  ♦ LINEAR 

♦ anisotropic 


POLYNOMIAL  EQUaTIO,*  OF  STATt  CONSTANTS 

PA2*Aj,  PAI-AI,  p A 2 * A 2 • P A J » A J , PAM«aM,  pBZ^RCt 
Pb  2 » B 2 t Py  3 * B 3 t AMU«briFA*  mOOUEUS,  aYlD*YIFLO  POJnT 
PM«MlNlMUh  PRESSURE  ALL  >»CD  lr  P LESb  PM  P«Ph 

RMAX  — MAXIMUM  R OF  GEOMETRIC  BLOCK 
KM  I N --  MINIMUM  R OF  GEOMETRIC  BLOCK 
THETA  — ANGLE  Of*  GEOMETRIC  slock  in  degrees 

TILLOTSON  EQUATION  OF  STaTE  CONSTANTS 

TILAA»CAP  A.  TjLbB-CAP  B,  TILA«SHaLL  a*  TILB.SMALL  B 
T 1 LE  Z ■ 1 0 » T I LE5*ES  • T I L ALP  » ALPHA  » TlLaET»BETA  0ircCliair 
A MU» S HE AR  MODULUS,  AYLd*YIELD  POINT,  PM«rtINlhUM  pRESSURE 

X C P A X --  MAXIMUM  X OF  GlCMETRIC  BLOCK 

XCMIN  --  HINIMjM  a Of  GLJMETRiC  dLuC< 


000000 

OOOOOO 

000000 

3COOOO 

000000 

000000 

oooooo 

oooooo 

000000 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

oooooo 

oooooo 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

oooooo 

ooOooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

OQOoOO 

oooooo 

oooooo 

ooOooo 

oooooo 

oooooo 

ooOooo 

oooooo 

030000 

oooooo 

oooooo 

0000*30 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

ooOooo 

oooooo 

OOOOOO 

OOOOOO 

OOOOOO 

oooooo 

oooooo 

oooooo 

oroooo 

oroooo 


GEN 


m 

vQ 

O 

w 

O 


00126 

00126 

00126 

00126 

00126 

00126 

00126 

00126 

00126 

00126 

00126 

00126 

00126 

00126 

00126 

00126 

00127 

00127 

00130 

00131 
00131 
00131 
00131 
00131 

00131 

00132 
00132 
00132 

00132 

00133 
0OIHO 

00 1 H 7 
CO  155 
0016H 
00172 
00176 
00202 
00206 

002  1 H 
00222 
00222 
00222 
00222 
00226 
00227 

00230 

00231 

00232 

00233 
0023H 

00235 

00236 

00237 
002  HO 


67* 
60  • 
69* 
70* 
71* 
72* 

7 3* 
7H* 
75* 
76* 
77* 
70* 
79* 
80* 

8 1 • 
81* 

8 1 • 

8 l • 
81* 
8 1* 
6|* 
8 1 • 
8 1 • 
8 l • 
8 1 • 
82* 
83* 
8 H • 
8S* 
86* 
87* 
88  • 

8 9* 
90* 
*!• 

9 2* 
9 3* 
9 H • 
9S* 
96* 
97* 
98* 
99  • 

100# 
101* 
1 02  * 
103* 
I CH  • 
ICS* 
106* 
107# 
108* 
109* 
1 10* 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

CGEN 


XMAX  --  MAXIMUM  X FOR  PLOT  SCALE 

X M 1 N — MINIMUM  X FOR  PLOT  1 C ALE 

XTt  --  X COORDINATE  or  Top  of  hard  top  F 0*  J-l 

XT2  --  X COORDINATE  OF  TOP  OF  HARD  TOP  P0«  J-JHAX 

X hSS  --  TOTAL  MASS  OF  Ha^D  TOP  ct*t.aiaa»y 

XY2  --  IMPACT  VELOCITY  IF  BULLET  |S  MOVING  AND  FlUID  STATIONARY 

YCMAX  — MAXIMUM  Y OF  GEOMETRIC  BLOCK 

YCMIN  — MINIMUM  Y Of  GEOMETRIC  BLOCK 

YMAX  --  MAXIMUM  Y FOR  PLOT  SCALE 

YMIN  — MINIMUM  Y FOR  PLOT  SCALE 

YT I — Y COORD  I NATE  OF  TOP  OF  HARO  TOP  FOR  J-l 

YT2  — YCOORDJNATE  OF  TOP  OF  HARO  TOP  FOR  J9JHAX 

ATI  — WEIGHTING  FACTOR  FOR  GENERATING  GRID  <USED  IN  RELAX  SUB) 

« J2  — WEIGHTING  FACTOR  FOR  GENERATING  GRID  (USEo  IN  RELAX  SUB) 

PROC 

equivalence  (Theta, xcmin) . (Rmin.yplrmni , irmax.yplrmx i . 

| (OELR.DELY) . CRCaLC, YCnTR » 
j l MENS  ION  aREFIK7» iTHETaIS) 

COMMON  / GNRT  / JREu  ( K7  I » JGEB1K7), 

| XCH|N(K8»,XC«AX(IC8I ,YCMIH(K8I .YCMAX(KB) .0ELXIK7)  , 

3 kMAX.KMIN.NRC.JGHAX.NJgEB.IK.APlRHN.YPLRmN.XCNTR.YCNTR, 

H OLTHA.KC.LRC.OELY.XPLRMX.INTVS.XVINT.YVINT.AREF.NCONE. 

5 JMAXG1K71  (YPLRHX.ISUBI ,ISUB2,I5U»3.ISUB7,JHIN«CK7I 


ENO 


GO  TO  (10,150).  I T I ME 

READ  INPUT  FOR  «R|D 


10 


READ(S«310)  ITAPE.JTAPE.MTAPE 

RE AO  15, 3 10  I KGMAX.MKGEB.NMTRLS.KACT.NLPR 

HEAD  (5,310)  IPLR.NCORD.KEQUAS, IHTOP 

READ  IS  , 3 10  I IJH|N<j||l,JMAXGill»I*l«NK6EB) 

RE AD ( 5 , 3 30 ) CONA.CONL.CONO.OHT 

READ ( 5 » 3 30  I UlNT.uTHIN 

REA0(5,330)  VELCUr . PE5CUT 

READC5.330I  XMSS.AVZ 

HE  AD ( S , 3 30  ) XMIN.YMIN.XMAX, YMAX 

READ  I B , 330 ) X T I , Y T l . X T 2 , Y T 2 

RE  AD ( 5 , 3 30  I * T I , * f 2 


initialize  variables  for  grid 


pi  ( I 1-3.  IHISV26& 
DLTH-DINT 
DLTPM-OLTH 
DLTZ".B»DLTM 

kgmxph-kgmax*r 
KM l N- I 
NRC-0 
1 STOP-* 

LMAX-0 

5MASS*3. 

IKMAX-KGMAX*2 


0^0000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

OQOOOO 

000000 

00O000 

000000 

000000 

00O000 

00O000 

00O000 

000000 

000000 

000000 

00O000 

OQOOOO 

oqQooo 
000000 
000000 
c 30  OQOOOO 

000000 

OQOOOO 

000000 

0Q00Q7 

OOOutG 
000030 
OQOoMB 
000061 
000072 
000101 
0001 10 

OOOt  17 
000130 
000141 

000  I 4 I 
000141 
000141 

000 1 BO 
000 1 52 
QQ0|S4 
OQO I SB 
000160 
OOO 1 6) 
000165 
000166 
OOOJ67 
000170 
OOO 1 7 I 


GtN 


A 


00211 

111* 

0021 1 

112* 

00211 

113* 

00211 

1 M* 

00213 

1 IS* 

00215 

1 16* 

00252 

117* 

00261 

l ia« 

00267 

l 19* 

00275 

120* 

00301 

1 2 1 • 

00305 

I 22* 

0031  1 

12  3* 

003  | 7 

1ZM* 

00325 

125* 

00325 

124* 

00325 

127* 

00325 

128* 

00331 

129* 

00331 

1 30* 

00331 

131* 

00337 

132* 

00315 

133* 

00315 

1 3H* 

30353 

135* 

0?  00353 

136* 

00353 

137* 

00353 

138* 

£ 00351 

139* 

00363 

MO* 

00371 

mi* 

00371 

M2* 

00371 

M3* 

00101 

MM* 

00106 

IMS* 

00104 

Mi* 

00121 

M 7 • 

00121 

MS* 

00121 

M 9 • 

00121 

MO* 

00131 

Ml* 

00131 

152* 

00131 

153* 

00131 

1 5M* 

00135 

MS* 

00113 

1 56  • 

00152 

157* 

00152 

1 58* 

00152 

159* 

00165 

160* 

00165 

161* 

00167 

162* 

00170 

163* 

00170 

1 6M» 

I F ( KGMAX • LL • NB > 


c 

c 

c 


c 

c 

c 

c 


c 

c 

c 

c 


c 


.RITE  OOt  GrtID  Input  • •••• 


A R I TE  t * » S50 ) 

*R|TE(6,S23> 
hR I TE ( 6 , 32u ) 
*RI  TE (6,530) 
AR1TEC6,1V0) 
wRITE<6,170) 
*R I T E I 6 , 500 ) 
AR|TE<6,662> 
AK  1 TE ( 6 , 661 ) 
*R|TEI6,666> 
AR I TE  I 6 , 648  ) 


ITaPE.JTAHE  ,HTAPE 
K(«HAa»NKGEB>NmTRLS,KacT  . nlPR 
IPL« .NC0RD,K£QI)AS , IhToP 
CONA ,CONL .C0N8.URT 
0 I M T ,DTM|N 

VELCUT.PESCUT 

XMS5.XVZ 

XMIN,YH|N,XMAX i YHAX 
XT  1 .tTl  .XT2,  YT2 
AT I * „T2 


READ  IN  NftTtRlAL  COuSTaMTS 


00  **0  !■  I ,NHTRL5 
<*RITt(6,11j>  I 

READ(&,3J0)  ARtf(II.AHUllIiAYLOlll.PNU) 

«|RITE(6,l8c)  AKc.f  I I)  . AMD  ( I ) , A YLD  t I ) .PHI  I » 

<50  TO  (20.301  .KtUUAS 

•••••POLYNOMIAL  ErUATiOm  OF  STATE  CONSTANTS.***. 

20  RE  AO  I S . 330 1 P A2  I I I ,P  A |(  ||  *P  A2  III  , P A 3 III  . P »** « H 
RE  AD  (5,3  30)  PBZ(l),PB|(|),PB2m,PB3(tl 
REAO(5,3IO>  NY Y I I | 

RE AO  IS, 330)  AYLDI (I  ) . BET  A l ( I ) . SB ( I I * AKrtO  I I ) , BET AA  ( I I 
..STHARDII) 

IFIAVL01IIt.LT. 0«|  AYLDI ( IlNAYLOItl* ( 1 .♦AtLDI I 1 • ) 

AR  I TE I 6 » 150 • PAZ(ll,PAHl).PA2ll).PA3m.P*1‘l).P&z,l,> 

1 PBII1 I ,PB2( I ) ,PB3( I ) 

4RITEI6.670)  NYYll) 

AR  1 TE  I 6 ,680  ) A TLO | ( I I , BE T a |l  1 I , Be  I I I , AK MO ( 1 I » Bt T A A t I ) 

• .STHAROI I I 


GO  TO  NO 


c .....  TILLOTSON  ESUATlOs  OF  STATE  CONSTANTS  ••••• 

C 30  RE AO ( 5 , 330 ) T I L a A I I) , T I LBB I I ) , 1 I L A I I ) , T I LB  I I ) 

RE AO  < S , 330  ) T|LEZ  U I iT ILESI I ) ,T 1LESPI I ) .TILALPC l ) , T l lBET  1 I ) 
.(RITE  I 6,S|0)  TILAAl  I I .TilBBU)  .TILAI  I » ,TILB«  I t i 
I T iLEZIl ) ,T|LES< I ) ,T|LESP( 1 ) ,T ILALP| 1 I ,T  |LBET(  | ) 

C 

NO  CONTINUE 
C 

SC  CONTINUE 
RETURN 
C 


0001  7N 

000J7N 

000| 7N 

000| 7 N 

000202 

000207 

000217 

000231 

0002*12 

000253 

000242 

000271 

000300 

000311 

000322 

000322 

000322 

000322 

00033S 

000335 

000335 

0003N3 

000351 

000351 

000365 

000345 

000345 

000345 

000375 

OO01O4 

000117 

000125 

000125 

000110 

000117 

000117 

00ON45 

OO0l73 

000173 

000173 

000504 

000504 

000504 

000504 

000510 

000520 

000532 

000532 

000532 

000553 

000553 

001)553 

000553 

000553 
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GEN 


00*170 

00170 

00171 
00171 
00173 
00501 
OOSI  I 
005 1 | 
00517 

00520 

00521 

00522 

00523 
00521 
00525 

00525 

00526 

00527 
00532 
005*13 
00553 
00553 
00561 
00561 

00561 

0056  1 

00562 

0057  1 
00571 
00600 
00607 
00607 
00616 
006  | 7 
006|7 
00620 
00621 
00621 
00632 
00636 
00636 

006m 

00615 

00615 

00616 

00651 

00652 
00652 
00651 
00655 

00655 

00656 

00657 
C0657 


165*  C 


INPUT  FOR  Each  GEOMETRIC  block  IN  7 DIRECTION 


166* 

167* 


| SO  I F ( N • NE • 1 ) FMIN.KrtAX 


160®  C 

16?« 

170® 

I 7 l • 

172*  C 

173# 

I 7 H • 

175* 

I 7 A • 

I 7 7 • 

1 7 • • 

I 79® 

UO® 


READi 5 »3 10 ) KHAXtiCART*NJGCB»NREG 

READ! 5,3 10)  I JKCG< I I , MlRLl I 1 ,N V I SR  I I I . I • I .NREG) 

Rt A J ( 5 » 3 1 0 I (JGEBl I) ,1-1  ,NJGEBI 

NTJGEB-NJGEB*! 

IK-1 

KC-0 

L-0 

LRC-NRC* I 
JGHAX» JM AXG IN) 

JGMIN-JMING(N) 

nkzons-kmax-kmin 


i a i • c 

102® 

10  3® 

1 0M® 

105® 

ISA®  C 

l 8 7 • 


ARITE t6,6IO) 
AR  I TE.  ( 6 • 350  ) 
WRITE( 6*360) 
ARITEI6.370) 


N 

JG|UN,JGMAX,KMIN.KMAX.|CaRT,nJGE8,NReG 

C JREuI  I I .MTRlI  I ) ,|1VISR<  1 I . l-l  , NREG  I 
i jgeuI n , i-i .njgeo) 


GO  TO  1 160 . I 70 ,200* »NCORD 


1 68* 
iby* 
i vo» 
1 » 1 • 
172* 
173* 
1 71* 
175- 
1 76* 
177* 
1 78* 
l 77* 
200* 
201* 
202* 
203* 
201* 


C 

C 

C 

C 

C 

c 


•••  READ  IN  COORDINATES  OF 


GEOMETRIC  uLOCK  •*• 


160  READ<5,330) 
RE  AD ( 5 ,330 ) 


(XCHlN(M) , Y C M I N ( M ) »M-1 , NT  JGEB ) 
(XCHAXlM)  .YCHAXlH)  ,M-l  , NT JGEB) 


NR  1 TE ( 6 , 3B0 ) 1XCMINIM),YCH1N«M),H-I ,NTJGEB> 
NRlTE (6,385)  (XCHaX(M)  , YCM AX ( M ) ,M- | .NTJGEtt) 


DELT-(TCMAX( 1 )-YCMlN( 1 ) ) /FLOAT ( NKZONS ) 
GO  TO  200 


|70  KEADI5.330) 
KEAD(5,330) 


R M I II  » KM  A X 

(THCTa(M)  ,M-  1 .llTjGtB! 


*R|TE(6,370)  RMJN.RMAX 
NRITEI6,100)  (TmETAIMI  , M - 1 ,NTJGE6I 


205® 

C 

2C6® 

RCALC-RM IN 

207  • 

DELR-(RMAX-RM1N)/FL0 

206  9 

C 

209® 

DO  170  M-l  .NTJGEB 

210® 

TMETAIM)-(THETAIM) 

211® 

190 

continue 

21  2® 

c 

2 1 3 • 

200 

CONTINUE 

21M» 

RETURN 

215® 

c 

216® 

310 

FORMAT! 1*111 

2 I 7 • 

323 

FORMAT!//. SX.'KGMa*- 

218« 

1 • < AC  T » 1 • NlP« 

AT  CnKZONS) 

•PI ( 1 ) 1/lBO. 

• , 1 1 ,2X  . •nkgcb«',)J»2a»,nhTRls-,,I3» 

•»  .11) 


000553 
000553 
000557 
000557 
000563 
000600 
000620 
000620 
000632 
00663* 
000637 
000610 
000611 
000611 
000616 
000650 
OOO6S0 
O006S3 
000661 
000675 
000711 
00071 1 
000723 
000723 
000723 
000723 
000731 
000751 
Q007S1 
000761 
000777 
006777 
001012 
001020 
001020 
001022 
001033 
001033 
001015 
001051 

ootosi 
001066 
001070 
001070 
001 101 
001 101 
001 106 
001 |06 
001 106 
001 106 
001 106 
OOl 132 
001 132 
OOl |32 
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GEN 


00660 

2 I 9 • 

00661 

2 20  • 

30661 

221  • 

00662 

222* 

00662 

2 2 3# 

00663 

2 2*4  # 

0066*4 

225  • 

0066*4 

226* 

00665 

2 2 7# 

00665 

228 # 

00666 

229* 

00667 

230* 

00670 

231* 

00670 

232  • 

00671 

233* 

00671 

23*4  • 

00671 

235* 

00672 

236* 

00673 

2 37* 

00673 

2 38  # 

0067*4 

2 39# 

0067*4 

2*40* 

00675 

2*4  i • 

00675 

2 *4  2 • 

00676 

2*4  3 • 

00676 

2*4*4# 

00676 

2* 45# 

00677 

2*46# 

00700 

2*47# 

00700 

2*48# 

00701 

2*49# 

00702 

250* 

00702 

251# 

00703 

2 5 2 • 

0070H 

253* 

0070*4 

25*4  • 

00705 

255* 

00705 

256# 

00706 

257# 

00706 

258# 

00707 

259# 

00710 

2 60# 

0071  1 

261# 

007|1 

262  • 

00712 

263# 

>Ij.2X 

,13.3*1 


KMA A* • . 1 M ( 


• E I 0 • 3 • 


33  3 f OKMA  T C 7c l G • 3 ) 

3SC  FORMATlSX , • JQM |»- • , I 3 ,Zx , • , l H , Z X , • I *1*  ' 

| 2X,,ICART-',l2,..X,'t4JC.Efl'»l3.2A,,NRH,-'.13l 

36_  F0RmAT!/.5a,’J  of  MAT  1 N T E ,|F  ACE  • , I 4 . 3X  . • m A T 'IuMOEk* 
l -ART  y ISCOSITY'  , l 3 » 

373  FORMAT  I / »5x  ,' J OF  GEOMETRy  INTERFACE' .i1*! 

380  FORMAT  ! //  ,SX  * ’ KM  I N COORO  I N A T £S  • . 3 X . * X * * » I PE  I <J • J » 3 * i 

, <?4X, 'A-'.EIG. 3, 3X, 'V.' ,£10.311 

385  FORMATI/.Sx.'ICMAX  COOK  0 I M A T ES  * . 3X  , • X - • . I P 1 1 0 . 3 . 3X  , T • *E10.3, 

| 12RX,'X-',ElO,3,3X,'Y-'.ElO,31) 

3V0  FORMAT  1 //.SX.'RM I N-' . I ?E l 0 . 3 . 3 A , ' RH A X - • .ElO.3) 

MOO  F0RMAT15X  ,* THETA"» • IP4E10.3)  cm  10,1ms  EQUATION  OF  ST 

480  FORMAT!//, 30X,'HATER£RIaL' ,12. IX. 'MAS  THE  FOLLOWING  E-UA  T | ON 

45C,*F0RMAT?5Xi^A0",.lFEI0»3,3x,,Al*,»EI!).3,3X,,A2",,El0*3i3X»|A3»|i 

l EI0.3,3X.)A8-*  ,E|0.3./,Sx  .’BO”*  •».  I0.3.3X  . 'Bl**  .E|0.  J.3X*  82-  . 

4 7j2f 0RMAtI//1sX.*  INITIAL  DE L T A- T ■ ' . I P E I 0 . 3 . 5 1 , • D t L T A - T HIN-*  ,E|0.3) 

4 80  FORMAT  1/ . 1C* ,'Rt'O.'  . I PE  I C . 3 . 3X , • HU- • . t • 0. i . 3X  , • Y ' _LD-'  .El  0.3, 

1 3X  , * PRESSURE  MINIMUM-* iEIS.3,/1 
49'  FORMAT!//. SX.'AMI50TR0P|C  Q- • , l PE I 0 . 3 . 4 X , * L I NE A R j- • , E 1 0 . 3 , 1 X . 

“l  *«0ADKATIC  ,ElO. 3, 4X, 'ROTATIONAL  J-', £10.31  _TOCe- 

530  FORMATI/.SX, 'VELOCITY  CU T OFF  * * . I PE  I 3 • J . SX , • PR E SSUrE  ENERGY  STRESS 
l CUTOFF* • • E I 0 • 3 > 

513  F0RMAT!5X.*CAP  A-' , l PE  1 0 . 3 . 3X . • C AP  B- • . E 1 0 • 3 . 3X  , • 5JJ  ALL  A- J . E 1 0. 3 . 

1 3X,  'SMALL  B«,.E|0'3./,SX.,E2",,E10.3.3X,*ES-,.E|0.3,3X,  ESP  . 

2 E10.3,3X,'ALPHA.' , E I 0 . 3 , 3 X . • BE T A • • .EI0.3) 

520  FORMAT!//, SX.'ITAPE-', 13, 2X,'JTAPE“,»|3,2x,,MT APE-', 13, 

530  FORMAT !// ,5X , • IPLH-' , 12.2X , tNCORD-' . I2.2X , 'KEQUAS,' , IZ ,2  . 

| • I HTOP ■ ' . 1 2 I , 

550  FORMAT! ////,25X , ••••••••••  GKU  INPUT  . ........ 

810  FORMAT! ///.30X, ••-••••••  INPUT  FOR  GEOMETRIC  BLOCK • , I 3 . I X , 

!•'./> 

682  FORMAT!/. 5x!*MASS  ABOVE  PROJECTILE-' « IPEI5'Z,3X,' IMPACT  VELOCITY', 

664*F0RMATI/.SX.'XMIN-'  . I PE  l 0 . 3 , 3X  . ' T M I *4- • , E I . . 3 , 3X  . * XH  A X- • , E 1 0 . 3 , 

| 3X , • TMAX-* . E 10* J ) , ...  - rln  . 

666  FORMAT!/, 5X, 'XT1-' ,IPE13'3.3X,'YT|-*  ,LU.  3. 3X  ,'XT2-  ,tl0'3, 

I 3X  » • YT2* • , E 1 0 « 3 I 

668  FORMAT!/. 5x,'BT|-',|PElC'3.3X,,FT2-’,LlO.J) 

670  FORMAT!//, SX.'NTT.'  ,151 

6B0  FORMAT!//. 5X . • T I ElO 1 - ' , I PE  I 0 . 3, 2X , • BE T aO- ' , E l 0 • 3 , 2X , B-  ,EI0.3, 

- 2X,' AXMO-' ,E10.3,2X.'BeTaa-' .E10.3.2X,' JTHARD-* .EI0.3I 

END 


C 2100 


001  I 32 
001  I 32 
001 132 
00U32 
001 |32 
00 ! I 32 
001132 
001132 
00> 132 
00!  1 32 
001132 
001 132 
001 132 
001 132 
001 132 
00M32 
001  I 32 
00U32 
001 |32 
031 132 
001  1 32 
001132 
001 132 
001 |32 
001 132 
001 132 
001 132 
001 132 
00U32 
001 132 
001 1 32 
001132 
001 132 
001)32 
001  I 32 
001132 
001132 
001 132 
001 132 
00 1 1 32 
001132 
00 1 1 32 
001132 
001 132 
001132 


END  OF  COMPILATION:  no  DIAGNOSTICS, 
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bfor.s  gem 

FOR  SE2C-0VI9/7S-09J35;  1 I (0.) 


GEM 


SUBROUTINE  GEN  I ENTRY  POINT  G0U71 


STORAGE  USED:  COOE(I)  00I2I9{  DATACOI  000066 1 blank  COMMON ( 2 ) oooooo 


COMMON 

BLOCKS 

• 

0003 

GEL  1 

000«2H 

0001 

RZFI 

0536*46 

0005 

RZF2 

000331 

0006 

RZF  3 

000267 

0007 

RZF*t 

0001S2 

0010 

GNRT 

000 1 H 2 

EXTERNAL  REFERENCES  (BLOCK,  NAME) 


001  1 

BOUND 

0012 

SET 

0013 

K4RITE 

0011 

NTRAN 

0015 

ERROR 

0016 

NERR2S 

0017 

cos 

0020 

SIN 

0021 

NERR3S 

STORAGE 

assignment 

(BLOCK,  TYPE,  RELATIVE  LOCATION,  NAME! 

0001 

000 l 53 

1 20L 

C001 

OGO 1 6 1 

l30u 

0031 

OOOliCS 

133$ 

0001 

000216 

1 5 7L 

ODD  1 

0001 1* 

163G 

0031 

000366 

1 93L 

0001 

00032 1 

I 9*L 

0001 

000331 

197L 

OCOl 

000102 

200L 

0001 

0Q005C 

30L 

GOCI 

00016* 

3*40L 

ODDI 

000170 

350L 

0001 

000626 

3B0L 

tOw  1 

020051 

*4  CL 

0001 

300677 

*4  OOL 

0001 

00070* 

110L 

0001 

0C1 1C* 

OOC1 

OC  0 7 1 S 

H50L 

0001 

000731 

170L 

UO-l 

00C731 

M8QL 

OO’J  1 

Ou  1 uOJ 

H90L 

0001 

001117 

510L 

0001 

00012S 

60L 

0001 

000127 

70L 

oooo 

R 

000001 

AJL 

OCCG 

R 

OOOOC* 

akl 

0035 

R 00026* 

AICMO 

0000 

R 

000017 

ARE  A2 

0010 

R 

000107 

AREF 

00  Jb 

H OOUOOO 

ARHO 

0005 

000211 

AYLD1 

OOOB 

000257 

BB 

0005 

000275 

BETAA 

0006 

000075 

CAPC 

0006 

C0002S 

CONA 

0C06 

000026 

CONL 

0010 

R 

000056 

oelx 

0010 

R 

000102 

OELY 

0006 

000010 

DINT 

0010 

R 

000077 

oltma 

0006 

000036 

DLTPK 

0C06 

0003*1 

DLTZ 

0006 

ooooso 

0TM1N 

C0C*4 

001 12* 

DV 

00-6 

000253 

D VP 

000*4 

000*72 

E 

0006 

00010* 

EHU 

00U6 

000105 

EP 

0006 

000073 

FN  l 

00C6 

00022c 

FXTRA 

C0C3 

000120 

GOT 

0006 

l 

000060 

IC  ART 

00-0 

1 

000021 

ICNT 

0C03 

000230 

JDUMP 

0010 

000072 

IK 

0003 

000251 

UMAX 

J0j6 

000261 

INC 

0003 

000231 

I PLOT 

0006 

l 

G0C057 

IPLR 

0000 

| COGJOO 

IRC 

• -I 


0001 

000171 

1 50L 

OOu  1 

000301 

1 92L 

0031 

000165 

203G 

0001 

000173 

3 6 OL 

OOot 

001021 

123G 

0001 

001 12* 

1526 

0001 

001075 

510L 

0001  R 

000231 

A 

0C&5 

0002QS 

AMU 

0006 

000031 

ASflRM 

ooo* 

000250 

DETAl 

0006 

000027 

CONG 

0003 

000122 

0|SP 

000* 

000103 

OLVH 

0001 

001012 

DX 

OOol 

00H11 

EG 

0006 

000033 

HT  IEK 

0003 

000232 

ieoit 

oooo 

000033 

1NJP* 

OCuO  1 

000020 

IS 

0301 

000203 

I5SL 

0001 

000316 

19U 

0001 

000137 

24Ql 

0001 

000577 

370L 

0001 

001037 

N26q 

0001 

000720 

*460L 

0001 

001100 

S50L 

0003 

0009  J 7 

ACC 

OOOO  R 

0000(6 

AREA! 

0005 

000007 

ayld 

0006 

000070 

CAPA 

0010  R 

000102 

DELR 

0006 

000097 

dltm 

0006 

000109 

DLZh 

0001 

001071 

DY 

0006 

000077 

EZ 

0006 

000032 

htkek 

0006 

0d02S 1 

IHTOP 

0010 

000109 

INTvS 

0007 

O00I 50 

ISRS 
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A 


0000 

000233 

1STGP 

0- J6 

0JC2S2 

isoec 

0010 

000132 

| SUP  7 

CC*<7 

1 

CCC 1 5 1 

IS*S 

ocoo 

1 

00001  1 

JDEX 

uC30 

1 

OCOO 1 2 

Jut  A 1 

0006 

I 

0001  1 7 

JJL1 

C3u6 

1 

DuC 1 2 1 

J JL  2 

0006 

00005** 

JLIM 

CC  j6 

1 

0oDI2i 

JHA  A 

0C06 

1 

000*  16 

JMNP  1 

bCC.6 

000062 

jold 

0006 

000016 

JO 

JOu  6 

1 

GGC037 

K 

0000 

I 

000010 

KCA 

0036 

000063 

KCOMP 

0006 

00001 1 

KIN 

SGCC 

1 

000023 

K L 

0006 

0000 ts 

KNTROL 

uOw  6 

000012 

KOUT 

0006 

0000  1 3 

K Z 

0006 

0000)7 

KO 

0000 

1 

000226 

C H A X 

OOCO 

1 

000007 

LMX 

000*1 

1 

000202 

HPN 

00  J 6 

OOOOC3 

MT  APE 

0010 

000116 

NCONE 

0006 

1 

000055 

NCORD 

0000 

1 

000003 

N JZONS 

0006 

C000C7 

NKGEB 

0006 

000066 

nplot 

ocio 

1 

000367 

NR  C 

0006 

000056 

N V 1 S 

0005 

l 

000223 

NV  ISM 

0005 

000025 

PAZ 

0305 

000031 

P A 1 

0003 

0001H1 

pbul 

OCjS 

000061 

PbZ 

0006 

000256 

PLSCUT 

ww  j 6 

K 

900000 

pi 

0006 

oooioi 

PSCACE 

0006 

000 1 C 7 

PZ 

0006 

3001  1 1 

QH 

OvC  6 

000251 

ORT 

0007 

0001  16 

QYb 

0530 

rt 

300021 

K A 1 

ooio 

000126 

RM  AX 

3010 

000071 

RM  IN 

0003 

R 

000250 

SMASS 

0C33 

300252 

SMOM 

000*1 

000136 

STT 

0033 

000121 

SVEL 

000  H 

001330 

SZT7 

0001 

001212 

SZXX 

0004 

000000 

TEMB 

0001 

000000 

TEMP 

0000 

R 

000005 

T HC ACC 

0010 

R 

000016 

theta 

0005 

000112 

T I LB 

■3005 

000121 

TlLBB 

0005 

OOOISI 

TJLEZ 

0006 

000035 

TOTE 

0006 

000011 

TT1ME 

0001 

000606 

TTT 

0003 

R 

000253 

UBUL 

0001 

R 

000266 

V 

0006 

000067 

VP 

0006 

000021 

VV  A 

0003 

000123 

VZERO 

0006 

000217 

*T  1 

0010 

000026 

X C M A A 

0010 

K 

000316 

X C H 1 N 

0004 

R 

000320 

XM  ASS 

3006 

000211 

XMAX 

0006 

000233 

X M V 

0031 

R 

GO0032 

XP 

0006 

000215 

X T 2 

0310 

000105 

XV  INT 

0010 

000016 

YCM  AX 

ooio 

R 

030036 

YCM1  N 

0006 

000212 

YMAX 

0036 

000210 

YH  | U 

0006 

000100 

YR 

0306 

C002H 

Y I 1 

00)01 

1 # 

subroutine  geni 

00103 

2 • 

INCLUDt  6ELCHN 

00107 

3* 

1NCIU0E  CHAIN 

00126 

4» 

INCLUDE  CGEN 

C0I32 

5 • 

DO  **93  K*KH|N|KMAa 

00135 

8* 

L*L  ♦ 1 

00136 

7 • 

IRC*  1 

00137 

8 • 

kc*kc* l 

GLN1 


j:  io 

:Cv6  i 

uC  1C  I 

U0  10 
JOCO  I 
GO  J8 
0006 
0006 
00u6 
0006 
0006 
0006  | 
0006 
0006 
0006 
0005  | 
603b 
OCOb 

0005 

0006 
out  7 
COCO  I 
*00** 
0006 
CGO4* 
GOOH 
0000  f 

0005 
uOob 

0006 
0004 
OC J3  I 
0006 
0006 
60  I 0 
0Cu6 
0010 
00u  6 

^CiO 

0DC4 

0006 


00ua27 

ISUal 

DO  1C 

990 1 30 

3CL JOI 

ITAPE 

03C1 

OOOUOO 

or juo7 

JGE  J 

0013 

1 

0000/0 

CC.I22 

JJL  J 

0306 

1 

039129 

vJul 1 7 

J M A X 0 

0006 

1 

300156 

0 CO  J 0 2 

JR 

03  1 C 

1 

000000 

OOuZb  7 

kact 

0006 

000061 

0002 1 7 

kequas 

0006 

1 

000005 

30001  *» 

KM 

0010 

1 

000065 

CCuulS 

KP 

0006 

000102 

000260 

K 6 

0006 

000261 

OOO06 1 

LOX 

OOIO 

1 

OOOIOI 

000210 

htrl 

0003 

000231 

0000*11 

NCYCLE 

0006 

000012 

03CU6S 

NK1NG 

0006 

000006 

0C0053 

N R 0 A T 

0006 

000013 

OODZ l 4 

N V I SR 

oec5 

000301 

3000*13 

P A2 

ooas 

000052 

00 Cu  20 

pbI 

9005 

000077 

* 

PM 

0306 

000020 

3 u u Z 6 S 

PZ  1 

OOuo 

900266 

OOOuOO 

qa 

0007 

000032 

< 3 0 U J 2 2 

R A 2 

0010 

ri 

000076 

001*146 

RRR 

3006 

000072 

3C007  *♦ 

SN 

0006 

000113 

0003S2 

sxx 

OOqH 

000170 

001276 

SZXY 

0004 

001211 

1 00001* 

TERM1 

0000 

R 

oooon 

000133 

T1LA 

OOOS 

0001 15 

000 1 76 

T1LBET 

0005 

ooouo 

00CO3 1 

TOT  | E 

0006 

0000)0 

000522 

T X X 

0004 

000610 

R 030J3S 

VBUL 

0006 

000255 

000022 

wva 

OO06 

000023 

33025 j 

*r  7 

000*1 

R 

001160 

OC jJ7s 

XCN  f K 

0004 

R 

000116 

32 u237 

XM  1 N 

00C6 

0002)2 

0 j JO  7 3 

xplrmn 

0010 

00010) 

000236 

XVZ 

0004 

R 

000721 

3 jOi)7  6 

YCNTR 

000*4 

R 

000150 

H COOJ6H 

TP 

ooio 

000071 

000246 

YT2 

OOIO 

000106 

1 SUB  Z 

0010 

000131 

! SUB 3 

1 TEMB 

0006 

1 

000010 

J 

jgmax 

0006 

1 

OOOI 15 

jgmjn 

J JR  1 

0000 

1 

000001 

JL 

JM  J N 

OOIO 

000133 

JM | NG 

JREG 

0006 

1 

000002 

JT  APE 

ka»at 

fioio 

1 

odoioo 

KC 

KGMAX 

0006 

000052 

KGMXP4 

KHAX 

0010 

1 

000066 

KN1N 

KpRESS 

0006 

000016 

KSTOP 

K9 

0006 

l 

000262 

L 

LRC 

0006 

l 

000263 

H 

NAME 

0001 

000000 

NBC 

nedit 

OOIO 

l 

000071 

njgei 

nlpR 

0006 

000076 

NP 

nrestr 

0006 

060001 

NTAPE 

NYY 

0001 

R 

000756 

P 

P A 3 

0005 

000232 

PaM 

P8  2 

0035 

000106 

PI* 

PM1N 

3006 

0001 10 

pp 

P Z 2 

0001 

001010 

Q 

qxb 

0007 

000061 

QY 

RCALC 

0006 

000112 

RHO 

SB 

0006 

000071 

S»1 

SSP2 

0005 

O0O3J3 

STHaRO 

SXY 

0001 

oooioi 

SYT 

SZY  Y 

0003 

000227 

T 

TERM2 

0000 

n 

000045 

term* 

T 1 L A A 

0005 

000147 

TllALP 

tiles 

0005 

000322 

T | LESP 

TOTKE 

0006 

000123 

Tf  PL 

TXY 

0001 

OOOUI 

TYY 

VELCUT 

0001 

R 

001362 

VH 

VVC 

0006 

000021 

V YD 

X 

0003 

R 

000000 

XtUL 

xqh 

0006 

000231 

XPDY 

XMSS 

0006 

000235 

xmsum 

XPLRMX 

0006 

000213 

XYl 

Y 

0003 

R 

000062 

Y0UU 

ydh 

0006 

OOOI 11 

yield 

YPLRMN 
TV  1 NT 

OOIO 

000126 

YPLRMX 

d 

10 

000000 

ooooco 

000000 

000000 

D 

80 

000000 

D 

70 

000005 

D 

?0 

090010 

0 

100 

000012 
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GENI 


00  1 HO 

9* 

oom 

10 • 

00H3 

II® 

001*15 

1 2* 

00  1 **7 

13* 

00151 

n* 

00152 

15* 

00153 

16* 

00153 

17* 

0015*1 

16* 

00155 

19* 

00156 

20# 

00157 

21* 

00160 

22* 

00161 

2 3* 

00161 

2*1* 

00162 

25* 

00165 

26* 

00170 

27* 

00171 

28* 

00172 

29* 

00173 

30® 

oom 

3 l • 

00 1 7*1 

32* 

00175 

33* 

00176 

39* 

00177 

35* 

00177 

36* 

00200 

37* 

00201 

3ft* 

00201 

39* 

00202 

**0* 

NRC'LRC 

IF1KC.GT«S1  KC*| 

IF(KGMAX.LE,WB)  KC“K 

20  IF  ( K • E9 • I I GO  TO  HO 

IF  I K • NE  ,KM  IN  I GO  TO  HO 
GO  TO  I H90  » 30 ) iNCORD 
30  RCaLC«RCALC*DELR 
GO  TO  H90 

HO  JMAX ( K I ■ JGMAX 

JM  IN  CtC  ) ■ JGHIN 
JMNP I ■ JGR I N* I 
JJLI-JHINIK) 

JJL2* JJLl ♦ I 

JJRI"JHaX(K) 

00  H80  M*l  .NJGEB 
IF  CH-II  60,50,60 
50  JL*JMINIK) 

GO  TO  70 
60  JL-JGEBIM-I > 

70  JR* JGE8 I M I 
NJZONS-JR-JL 

AJL* JR-JL 

0E»_X«H»-(XCH|Ntl1»l  »-XCM|N,m)  l/AJI- 
GO  TO  1130,1201 , NcORD 

120  OLTHA-CTHETACM*! 1 - THET  A ( M ) ) / A JL 
thcalc-thetaimi 

130  00  H60  J*JL»JR 


00202  H|* 

00205  H2* 

00207  H 3* 

00211  RH* 

00212  H5* 

00213  H6* 

002 | H R 7* 

00215  RB* 

00217  H9* 

00221  50* 

00222  5|* 

00223  52* 

0022R  53* 

00226  5H* 

00230  55* 

00231  56* 

00232  57* 

00233  56* 

0023R  59* 

00235  *0* 

00236  61* 

C32H0  *2* 


if(j»eh,jrin»kh  u0  to  *5n 

lFtJ«E«,JL)  GO  TO  HHO 
150  GO  TO  I I 55  , | 90 1 , RcORO 
155  AJU*J-JL 

AKL-K-XMIN 

XI J,KC)-XCIUNC«)*AJU»OElX|H| 
IFIKGMaX,GT«8B)  go  to  157 
IF  I t CART, GT . I •OR,K,EQ. I I GO  TO  157 
XI J,KC)*XI JtKC-l I 
157  CONTINUE 

Tl  J,KC)-TC«INIM)*aXI.*OElT 
IF  I ICART.GT. I)  GO  TO  200 
IFIK.GT. I ) GO  TO  | 92 

lmax*lmax*i 

UBUL<LrtAX)*0, 

V BUL I LH A X I *0* 

XBUL ILHAX l*X I J,kC» 

T BUL I LHAX ) *T I J »KC / 

GO  TO  200 

| 9 2 1 F l < *LT .XGMAX  I GO  TO  197 
[FI J.GT.  I > GO  TO  I 9 H 


D 


110  00001R 

000016 
00002R 
0 I HO  000032 

D 150  000035 

OOOORO 
ooOoso 

0 1 BO  000052 

0 190  000052 

0 200  O0005H 

D 210  00007H 

0 220  000074 

0 230  OOOlOl 

D 2H0  000103 

0 250  000105 

000|05 
D 260  000 | 16 

D 270  000 1 1 6 

0 280  000121 

0 290  000123 

0 300  OO0 125 

0 310  000127 

0 320  000130 

000| 30 
000132 
000137 
000 l H3 
0001H3 
000153 
000 | 56 
000156 
OQO 1 6 1 
000|6I 
000165 
000170 
000I7H 
000203 
000212 
000217 
000224 
000232 
0002H3 
0002H6 
000250 
0O02S7 
000263 
000265 
000271 
000272 
000273 
000275 
000277 
000301 
00030H 
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Gc.Nl 


00292 

63* 

00293 

6 S • 

00299 

65* 

00295 

66* 

00296 

67* 

00297 

66* 

00250 

69* 

002S  1 

70* 

00252 

7 I • 

00253 

7 2* 

00255 

73* 

00256 

7 9* 

00257 

75* 

00260 

76* 

00261 

77* 

00262 

78* 

00263 

79* 

00269 

80* 

00265 

81* 

00266 

82* 

00266 

83* 

00267 

89* 

00267 

as* 

00270 

86* 

00272 

87* 

00279 

88* 

00276 

89* 

00277 

90* 

00277 

9J* 

00300 

92* 

00300 

93* 

00301 

99* 

00303 

9S* 

00305 

96* 

00307 

97* 

00312 

90* 

C03|S 

99* 

00320 

100* 

00321 

101* 

00322 

102* 

00323 

103* 

00329 

109* 

00325 

10S* 

00326 

106* 

00327 

107* 

00330 

108* 

00331 

109* 

00332 

1 10* 

00333 

m* 

00339 

112* 

00335 

113* 

00335 

1 1H* 

00336 

1 IS* 

00337 

116* 

lhax-lmaa* JR 
LMX-LMAX 
GO  TO  196 
I 9 9 LMX*LMX-l 
| 96  XBUL CLMX » -X C J.KC 1 
YBUL ( LHX )*Y < J.KC 1 
UBUL ( LHX • *0 • 

V BUt < LHX )*0* 

GO  TO  200 

|97  IF<  J.LT. JR)  GO  TO  200 
LHAX*LHAX*l 
X8ULCLHAX)-X( J.KCl 
YBUL<LHAX)*YCJ.KC| 

UBUL ( LMAX 1 *0* 

VBUL«LHAX1«0» 

GO  TO  200 

190  XJJ,KC)*RCALC*COS(TmCALC) 
Y(J,KC)»RCALC«SlN|THCALC> 

2CC  XP« J,KC)*X( J.KC) 

YP  < J , KC ) »Y 1 J.KC 1 

223  CALL  BOUND 

IF ( J.EG. JHINCK > 1 GO  TO  260 
lFU.Eu.JL)  GO  TO  BOO 
IF C J.LE. JREGt IRCl 1 GO  Tq  260 
250  IRC*  IRC*  1 
NRC*NRC*1 

260  CALL  SET 

IF1K.E9.KHIN)  GO  TO  BOO 
IF  1 J .E<J«  JMIN  ( K ) ) 1,0  TO  BO  n 
IF(KGHAX.LT.GB)  GO  TO  350 

310  IF1K-2)  3B0.350.320 
320  IT  (K-KMN-ll  330.3B0.33O 
330  IF  1KC-D  350.3B0.350 
3B0  X C A *5 

GO  TO  363 
350  KCA*KC-I 
360  JOEX* J 

JDEX  1 • J-  I 

TERH|*X(JDEX » KC  A ) • l Y (J.KC  i - Y 1 J - l .KC) I 
TERM2-X  1 J,KC>*lYtj-I ,KC I - Y 1 JOEX . KC A I I 
TERM3«X( J-l .KCI*«YC JDEX, KCAl-Y (J.KC ») 
AREAI*.6*(TERMl*TtRH2*TERH31 
TERMI*X( JDEX, KCA)*IY( J- | .KCl-Yt JDEX I . KC  A ) 
TERM2-X1J-1  ,KC)*(YIJDEX| .KCA)-Y(JOEX.KCA) 
TERH3* A ( JOEX I ,KCA)»CY( JDEX, KCAl-YC J-l ,KC» 
aREA2*.S*C  TERMI*TfRM2»TERH3l 
A1 J.KCI*AREAI*AREa2 

IS*HTRLC  IRC) 

N V | S H ( |S)*NV ISR (IRC) 


00031 0 
000313 
00031B 
000316 
000321 
000326 
000330 
000331 
000332 
00033R 
0003B2 
0003B6 
000350 
000352 
000353 
D 650  00035B 

0 660  000356 

0 670  000372 

0 680  000902 

D 690  000912 

0009  1 2 
D 780  000919 

0009 1 B 
OOOBli 
000921 
000929 
0 820  000930 

D 830  000933 

000933 
000937 
000937 
000990 
000993 
000996 
000952 
0 960  000955 

D 970  000961 

0 980  000965 

D 990  OOO966 

D 1000  000970 

0 1010  000973 

D 1020  000509 

D 1030  000611 

D 1090  000515 

0 1050  000521 

D 1060  000625 

D 1070  000631 

D 1080  000535 

0 1090  000591 

D 1100  000595 

0 I MO  000551 

000551 
000556 
000561 
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GEN  1 


003*10 

117* 

ARHOl IS) ■ARCFI IS) 

000563 

003*11 

tie* 

HPNl J,KC)»|S 

000565 

003*12 

l 19* 

GO  TO  <370(3601 , |PLR 

0 

1120 

000567 

003*12 

120* 

C 

000&67 

003*13 

1 2 1 • 

37C 

AMASS  1 J,KC)«ARHO< 1 S ) • A C J,KCl 

000577 

003*1*1 

122* 

V( J.KCI-A t J,KC> 

000410 

00315 

123* 

lFUCART.GT.il  GO  TO  10o 

000415 

00317 

129* 

smass-shaSs«xmass<  j.icc) 

000621 

003&0 

125* 

GO  TO  100 

000421 

0035) 

126* 

380 

RAl«mj(KCA>*X{J,KC)»X|J-i,KC>>/3. 

0 

1150 

000426 

00352 

127* 

RA2»1X< J-l ,KCA).X( J,KCA)+Xt J-l ,KC) >/3. 

D 

1140 

000691 

00353 

128* 

XMaSSI JiKCl-ARHOl lS)«<R*l**REAl*RA2»AREA2) 

000496 

00351 

129* 

V<  J,KC)«16.»XMASSU,KC)  |/ARHO<  IS) 

000454 

00355 

130* 

IFUCART.GT.l  J GO  TO  10o 

000465 

00357 

131* 

SMASS"SHASS*2..PI ( l)*XMASS(JtKC> 

000471 

00340 

13  2* 

900 

CONTINUE 

0 

1250 

000677 

00341 

133* 

VM1J,KC)*V<J.KC)»aKM0II5) 

000702 

00342 

139* 

990 

GO  TO  1960,150) .NcORD 

000704 

00343 

135* 

950 

THCALC»THCAtC*OLTHA 

D 

1940 

000715 

00341 

136* 

940 

CONTINUE 

D 

1970 

000721 

00344 

137* 

GO  TO  (180(170) . NcORD 

000721 

00347 

138* 

9 7c 

RCALC»RCALC*DELR 

000731 

00370 

139* 

980 

CONTINUE 

0 

1500 

000734 

00372 

190* 

ifikghax.le.qb)  go  to  190 

000734 

00371 

1 9 | • 

KL«L 

0 

1510 

000792 

00375 

192* 

CALL  KARITEI 1TAPE,KC) 

000799 

00374 

193* 

CALL  NTRAN1ITAPE(22I 

000750 

00377 

199* 

IFUSWS.LE.O)  CALL  ERROR 

000759 

00101 

195* 

IFUCART.GT.l)  GO  TO  1?0 

000761 

00103 

196* 

CALL  KNRITEIJTAPE.KC) 

000765 

00101 

197* 

CALL  NTRAN1JTAPE,22> 

000771 

00105 

198* 

IFUSWS.LE.O)  CALL  ERROR 

000775 

00107 

199* 

990 

continue 

0 

1540 

ooloos 

oom 

ISO* 

IF(kgmax.le.ob)  Go  to  590 

001005 

00113 

1S1* 

IF  IKC-S)  500(590,500 

0 

1570 

00  loll 

00114 

1S2* 

soo 

IF  1K-KGMAX)  510(590,590 

D 

15&0 

001019 

00121 

1S3* 

510 

1 C U T • 5 

0 

1590 

001020 

00122 

15  9* 

00  540  K L* 1 , 5 

0 

1400 

001029 

00125 

1SS* 

DO  520  J*  JJL 1 ■ JJR ) 

D 

1410 

001037 

00130 

1 S 4 * 

V 1 J, ICUT )»A( J,KC ) 

o 

1420 

001012 

00131 

1 S 7* 

PIJ, icnti-mpnij.ku 

0 

1630 

001097 

00132 

ise* 

AOH(J,ICNT)aAlJ,Kcl 

0 

1490 

00I0S5 

C0133 

159* 

520 

TOHl J,ICNT)«Y1J,Al) 

D 

1450 

001062 

00135 

140* 

IF  1 KC” 1 I 510(530,510 

0 

1640 

001066 

00110 

16|* 

530 

KC*5 

0 

1470 

001071 

00111 

142* 

GO  TO  550 

0 

1680 

001073 

00112 

143* 

59Q 

KC»KC”l 

0 

1690 

001075 

00113 

149* 

550 

ICNT-ICNT-l 

0 

1700 

001  too 

00111 

145* 

54  0 

CONTINUE 

0 

17  lO 

001 106 

00116 

144* 

DO  580  KL*  1,5 

D 

1720 

00 1 1 06 

00151 

147* 

DO  579  J* JJt 1 ,UjR 1 

0 

1730 

001 121 

00151 

166* 

A( J.KLI-Vl J,KL) 

D 

1780 

001 1 2 1 

00155 

I 49* 

MPNI J,KL)«P1J«KL) 

0 

1 750 

301 122 

00156 

1 70* 

X|J,KL)«XDrtlJ.KL 1 

0 

1760 

001 1 31 

GZ'4  I 


ri  i/I  y)  fs  « N K NO 

m m m x x x x — 


c nooooooo 
o onaooooo 


O 0 3 0 0 00 

r*  «T>  * O — <M  ** 

N N N © © CD  CO 


o o o o o o o 


o 

X 

15 


to 

o 


wl 


-l  -I 
VC  VC 

• • ->  o 

o o 

* ■ X >- 

— • ~ N N 

_l  _J  «**  — UJ 

^ J J D 

• • k ^ Z 7 

->  ->  - - - * 

">*>>-  3 

XX ►- 

Q O L L O Ul 

x >-  x ► u a: 

a o a 

^ co  O' 

LO  lO  1/1 


< 

o 


z 

o 


a. 

X 

o 


— ^ n t u>  -•r* 

f*%  NNNrvNNNJS. 


o 

z 

UJ 


r*  O — N n lAN  NO 
in  4<0  4 <0  4N 

r TTrTTTTT 

o o o o o o o oo 
o oooooooo 


C5 

o 

X 

a 
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GRID 


eroR#s  grio 

FOR  SE2C-09/19/7S-0*:35; 16  (0») 


SUBROUTINE  grid 


ENTRY  POINT  00070J 


STORAGE 

USED;  CODE ( 1 > 

COMMON 

BLOCKS; 

0003 

GEL! 

000H2H 

OOOH 

RZFI 

0536*16 

0005 

RZF2 

000331 

0006 

RZF3 

000267 

0007 

RZFH 

0OOIS2 

EXTERNAL  REFERENCES  (i 

0010 

calca 

oon 

CtDlT 

0012 

CPLOT 

oon 

NTRAN 

00  1H 

KREAD 

00  is 

KRR1TE 

0016 

ERROR 

0017 

NERR2S 

0020 

NERR3S 

STORAGE 

ASSIGNMENT  ( 

0001 

OOOH61 

IDOL 

0001 

00025M 

20L 

0001 

000606 

25  HL 

0001 

OOOS67 

32SG 

0001 

00037S 

7 JL 

ooos 

000266 

AKMO 

ooos 

0002HI 

AYLDl 

0006 

00007S 

CAPC 

0003 

000H22 

DISP 

0004 

OOOlOH 

DLZH 

OOOH 

00 1 07  H 

OY 

0004 

000077 

E2 

0004  R 

000032 

rtTKEK 

0004 

0002S1 

1 H TOP 

0004 

000057 

1 PLR 

0006  1 

000001 

itapl 

0006 

000121 

JJL2 

0006  1 

000 I2H 

J M A X 

0006  I 

000002 

JTAPL 

0006  I 

000063 

KCOMP 

0006  1 

000052 

kgmxpm 

(BLOCK,  TYPE,  RELATIVE  LOCATION,  NAME) 


0001 

0001 

0001 

0001 

0001 

0005 

0005 

0006 
C006 
0006 
OOOH 
0006 
0C06 
0003 
0007 
OOOH 
0006 
0006 
0006 
0000 
0306 


OOOH  70 
0JC6H3 
£006 1 7 
UG03S3 
000H36 
000205 
000257 
000025 
0300H  7 
000050 
C00672 
000073 
000060 
030251 
\ 000150 
000000 
030122 
I 0 JO 156 
03001^ 
I OOOCCO 


1 10L 

22DL 

255L 

HOL 

*0L 

AMU 

db 

CONA 

DLTH 

OTMtN 

E 

FNl 

ICART 

UMAX 

ISRS 

1TEMB 

JJL* 

JM  1 N 

JO 

KDUM 

KIN 


3001 
JOOO 
3C31 
jOO  1 
00  Jl 

3005 

0035 
0CQ6 

3006 
OOOH 

0036 
0036 
0000 
0006 
0003 
0006 
0006 
0006 
00  J6 
0006 
0006 


03u50** 
0C0015 
033JH7 
C0UJ62 
33QHH5 
000 JOO 
30^27S 

OO JJ26 
030036 
OCi *26 
030106 
0 30220 
OOOOl^ 
0032  6 H 
OOC233 
GOCJHO 
00OI 20 
0301 16 
0C3j37 
33021 7 
JJ^i  H 


120u 

233K 

3 0 1 

501 

90L 

ARHQ 

BETAA 

CONL 

DLTpd 

OV 

EMU 

EXTRA 

I CHG 

INC 

ISTOP 

J 

JJR1 

jMNPl 

K 

KLQu AS 
K« 


0001 

OOOOl6 

0001 

0005*4  7 

0001 

0001 1 1 

0001 

000366 

OOOH 

00023H 

0006 

00Q03H 

0005 

000250 

0046 

000027 

OG  j6 

OOOJS 1 

0006 

000253 

0006 

000105 

0003 

000H20 

00q3 

000230 

0000 

000030 

0006 

000252 

0006 

0001  IS 

0000 

1 000011 

0006 

000062 

0006 

l 000257 

0030 

1 OOOOQl 

0006 

0000*45 

137G  0001 

250L 
30HL 
60L 
A 

ASaftH 
BET  A l 
CONQ 
DLTZ 
OVP 
EP 
GOT 
1 DUMP 
INJP* 

1SUBC 
JGMtN 
JL 

JOLO 
KACT 
KG 

KNTROL 


00025p  19L 
000560  25  I L 
0&0530  3100 
000137  7 L 
ACC 
A YLO 
CAPA 
DINT 
DLVH 
DX 
EQ 

HTICK 
l ED  K T 
IPtOT 
ISHS 
JJU 
JL  1 H 
JR 

KA«At 

KGHa* 
KOUT 


0001 
dcoi 
Oooi 

0003  OOOH 1 7 

0005  000007 

0006  000070 

0006  OCOO] 0 
0Q06  000103 

OOOH  0010H2 
OOOH  00 l 9 l H 

0006  R 000033 
0003  1 000232 
0003  I 000231 

0007  1 O00I51 

0006  OOOH7 
0006  00005H 

0000  I 0000|2 

0006  00006H 

0006  1 000005 
0006  I Q00012 
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<jMD 


0006 

1 COOOIS 

KP 

0006 

I 300013 

X l 

0006 

1 000261 

X* 

0004 

000202 

HP  N 

0000 

t 000007 

NCOMP 

0006 

00006S 

NX  1 NG 

0000 

1 ooooto 

NHEAD 

0006 

0000S6 

NVIS 

ooos 

00002S 

PAZ 

0003 

000144 

PBUL 

0006 

0002S6 

PESCUT 

0006 

000101 

PSCALE 

0006 

0001 1 1 

QH 

0007 

0001 16 

«YB 

0003 

0002S0 

SHASS 

0004 

000436 

ST  T 

0004 

001330 

SZTT 

OOOH 

OOOOOO 

TEMB 

OOOS 

000142 

T I LB 

ooos 

OOOISI 

TILEZ 

0006 

000044 

T T I HE 

0003 

0002S3 

UBUL 

0006 

000067 

VP 

0003 

000423 

V2ER0 

0004 

R 000116 

XDH 

0006 

000232 

XHSS 

0006 

00024S 

XT2 

0006 

0001  14 

YIELD 

0006 

000244 

Y T 1 

00w6 

030102 

KPRESS 

0036 

000017 

X 0 

0036 

000262 

L 

0036 

000003 

MT  APE 

3036 

OOOOSS 

NCORD 

0036 

C000C6 

NLPR 

0036 

030043 

nRESTr 

OOOS 

000223 

NV1SH 

OOJS 

000034 

PAl 

OOOS 

00006> 

PBZ 

0006 

OOOOOO 

PI 

0006 

000107 

PZ 

0006 

0002S4 

QKT 

0006 

000112 

RHO 

0003 

0002S2 

SHOH 

0003 

000421 

SVEL 

0004 

031212 

szxx 

0004 

OOOOOO 

TEHP 

OOOS 

000124 

T ILBB 

0006 

R 0w003S 

TOTE 

0004 

0006c* 

TTT 

0034 

00026* 

V 

0006 

000021 

V V A 

0006 

000247 

WT  1 

0036 

000234 

XFDT 

0006 

R 00023S 

XMSUH 

0006 

00023* 

xvz 

0036 

000242 

YH  AX 

0006 

000246 

YT2 

3030 

l 

C30-.'O4 

KSK  I P 

3030 

I 

00JJ33 

XI 

0003 

333226 

L«AX 

jC  36 

C3u2IO 

mtrl 

O0U6 

I 

00004  1 

ncyclE 

0C36 

003376 

NP 

0030 

1 

00CJ06 

nrite 

0035 

000214 

NVISR 

ooos 

300043 

P A 2 

ooos 

000070 

PB  1 

ooos 

000016 

PH 

0006 

0002*1 

PZl 

0007 

OOOOOO 

QX 

0004 

001446 

RRR 

0006 

000q74 

SN 

0004 

0003S2 

sxx 

0004 

001276 

SZXY 

OOoS 

000 i 33 

T 1 L A 

OOJS 

C00176 

T ILBET 

0006 

R 

0C003 1 

TOT  IE 

0004 

OOOS22 

T X X 

0003 

000 J3S 

vbul 

0006 

000022 

V V 0 

0006 

0002S0 

#T2 

0004 

000320 

XHASS 

0006 

* 

000233 

XM  V 

0004 

000724 

Y 

0006 

000240 

Y H 1 N 

0036 

1 

300046 

XSTOP 

0000 

I 

000002 

XS 

0036 

□03061 

L 0 X 

OOu-l 

000234 

NAME 

0006 

000042 

nedit 

0006 

000066 

NPLOT 

0000 

1 

000014 

nsrtch 

ooos 

000304 

NYY 

0005 

000052 

PA3 

0005 

000077 

PB2 

0006 

000020 

PHIN 

0006 

000266 

PZ2 

0007 

000032 

QX0 

0006 

000072 

SB 

0006 

000113 

SSP2 

0001 

000470 

SXY 

0001 

001244 

SZYY 

0005 

0001  IS 

TILAA 

0005 

000160 

tiles 

0006 

R 

000030 

TOTKE 

0001 

000640 

TXY 

0006 

0002SS 

VELCUT 

0006 

000023 

vvc 

0001 

001160 

X 

0006 

000241 

X M A X 

0001 

000032 

xp 

0003 

000062 

Y0UL 

0001 

000064 

YP 

0330 

I OOOOOS 

xsi 

0006 

I 003260 

X 6 

0306 

000263 

M 

0004 

OOOOOO 

NBC 

0006 

000007 

NKGEi 

0006 

000053 

nrdht 

0006 

000004 

NTAPSi 

0004 

0007S6 

P 

OOOS 

000232 

P A* 

Ooos 

O0OIO6 

P03 

0006 

0001  10 

PP 

0004 

oOloio 

Q 

0007 

000064 

QY 

0006 

O0O07I 

SB  1 

ooos 

000313 

STHaRQ 

0004 

000404 

SYY 

0003 

oOoi?7 

T 

ooos 

000167 

tilalp 

ooos 

000322 

tile5p 

0006 

000123 

TSPL 

0004 

000S&4 

TYY 

0004 

001362 

VH 

0006 

000024 

WO 

0003 

OOOOOO 

xbul 

0006 

000237 

XHiN 

0006 

000243 

XT  1 

0004 

R OOOISO 

YD* 

0006 

OOOIOO 

YR 

00101 

00103 

00107 

00107 

00126 

60130 

00131 

00132 

00133 
00131 
00 1 35 
00 1 35 

00134 
00 111 
00112 
00113 
00111 

00115 

00116 
00117 
001SI 


1 • 

2 • 

3* 

1*  C 

5 • 

6 • 

7 • 

S* 

9* 

10* 

1 !• 

12*  C 

13* 

11* 

IS* 

16* 

17* 

10* 

19* 

20* 

21* 


SUBROUTINE  grid 

include  gelcmn 
INCLUDE  CMaIN 

IF(KGMAXtGT.QB)  Gu  TO  3q1 
TOT  XE«0 • 

TOT  1 E*0 • 

HTKEX-O. 

HTIEX-O. 

XHSUH-O. 

XM V*0 • 

DO  300  XOUM* I »KG«aX 
X*  XDUM*  2 
xcomp-xduh 

XZ-XDUM 
KM-XZ-l 
XP*XZ^ 1 

call  CALCA  rt#T 

IF!  lEDlT.GT.  J.AND.NCTCLEtO.kSTOPi  CALL  CiOlT 
IF  ( lPLOTtGT*0*Af<D.NCYCLE  •EW4KST0P  | CALL  CPLOT 


X 10  000000 

000000 
000000 
oooooo 
oooooo 

000003 

000001 

000005 

000006 

000007 

000010 

OOOqIO 

000016 

000016 

000021 

000023 

00002S 

000027 

000032 

000031 

000052 
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GRID 


00IS3 

22* 

TOTKE«TOTKt*rtTKCK 

000070 

00151 

23* 

TOTIE»TOTIE*HT ICK 

900073 

OOISS 

2H  • 

HTKEK-J. 

000076 

00IS6 

2 S* 

HTIEK-O. 

000077 

00157 

2** 

300  CONTINUE 

000|02 

00157 

2 7* 

C 

000|02 

00161 

28  • 

TOTE-TOTKE+TOT 1C 

000102 

00162 

29  • 

return 

000(05 

00162 

30* 

C 

000105 

00163 

3 1 • 

30H  CONTINUE 

00011 1 

00161 

32* 

IFCNCYCLEoGT. 1 ) Go  TO  7 

000111 

00166 

33* 

K9«K ACT ♦ 100 

0001 11 

00167 

3H* 

1F(K9.GT.KGMAX)  K9-KGMAX 

000| 17 

00171 

35  • 

K6-KACT-I00 

000125 

00172 

36  * 

I F ( X 6 » LT • I ) K 6 ■ | 

000130 

00171 

3 7* 

7 CONTINUE 

000137 

30175 

3 8® 

kg«kgnax 

000|37 

00176 

39* 

KGMAX-K9 

000|10 

00177 

HO* 

KGMXPM-KGMA  X^H 

000(12 

00200 

HI  • 

10  < | N * 1 

K 

30 

COOlll 

00201 

H 2 • 

kOUT *2 

K 

HO 

000(16 

00202 

M3* 

K M * 3 

K 

so 

OOOlSO 

00203 

H M • 

KlmH 

K 

60 

000(52 

00201 

MS* 

*P»5 

K 

70 

000(51 

00205 

H 6 • 

K»K6 

000(56 

00206 

M7* 

K 5 ■ K 6 

000(60 

00207 

H 8 • 

K H «0 

000(62 

00210 

M 9 • 

IF(K6.UT.|)  X H ■ | 

000 | 63 

00212 

50* 

KSKIP* t (9JJ~I ) /2B* | ) • 1 K*-| -KH ) 

000(71 

002 1 3 

SI* 

KSI*iCgjJ-|)/28*l|«CK6-|) 

000(77 

00211 

52* 

1 F ( KS 1 . NE . 0 ) CALL  NTR AN < JT *PE • 6 ,KS 1 • 22 t 

000202 

00216 

S3* 

1 F C KSK 1 P • NE • 0 ) CALL  NTRAN  < 1 T APE  , 6 , tcSK  1 P , 22  ) 

000212 

00220 

5m* 

IF (K6.EQ.  1 1 GO  TO  19 

000222 

00222 

55  • 

CALL  KREAO( ! TAPE .KIN) 

000225 

00223 

56* 

CALL  NTRAN(  1 T APE  • 22 ) 

000231 

OC221 

57* 

K 1 N*  2 

000235 

33225 

56* 

K OU  T ■ 3 

000237 

00226 

59* 

KM«H 

000211 

00227 

60* 

*Z*S 

000213 

00230 

6 1 • 

KP«  1 

000215 

00231 

62* 

19  CONTINUE 

000250 

00231 

63* 

c 

OMMENT  ••  SET  TOTAL  ENERGIES  TO  ZeRU. 

K 

90 

000250 

00232 

6 H • 

TOTKE-O# 

K 

100 

0002SO 

00233 

65* 

TOTIE-O. 

K 

I 10 

000250 

00231 

66* 

XMSUM*0  • 

000251 

0023S 

67* 

X H V * 0 • 

000252 

00235 

68* 

c 

OMMENT  ••  SET  AlL  PROGRAM  SWITCHES  TO  OFF. 

K 

130 

000252 

00236 

69* 

2 C NR|TE»2 

000251 

00237 

7C* 

NCOMP-2 

000255 

00210 

71* 

NKEAO-I 

000256 

00211 

72* 

IF ( K # G T • K 6 ♦ I «AN0*k«LT .KGmAX*3 ) NCOMP-I 

000260 

00213 

73* 

1FC* .Gf.KSO)  NRlTE-1 

000302 

00215 

7 H • 

I F ( < • G T • KGnAX ) hR  t AD*2 

0003  1 1 

00217 

75* 

IF(K.EW.KGMAA4>|#Mt«0.KG.GT.KGMAX)  sRF  AU*  1 

000317 
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S«10 


3C2SI 

76® 

60  TO  130. H0» 

0C0337 

00252 

77® 

3a 

CALL  AHEAD! 1 TAPE. KIN) 

000317 

00253 

7 8* 

MO 

so  to  < 53 . *3 ) ,mi?i  re 

000353 

00251 

7 9® 

SO 

CALL  KARITEI JTAPt.KOUT 1 

0003*2 

00255 

80  • 

4 0 

60  TO  1 70 ,8CI  .HCOrtP 

0003** 

0025* 

8 l • 

70 

KCOMPaX-2 

000375 

00257 

82® 

call  Calca 

000377 

002*0 

83® 

IFC  IEDIT .6T .J.AUD.NCYCLE .FQ.XSTOP)  CALL 

CEO  I T 

000101 

002*2 

8 H • 

1FI  IPLOT.GT.O.AND.NCYCLE.EQ«kSTOP|  CALL 

CPLOT 

000117 

002*2 

85® 

c 

000H7 

002*1 

88® 

to 

60  TO  190. 1001  .ItREAD 

00013* 

002*5 

87® 

90 

IFI 1SRS.EQ.-M  CALL  NTR AN  I | T aPE  , 22  1 

OOOllS 

002*7 

88® 

1 F ( 15RS.LE.0I  CALL  ERROR 

000153 

00271 

89® 

100 

60  TO  1 1 10. 1201 .NNITE 

000141 

00272 

90® 

no 

IFI  ISRS.EQ.-I ) CALL  NTR AN » jT APE  . 22  1 

000170 

00271 

91® 

IF  1 ISWS.LE.OI  CALL  ERROR 

000174 

0027* 

92® 

120 

CONTINUE 

000501 

00277 

93® 

TOTKE-TOTKE+HTKCK 

K 

M 90 

000501 

00300 

9 M • 

TOTIE-TOTI£*HTIEK 

K 

500 

O0OSO4 

00301 

95® 

HTKEK-O. 

K 

SIO 

000511 

00302 

98® 

HT tEK-O. 

K 

520 

000512 

00302 

97® 

c 

000512 

00302 

9«® 

c 

BEGINNING  OF  ACTjVITY  TEsT 

000512 

00302 

99® 

c 

000512 

00303 

100* 

lFIK.NE.KGMAX.-2l  60  TO  251 

000513 

00303 

1 0 1 • 

c 

000514 

00305 

102® 

JL-JHIN<KCOHP) 

000520 

0030* 

103® 

JR» JMAX ( KCOHP ) 

000522 

00307 

10M® 

00  219  J-JL.JR 

000521 

00312 

• D I A6N0ST I C • 

the 

TEST  FOR  EQUALITY  BETWEEN  N0N-INTe6EKS 

Hay  not 

Bfc 

MEANINGFUL* 

003|2 

10S® 

1F(XOH(J.KM).NE,O.OR.YOh<J.KM).NE,0>  60 

TO  250 

000530 

00  3 1 1 

104® 

2M9 

continue 

. 

000515 

003)1 

107® 

c 

000515 

003 1 * 

108® 

60  TO  251 

ooOsis 

003 1 * 

109® 

c 

000515 

003|7 

I 10® 

250 

X 9»K9 ♦ 1 

000517 

00320 

111® 

IFIK9.6T.X6)  X9.X6 

000551 

0O32O 

112® 

c 

000551 

00322 

I 13® 

251 

IFIKC0NP.NE.K4)  6(j  TO  255 

000540 

00322 

1 IM® 

c 

000540 

00321 

IIS® 

DO  253  J-JL.JR 

000542 

00327 

•DIAGNOSTIC 

• 

The 

TEST  FOR  EQUALITY  BETWEEN  NON*  1 NTE6ERS 

mat  not 

Be 

MEANINGFUL. 

00327 

1 14® 

IF(XOHCJiKP).NE.O.OR.YOh(J.KP).NE.OI  60 

TO  251 

000547 

00331 

00333 

00333 

00331 

00335 

00335 

00337 

00337 

00337 

00337 

00310 


I I 7 • 
4 I • • 
111* 
120* 
I 2 I • 
122* 
123* 
121* 
1 25* 
I 26* 
I 27  • 


253  CONTINUE 
60  TO  255 
C 

251  K*aK*-| 

IF(K6.LT«I>  K*-| 

C 

2S5  CONTINUE 
C 

C ENO  OF  ACTIVITY  TEST 

C 


000*01 
000*01 
000*01 
000*04 
000*10 
000*10 
OoO* I 7 
000*17 
000*17 
000*17 
000*17 


200  I CHG*KOUT 


K *10 
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003*11 

12  8* 

kout»km 

003H2 

12?® 

KH»KZ 

003*13 

130* 

K2-KP 

003m 

131  • 

KP-K1N 

003*15 

132* 

K I N* 1 CHG 

003*14 

133* 

IF  U-KGHXP4*)  210.220,220 

00351 

1 3*1® 

210 

K » K ♦ 1 

00352 

135* 

GO  TO  20 

00353 

136* 

220 

tote-totke*totie 

0035*1 

1 37  • 

CALL  NTRANtJTAPC. 10,22) 

00355 

138* 

CALL  NTRANt ITAPE, 10,22) 

00354 

13?# 

nsktch-itape 

00357 

MO* 

itape-jtape 

00340 

MM 

JTAPE-NS4TCH 

00341 

M2* 

KGMAX-NG 

00362 

M3* 

RETURN 

00362 

MM* 

c 

00363 

MS* 

233 

FORMAT  ( 5X  i2HM  * I H *5x  *3hS  i * 

0036  H 

M 6 • 

END 

END  or 

COMPILATION;  2 DIAGNOSTICS 

UHDG 


grid 


I PE  I 5 • 7 i 


K 

650 

000620 

K 

660 

000622 

K 

670 

000621 

K 

680 

000626 

K 

4?0 

000630 

K 

700 

000632 

K 

710 

000636 

K 

720 

0006*1 1 

K 

730 

0006*13 

000615 

000652 

000657 

000661 

000663 

000665 

K 

710 

000667 

K 

750 

000667 

K 

760 

000710 

K 

770 

000710 

KKEAD 
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OF  OR  « S KREAD 

FOR  SE2C-a?/|9/75-G9:3S:2l  <Go> 


K<iL  aO 


SUBROUTINE  KRLaD  ENTRY  POINT  03^02© 

STORAGE  USED:  COOE(I)  000033;  OaTAIO)  000007;  BLANK  COMMQN(Z)  300000 


COMMON 

blocks: 

0003 

GEL  1 

000121 

0001 

RZF  1 

0S3616 

OOOS 

RZF2 

000331 

0006 

RZF3 

000267 

0007 

RZF1 

000IS2 

EXTERNAL  REFERENCES  (BLOCK,  NAME) 


0010 

NT  R AN 

0011 

NERR3S 

storage 

ASSIGNMENT  (BLOCK,  TYPE 

, relative  L0C» 

TION,  NAME) 

OOOH 

000231 

A 

0003 

OOOH  7 

ACC 

0035 

000266 

akmo 

0006 

00003** 

ASQRM 

0005 

000007 

A YLD 

0005 

000211 

AYLOl 

ooos 

0002S0 

beta) 

0006 

000070 

CAPA 

0006 

00007t 

CAPC 

0006 

000027 

CONQ 

0006 

000010 

0 1 NT 

0033 

000123 

OISP 

0006 

OOOOSl 

DLTZ 

0006 

000103 

DLVH 

0006 

OOOIOl 

DLZH 

0006 

0002S3 

DVP 

0001 

001012 

OX 

0031 

001071 

OY 

0006 

000  tos 

EP 

0001 

001111 

EQ 

0006 

000077 

EZ 

0003 

000120 

GOT 

0006 

000033 

HT  IEK 

0006 

0001)32 

HTKEK 

0003 

000232 

1E01  T 

0006 

000251 

IHTOP 

0033 

33-251 

ikmax 

0003 

00023 1 

iplot 

0036 

000057 

I PLR 

0007  1 

000)50 

1 SRS 

0007 

OOOISI 

ISIS 

0006 

00000 > 

I TAPE 

0001 

OQGOOO 

ITEMB 

0006 

000115 

JGMIN 

00J6 

000117 

J JL  1 

U0j6 

000121 

J JL  2 

0006 

OOOOSl 

JL  I M 

0006 

000121 

jmax 

0036 

000)56 

JM  I N 

0006 

000002 

jtape 

0006 

000016 

JO 

0006 

000037 

K 

0006 

000063 

KCOMP 

0006 

000217 

KEQUAS 

0006 

oooaos 

kgmax 

0006 

OOOOH 

KM 

0006 

000015 

KNTROL 

0006 

000012 

KOUT 

0006 

000016 

KSTOP 

0006 

000013 

KZ 

0006 

00001? 

KO 

0006 

000262 

L 

0003 

000226 

LMAX 

0006 

000061 

LOX 

0006 

000003 

MT  APE 

0006 

000210 

MTRL 

0003 

000231 

NAME 

0006 

000011 

NCYCLE 

0006 

000012 

NEDIT 

0006 

000007 

nkgeb 

0006 

000076 

NP 

0006 

000066 

NPLOT 

0006 

000053 

mroat 

0006 

000056 

NVIS 

0005 

000223 

N V ISM 

0005 

000211 

nv  isr 

OOOS 

000025 

PAZ 

0005 

000031 

P A 1 

0005 

000013 

PA2 

0003 

ooom 

PBUL 

OOjS 

000061 

PBZ 

OOOS 

000070 

PBl 

0006 

000256 

PESCUT 

0006 

OOCOCO 

PI 

0005 

QCOU 1 6 

PM 

0006 

OOOIOl 

PSCALE 

0306 

D 1)010? 

PZ 

0006 

00026« 

PZ  1 

0006 

OOOH  1 

Qh 

0006 

030251 

QRT 

0037 

000000 

MX 

0007 

0031  16 

QYB 

0006 

0-0112 

RHO 

oGOI 

001 A 

RRR 

0005 

000205 

AMU 

OOOS 

OOOOfO 

ARHO 

0005 

000257 

BB 

0005 

00027S 

BETaA 

0004 

000025 

CONA 

0006 

000026 

CONL 

0004 

000017 

DLTH 

0006 

000036 

DUM 

0004 

000050 

dtmin 

6001 

OO 1 1 26 

ov 

OOOH 

000672 

E 

0006 

000106 

emu 

0004 

000073 

FNt 

0006 

000220 

rxTRA 

0004 

000060 

icart 

0003 

000230 

10UHP 

0004 

000261 

INC 

0000 

000002 

iNJPi 

0003 

000233 

ISTOP 

0006 

000292 

ISUBC 

0000  ] 

1 000000 

IWORD 

0006 

oOooio 

J 

0004 

000122 

J JL  ^ 

0006 

000120 

Jj*t 

0004 

0001 I 6 

JMNPl 

0006 

000062 

JOLO 

0004 

000257 

KACT 

0006 

000061 

KABAV 

0004 

000052 

kgmxph 

0006 

00001 1 

KIN 

0004 

000015 

KP 

0006 

000102 

KPA(SS 

0004 

000260 

K4 

0006 

000261 

KJ 

0004 

000263 

M 

0001 

000202 

MPN 

OOOH 

000000 

NBC 

0006 

OOOOS5 

NCORD 

0004 

000065 

NKING 

6006 

000006 

NLP* 

0004 

000013 

NRESTR 

0006 

OO0001 

NT  APE 

0005 

000301 

NYY 

0001 

000796 

P 

0005 

000052 

PA3 

OOOS 

000232 

PAH 

0005 

000077 

PB2 

OOOS 

000 1 06 

PBl 

0004 

000020 

Pm  I n 

0006 

oooi to 

PP 

0004 

000266 

PZ2 

0001 

OOlOJO 

Q 

0007 

000032 

QXB 

0OO7 

000061 

QY 

0004 

C00072 

SB 

0006 

00007 1 

SB  1 
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kread 


OOOl 

0G0250 

SmASS 

0004 

000436 

SIT 

0004 

001330 

S2TT 

0004 

000000 

TEM6 

0305 

000142 

TILE 

0005 

300151 

T ILE2 

0006 

000044 

TT  IHt 

0003 

000253 

UBUL 

0306 

00006  2 

VP 

QC03 

0004  2 3 

V ZERO 

C0Q4 

00C1  1 6 

XOh 

0006 

CG3232 

X NS  S 

0006 

000245 

X T 2 

0006 

CG01  1 4 

r i eld 

0006 

000244 

YT  I 

GC  101 

1 • 

30103 

2* 

00107 

3 • 

30107 

4 • 

C 

00107 

5* 

c 

0CI26 

6 • 

00127 

7« 

00130 

0 • 

0013! 

9« 

or?i3 

Cv 0252 

SMOH 

00u3 

0004  2 t 

SVEL 

003*4 

061212 

S2XX 

003*4  H 

063030 

TEHP 

0005 

030124 

T l LEE 

OC  J6 

OCC 335 

TOTE 

000*4 

00060* 

ttt 

000*4 

000266 

V 

00*6 

GuOOZl 

VV  A 

JC-6 

C00247 

AT  l 

0036 

CGC234 

XFOT 

0036 

300235 

XMSUM 

0306 

000236 

X V 2 

00J6 

00C242 

Y H A X 

0036 

000246 

Y T 2 

SUhkJUI  Iriti  KKf  Apt  lT»Kl  i 
INCLUDE  GF-LC^N 
INCLUDE  C^aIN 
Ht  AD  Qi*t  X-LINE  r.<OM  F l L t 
r,  1 TH  JJMIN  AND  CNylNG  *ITm 
IJIORD*^  J*«NV 

CALL  NTHAN<1T|2,I^ORD*TlHP 

return 

END 


CCS6 

3C3J74 

SN 

0006 

00  3** 

300352 

s x X 

003*4 

003*4 

30 1 27  6 

S*x  Y 

000*4 

LCC.5 

000133 

T 1 L A 

0C05 

g0o5 

3G0174 

tilbet 

00C5 

00J6 

000031 

TOT  1 L 

0006 

OOj** 

000522 

T XX 

000*4 

00*3 

000335 

V Blit 

00g6 

0006 

0CC022 

V V8 

0006 

U0u6 

001)250 

«T2 

030*4 

000*4 

303323 

XHASS 

0006 

0006 

030233 

X H V 

000*4 

003*4 

000724 

Y 

0003 

0006 

000240 

YMIN 

000*4 

T i ♦ T . ; k ■ LINE  M STARTING 
JJM  AX 

I » 1 • 1C  L > • IShSI 


OOOl 13  SSP2 
003H70  SXY 
3012*4**  S2TT 
0001  15  T l L A A 
000160  TILES 
000030  TOTKE 
0006*40  TXT 
000255  VELCUT 
000023  VVC 
001160  X 
0002*4!  MAX 
000032  XP 
000062  YBUL 
00006*4  YP 


0305 

0003 | 3 

sthahd 

3004 

000404 

SYY 

0003 

000227 

T 

0005 

000167 

TJLaLP 

0005 

000322 

T I LE^P 

0006 

000123 

TSPL 

0004 

000554 

TYY 

0004 

001362 

VM 

0006 

000024 

VVD 

0003 

oOoooo 

XBUL 

0006 

000237 

XHlN 

0006 

000243 

XTl 

0004 

000150 

YDH 

0006 

000100 

YR 

000002 
000002 
000002 
L 20  000002 

L 30  000002 

0Q0Q02 
00000*4 
L 110  000015 

L 120  000032 


end  of  compilation: 


NO  DIAGNOSTICS# 


tfhOli 


K * *<  1 T £ 
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Qf OR,S  K ft  R I T E 

FOR  5E2c-09/I9/7S-o’:35:22  I 0 ♦ » 


SUBROUTINE  KftRjTE  ENTRY  POINT  JOOQ2<, 


STORAGE  USED:  CODE(l)  030033;  OaTA(O)  JO0OO7;  bla 
COMMON  BLOCKS; 


0003 

GEU 

000H2H 

0001 

RZFl 

0S36H6 

0005 

RZF2 

000331 

0006 

RZF3 

000267 

0007 

RZF1 

000 1 S 2 

EXTERNAL  REFERENCES  (BLOCK*  NAME) 

0010  NTRAN 

0011  NERR  3 * 

STORAGE  ASSIGNMENT  (BLOCK*  TYPE*  RELATIVE  LoCATI 


0001 

000231 

A 

0 Ju  3 

oooii 7 

ACC 

0006 

000031 

ASQRM 

OOuS 

0000C7 

AYLO 

0005 

000250 

BE  T A l 

C006 

0CC070 

CAPA 

0006 

000027 

conq 

0006 

000010 

dint 

0006 

000051 

DLTZ 

uOu  6 

0C0IC3 

OLVH 

0006 

000253 

DVP 

OOOH 

001012 

DX 

0006 

CC0105 

EP 

0C3M 

col  1 1 1 

E w 

0003 

000*120 

bD  T 

0006 

00LC33 

MllEK 

0003 

000232 

1 ED  1 I 

0306 

3uC25 1 

1 "TOP 

0003 

000231 

IPL01 

0Cj6 

000u5  7 

IPuW 

0007  l 

CC0I51 

ISAS 

DC  j6 

CoCoO  1 

ina 

0006 

0001 15 

JGM  I N 

J006 

0001  1 7 

JJL  1 

OOCo 

000051 

JL1M 

0036 

COO  1 21 

jma  X 

0006 

000002 

JT  APt 

00„6 

00CC16 

JO 

0006 

000C63 

KCOMP 

0006 

OoC2  | 7 

KEGUAS 

0006 

OOOOH 

KM 

OOC  6 

000015 

KNTROL 

0006 

000016 

kstop 

0006 

OOOC 1 3 

KZ 

0006 

000262 

L 

U003 

0C0226 

lmax 

0006 

000003 

MTaPE 

U0C6 

000210 

MTRL 

0006 

00001 1 

ncycle 

0306 

00C012 

NED  I T 

0006 

000076 

np 

0006 

000066 

nplot 

0006 

000056 

NV  IS 

OOuS 

000223 

NV  1 SM 

0005 

000025 

PAZ 

ooos 

000031 

P A 1 

0003 

000111 

PBUL 

0Du5 

COOCb  1 

PBZ 

0006 

003256 

PESCUT 

Ow  * 6 

CoOGCO 

PI 

0006 

000101 

pscale 

00  j6 

0„0tC7 

PZ 

0006 

0001  1 1 

UM 

000251 

GR1 

0007 

OCOI  16 

GYB 

Jm  0 6 

C001 12 

KhO 

kar  i re 


NK  COMMON ( 2 ) 000000 


U N # NAME ) 


00  J5 

000266 

AK  MO 

JOuS 

0002H 

AYLDl 

DC  3 6 

000075 

CAPC 

jO  J 3 

000122 

OISP 

0006 

OOOIOl 

dlzh 

OOOH 

001071 

OY 

CCJ6 

000077 

EZ 

00o6 

C30t>32 

Ui 

* 

*- 

i 

„C  J 3 

000251 

I K H A X 

LG^7 

OOP  1 50 

15RS 

*CJH 

ooouoo 

1 T E MB 

uG*>  6 

000121 

JJL2 

OC  -6 

CO  3156 

JM  IN 

OG  36 

0Cuii37 

K 

0036 

030.J05 

K G M A X 

DO  J6 

000012 

KOUT 

JG  J6 

00001 7 

KO 

0006 

000061 

LOX 

0003 

000231 

NAME 

0006 

OOuuO7 

nkgeb 

00G6 

000053 

NROftT 

0005 

000211 

nvisr 

0005 

ooooiJ 

PA2 

uocs 

00CJ70 

PBl 

CCw5 

OOOo 1 6 

PM 

DC  J 6 

000261 

PZ1 

_C_7 

OCO JOO 

QX 

CjIi16 

RRR 

00i>5 

000205 

AMU 

0005 

000257 

BB 

0006 

000025 

CONA 

0006 

000017 

dlth 

0006 

000050 

DTM1N 

0001 

000672 

E 

0006 

000073 

FN1 

OOo6 

000060 

1 C ART 

0036 

0C0261 

INC 

0003 

003233 

I STOP 

OOjO  1 

1 000000 

I WORO 

0006 

000122 

JJL^ 

00J6 

00C1  |6 

JMNP  1 

0006 

000257 

kact 

0006 

000052 

KGMXPH 

0006 

000015 

KP 

000* 

000260 

K A 

0006 

000263 

H 

0001 

000000 

NBC 

0006 

000065 

NK  JNG 

0006 

000013 

mrestr 

0005 

000301 

NY  Y 

0005 

000052 

PA3 

0005 

000077 

PB2 

00ij6 

000020 

PM  J N 

0006 

000266 

PZ2 

0007 

000032 

Q X b 

0006 

000 J 7 2 

SB 

0005 

000000 

ARHO 

0005 

00027S 

BETaA 

0306 

000026 

CONL 

0006 

000036 

oltpm 

OOOH 

001126 

OY 

0006 

000106 

EMU 

0006 

000220 

fxtma 

0003 

O0O23O 

ioump 

0300 

000002 

INJP* 

6006 

000252 

ISUBC 

0006 

000010 

J 

0006 

000120 

J JR  1 

0006 

000062 

JOLO 

0006 

000061 

ka«ay 

0006 

OOOOJl 

KIN 

0006 

000102 

kpress 

0006 

000261 

Kf 

OOOH 

000202 

MPN 

6006 

000055 

ncord 

0006 

000006 

NLPR 

0006 

000001 

NTAPC 

OOOH 

000756 

P 

0005 

000232 

PAH 

0005 

000106 

0306 

0601 jO 

pp 

330H 

001010 

Q 

0007 

000061 

QY 

0006 

C0007 1 

SB  I 
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KurtlTE 


0003 

000250 

SKASS 

3003 

000** 

000H36 

ST  T 

JO  J3 

000** 

001330 

SZTT 

ULJ** 

OOOH 

000000 

TEMB 

you** 

0005 

000 1 **2 

T I LB 

0005 

0005 

000151 

ma 

0306 

0006 

0000**** 

TTIMt 

003** 

0003 

0002S3 

UBUL 

000*1 

OOOo 

000067 

VP 

0006 

0003 

000**23 

V ZERO 

0036 

000** 

0001 16 

AOH 

0036 

0006 

C00232 

xmss 

0306 

0006 

0002**5 

XT2 

0006 

0006 

0001  1** 

YIELD 

0006 

0006 

0002**** 

YT  1 

0006 

C002S2 

SrtOM 

0036 

OC037N 

0u0**2 1 

SV£L 

003** 

000352 

CO  1 2 I 2 

szxx 

oOu** 

CO  1 27  6 

K CuOOCO 

TEMP 

0005 

000133 

00012** 

TILBB 

0005 

000176 

000035 

TOTE 

0006 

000031 

G0C6a6 

TTT 

UCQ** 

000522 

00C266 

V 

OCO) 

000335 

00002* 

V V A 

0006 

000022 

0C02**7 

HU 

U006 

000250 

00023** 

030235 

XFDT 

XMSUM 

003** 

0006 

000320 

000233 

000236 

xvz 

000** 

00072** 

0002H2 

YMAX 

0036 

0002<IG 

0002H6 

Y T 2 

SN 

0006 

0 

0 

0 

SSP2 

sxx 

000** 

000R70 

SXY 

SZX  Y 

000** 

00 1 2h  ** 

SZYY 

TILA 

OOOS 

0001 15 

tilaa 

T ILBET 

0005 

000160 

TILE5 

TOT  I E 

0006 

000030 

TQTKE 

TXX 

000** 

0006*10 

TXY 

VBUL 

0006 

000255 

VELCUT 

VVB 

0006 

000023 

vvc 

*T2 

000** 

001160 

X 

XMASS 

0006 

0002**! 

xmax 

X H V 

000** 

000032 

XP 

T 

0003 

000062 

YBUL 

YMIN 

000** 

00006*1 

YP 

0005  0003|3  STHAftD 

000**  000**0**  SYY 

0003  000227  T 

0005  000167  TILaLP 

0005  000322  T|LE*P 

0006  000123  TSPl 

000**  00055**  TYY 

000*1  001362  VH 

0006  00002**  VVD 

0003  000000  XBUu 

0006  000237  XMIN 

0006  0002*13  XT  1 

600*1  000150  YOH 

0006  000100  VR 


OOIOI 

1 • 

00103 

2 • 

00107 

3 • 

00107 

M • 

OO 107 

5« 

00126 

6* 

00127 

7 • 

00130 

8 • 

00131 

9* 

ENO 

OF 

8HDG 


C 

C 


SUBROUTINE  KiR ITt 1 I T fKL ) 

INCLUDE  GELCMN 
INCLUDE  CHAIN 

arjTe  ONE  k-line  to  pile  )T  from  a-linl  kl 

A I TH  JJHIN  AND  ENDING  *ITm  JJHAX 
I«ORD»«J*UNV 

call  ntraniit,  I , iword.Tehpu,  i ,kl»  . ISAS) 

RETURN 

END 


STARTING 


compilation: 


NO  DIAGNOSTICS. 


lgRan 


000002 
000002 
000002 
M 20  000002 

M 30  000002 

000002 

oo6oo*t 

H BO  000015 

M 70  000032 
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L .1*  A N 


_»F  OR  ,5  LGWAU 

FOR  SE2C-U?/ I 9/7S- j9  : 3b  : 2*  lj,l 

subroutine  LGRa»<  entry  POINT  ->CUj3u 


STORAGE  USED;  cODE(l)  000333;  DaTA(O)  uGGIOM;  blank  CUMMON(Z)  0000?0 
COMMON  BLOCKS: 


0003 

6ELI 

000424 

0004 

RZFl 

0536M6 

0005 

RZF2 

000331 

OOOo 

RZF3 

000267 

0007 

R ZF  4 

030152 

EXTERNAL  REFERENCES  (BLOCK,  NAME) 


0010 

HMXCOM 

001  1 

NTRAN 

0012 

ERROR 

0013 

AOF 

0014 

mqdev 

0015 

grid 

0016 

c dump 

0017 

nwdus 

0020 

N102S 

0021 

NERR6S 

0022 

NERR3S 

storage  assignment  <block»  type,  pelai 


0030 

000006 

1 IF 

03CC 

3J0u2b 

0301 

000237 

l/L 

9C9uMw 

000) 

030144 

M7L 

UOO  1 

3u 03u« 

0005 

000205 

AhU 

UOOb 

OjOJUO 

0005 

000257 

BB 

0035 

OU027S 

0006 

000025 

CONA 

3C  J6 

0U0C26 

0006  R 

000047 

DLTH 

u3u6 

H 

GuOOJ* 

0006 

000103 

DLVH 

0096 

OOOIOM 

OOOM 

001042 

DX 

OOOM 

OOID7M 

OOOM 

001414 

EQ 

0006 

000077 

0006 

000033 

HT  IEK 

0006 

OOC032 

0006 

000251 

IhTOP 

0003 

000251 

OOOo 

000057 

IPLR 

0007 

I 

000150 

0006 

00000 1 

ITAPE 

OOJM 

000000 

0006 

0001 1 7 

JJL) 

0906 

000121 

0006 

000124 

JM  A X 

3CG6 

UGO 156 

0006  1 

000016 

Jw 

3906 

0JDJ37 

0006 

000217 

KEQUAb 

0 J36 

i 

ouojcs 

0006 

00C04S 

KNTRUL 

33u6 

0 JOG | 2 

l*E  LOCATION,  name) 


I2F 

oCJI 

0CUU2  ? 

l22L 

0C03 

2GL 

jD.I 

OOOU66 

33L 

0031 

BBL 

OOuM 

000234 

k 

00  3 3 

ARNO 

uGl6  k 

000  j 3 4 

AS9*m 

OOoS 

BET  A A 

0C35 

0„ jZ5 J 

BETU 

OOG6 

CONL 

JGL6 

3u6U 2 7 

CON  } 

0006 

OLTPH 

0000  R 

000301 

OLTS 

0030 

DL2H 

3036 

000050 

DTHJN 

OOOM 

DT 

OOOM 

000*72 

E 

0006 

E2 

0036 

000073 

FN1 

0006 

HTKEK 

0006 

000060 

ICART 

0003 

UMAX 

0006 

000264 

INC 

0000 

ISRS 

0003 

000233 

JSTOP 

0006 

ITEMS 

0090  | 

000900 

I WORD 

0006 

JJL  2 

0006 

000122 

JJL3 

0006 

JMIN 

JQ'J6 

0001 16 

JMNP1 

0906 

K 

30-6 

000257 

KACT 

0006 

kGmax 

00  J6 

00oU52 

KGMXPM 

0006 

KOUT 

0396 

000015 

KP 

0906 

000037 

1 3f 

0000 

000042 

IMF 

0000  7 N 

JSL 

0001 

000122 

M5L 

000*17 

ACC 

0005 

000266 

AKMo 

000007 

AYLD 

0005 

000241 

A YLO  1 

000070 

CAPA 

0006 

000075 

CAPC 

000010 

DINT 

0003 

000422 

OlSP 

R 

000002 

OLTTP 

0006 

R 

000051 

DLTZ 

001126 

DV 

0006 

000253 

OVP 

000106 

EMU 

0006 

000105 

£P 

000220 

FXTRA 

0003 

000420 

5DT 

1 

000230 

I DUMP 

0003 

I 

000232 

I £D  1 T 

000075 

INJPS 

0003 

I 

000231 

l PLOT 

1 

000252 

ISUBC 

0007 

1 

oooisi 

ISRS 

OOOOMO 

J 

0006 

000115 

J€M|H 

000120 

J JR  1 

0006 

O0OOS4 

JL1H 

000062 

JOLD 

0006 

000002 

JT  AP| 

00036  M 

K AR  A Y 

0006 

000062 

KCOHf 

00001 1 

KIN 

0006 

000014 

KM 

000102 

KPRESS 

0006 

l 

000046 

KSTOP 
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lgran 


0006 

000013 

KZ 

0006 

1 0000 | 7 

KO 

0003 

000226 

LH 

0006 

000061 

LOX 

0006 

000210 

MTRl 

3003 

000231 

NAME 

0006 

000012 

NEDIT 

0006 

030007 

NKGEB 

0006 

000066 

NPLOT 

0006 

0000S3 

NRDWT 

0005 

000223 

NVISM 

OOOS 

000211 

NVISR 

OOOS 

000031 

PA  1 

0005 

000013 

PA2 

0005 

000061 

PBZ 

0005 

000070 

PBl 

0006  R 

000000 

PI 

OOOS 

000016 

PM 

0006 

000107 

PZ 

0006 

000265 

PZI 

0006 

0002S1 

QRT 

0007 

000000 

QX 

0006 

000112 

RHO 

0001 

001116 

RRR 

0003  R 

000252 

SHOW 

0006 

000071 

SN 

0003 

000121 

SV  CL 

0001 

000352 

sxx 

0001 

001212 

szxx 

0001 

001276 

SZXY 

0001  R 

000000 

TEMP 

0005 

000133 

TILA 

OOOS 

000121 

TILBB 

0005 

000176 

tilbet 

0006  R 

00003S 

TOTE 

0036 

R 000031 

TOT  1 E 

0001 

000606 

TTT 

0001 

000522 

TXX 

0001 

000266 

V 

0003 

000335 

vbul 

0006 

000021 

V V A 

0006 

000022 

VVB 

0006 

000217 

*Tl 

0006 

000250 

WT2 

0001 

000116 

XDH 

0006 

000231 

XFDT 

0006 

000232 

XMSS 

0006 

R 000235 

XMSUM 

0006 

000215 

XT2 

0006 

000236 

XVZ 

0006 

000111 

YIELD 

0006 

000212 

YMAX 

0006 

000211 

TTl 

0006 

000216 

YT2 

0006  000260  K6 

0006  000263  M 

0001  000000  NBC 

0006  000066  NKIN6 

0006  000013  NRESTR 

OOOS  00030*1  NTT 

OOOS  000052  P*3 

0005  000077  PB2 

0006  000020  PH  I N 

0006  000266  PZ2 

0007  000032  QXB 

0006  000071  Si 

0006  000113  SSP2 

0001  000170  SXY 

0001  001211  SZYV 

0005  000115  TILAA 

0005  000160  TILES 

0006  R 000030  TOTKE 

0001  000610  TXY 

0006  000255  VELCUT 

0006  000023  WC 

0001  001160  X 


0001  000320  XHASS 

0006  R 000233  XHV 


0001  000721  Y 

0006  000210  YHIN 


0006 

000261 

K9 

0001 

000202 

mpn 

0006 

000055 

NCORD 

0006 

000006 

NLPR 

0006 

000001 

ntape 

0001 

000756 

P 

0005 

000232 

PA* 

OOOS 

000106 

PBl 

0006 

OOOIIO 

PP 

0001 

001010 

9 

0007 

000061 

9 Y 

0006 

000071 

SB  1 

0005 

000313 

STHARD 

0001 

OO0101 

STY 

0003  R 

000227 

T 

0005 

000167 

TILALP 

0005 

000322 

TILE5P 

0006 

000123 

TSPL 

0001 

000551 

TYY 

0001 

001362 

VM 

0006 

000021 

VVD 

0003 

000000 

XBUL 

0006 

000211 

XMAX 

0001 

000032 

xp 

0003 

000062 

ybul 

0001 

000061 

TP 

0006  000262  L 

0006  000003  HTAPE 

6006  I 000011  NCYCLE 

0006  000076  Nf 

0006  0000S6  NV 1 9 

0005  000&26  PAf 

0003  000111  PiUL 

0006  000256  PCSCVT 

0006  000101  P9CALC 

0006  0001 11  OH 

0007  000116  OYB 

0003  R 000250  SHASS 

0001  000136  >TT 

0001  001330  SZfT 

0001  000000  TCHi 

0005  000112  TILi 

0005  000151  T|LC? 

0006  R 000011  TT1HE 

0003  000253  UBUL 

0006  000067  VP 

6003  0601«3  V ZERO 

0000  R 000603  XC5 

0006  000237  XHlN 

0006  000213  XT  1 

0001  OOOIIO  YOH 

6006  060100  Vft 


00101 

M 

SUBROUTINE  LCRAM 

00103 

2* 

INCLUDE  6ELCHN 

00107 

3* 

INCLUDE  CHAIN 

00124 

4» 

CALL  HHXC0HII5.21 

00127 

5» 

IF1KGMAX.6T.4B)  «0 

TO  122 

00  III 

4* 

|»0RD-9J»9NV*QB 

00112 

7# 

CALL  NTRAN(lS|2,lW0R0fTEMP«! 

00123 

miSRS.LE.OI  call 

ERROR 

OOI3S 

f* 

122 

CALL  NTRANC |5. 10l 

00134 

10* 

OLTS-O. 

00137 

IM 

KSTOP»»YYt»»Yl 

00140 

12* 

ISUBC-I 

00  Ml 

13* 

20 

CONTINUE 

60  M2 

14* 

DLTTP»DLTM 

Q0M3 

IS* 

NCYCLE»NCYCLE*I 

00  M 4 

14* 

1 p ( NCYCLE .E9. 1 1 <*0 

TO  35 

00M4 

17* 

DLTPH".32»AS9RH 

00 1 47 

IB* 

IF 1DLTPH*! • l»OLTH| 

30  1 30 • 25 

001  42 

If* 

2S 

DLTZ«I.OS»OLTH 

00 1 S3 

20* 

dlth-i.i»dlth 

00 1 54 

21* 

bO  TO  35 

OOISS 

22* 

30 

0LTZ-t5* (0LTM*0LTPH) 

00  ISA 

23* 

olth-dltph 

000000 
000000 
606000 
000000 
000003 
„ 000007 

OOOOi 1 
000021 
000027 
000032 
000033 
Oo6o39 
000010 
600010 
090011 
600011 
000016 
606051 

066056 

000061 
006061 
6Q0066 
0Q0Q7  I 


Page  51 


* • i 


CC157 

ZM  ♦ 

CONTINUE 

o 10c  7 *t 

0CI60 

2 S® 

IT  IME-I T 1 M £ ♦ 0 L f i • 

030074 

OC16I 

26* 

IFCTT  I ML  #LT.T  ) r,U  Tu  v, 

On00  7 6 

00163 

2 7® 

TT  IME-TT  Iht-uLTlI 

COOlOl 

00164 

?»• 

i)Ltpm«t-  runt 

000101 

201  6b 

29  m 

DLT2»ob®(DLTTP®pLTPH) 

000|06 

33166 

30* 

OLTS»OlTH 

000| 1 1 

00167 

31* 

DLTM®DLTPH 

000|I3 

00170 

3 2* 

TTIME-T 

000|I5 

00171 

3 3 • 

KSTOP«NCYCLE 

000| 1 7 

00172 

3M® 

MS  CONTINUE 

000122 

00173 

35* 

ASQRM- 100000* 

006 | 22 

00174 

36* 

1 F 1 iPLOT#E9*OoORo|«CYCLE.LT. KStOP)  GO  ru  M 7 

000|23 

00176 

37  • 

call  adf 

000 1 36 

00177 

38® 

CALL  MODE V ( 'UNDO**  ) 

000140 

00200 

39® 

M 7 CONTINUE 

000| 14 

00201 

MO® 

CALL  GK20 

000|44 

00202 

M|® 

ISUBC-ISUBCM 

000|45 

00203 

M2® 

®RITE (4.1 l 1 NCYeLt i JO ,AC » TT IME  »DL*H 

000150 

00212 

M3® 

11  FQKhAT<10X,,CYCLE*.l4I3X,»jC*.lS,3X.,>j*»lS.5*,*T|Mf,*» 

000162 

0021  2 

MM® 

1 I PE  1 3 • M , 5X  * •OELtA^T* .£1 J,M) 

000|62 

002  | 3 

M5® 

if  ueoi  t.eg.o.or.ncycle*nf#<stup  ) t,o  ru  i; 

000162 

00215 

M 6 • 

ARITEC6, 12) 

000|74 

002 1 7 

M 7 • 

12  F0RHAT(//»3X. lOMToTAL  X . f . , 3 a , 1 OH ToT AL  J • £ . . 2x . 1 2hT0T Al  ENERGY) 

000201 

00220 

M 8 • 

«RlTE(4, 13)  T0TKE,T0T|E,T0TE 

000201 

00225 

M9® 

13  FORMAT  I |X,1P3EI3‘H) 

00021 1 

00226 

50* 

XM V*2 • ®P  1 I l ) ®XMV 

000211 

00227 

SI* 

SMOM®XMV 

000216 

00230 

52* 

XM5UM® 2 • • P 1 i 1 ) ®XMj>UM 

000217 

00231 

S3® 

SMAS5®XMSUh 

000222 

00232 

sm® 

XCG-XHV/XMSUM 

000223 

00233 

S5® 

•RITE! 4 • IM)  XMV .XmSUHoXcG 

000226 

00210 

58® 

|M  FORMAT! / .5X. •MOMENTUM®* , IPE1S. 7 ,3X , *MASS»* .E1S®7o3X , »C  G-«. 

000237 

00210 

S7  • 

1 EIS.7) 

000237 

00211 

St® 

17  CONTINUE 

000237 

0021 1 

S9® 

C 

000237 

00212 

40* 

lFIDLTPH*LT*0®0)RfcTURN0 

000237 

00211 

41® 

IF(NCYCLE.LT.KSTOp)  GO  TO  20 

000243 

00216 

42* 

OLTH-OLTS 

000247 

00217 

43® 

IF ( IDUMPoGT.G)  CALL  CDUmP 

000251 

00251 

4M® 

CALL  MMXCOMf 1S« | ) 

000256 

00252 

4S® 

1 F ( KGMAX  o GT  «QB ) Gy  TO  8| 

000262 

00251 

44® 

|«0R0®QJ®QNV®QB 

000266 

00255 

47® 

CALL  NTRAN! 1 S» 1 , ttfORDiTfMp  < 2 , 1 * 1 ) , |S«S .22) 

000270 

00256 

48* 

if ( i st s • le • o ‘ call  error 

000)00 

00260 

4f  • 

88  CALL  NTRAN(|S«10> 

000)06 

00261 

70® 

1 F 1 l PLOT • GT  . 0 ) CALL  MODE V ( t NOR  I NOON • ) 

000)11 

00263 

71® 

90  RETURN 

000)17 

00261 

72® 

END 

000)32 

CNO  or  COMPILATION;  NO  DIAGNOSTICS. 


1 


2 

< 

tc 

j: 


x 

z 


% 


K9 

O 

X 

3 
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wfor,s  u npli 

FOR  SL^C-v.9/|9/75-u>.JS:*7 


\ 1 * F i-  T 


* » I 


SUBROUTINE  L1NHU1  E'.TKf  ruiM 


storage  used:  corctij  da'aiu) 


LAhK  COMMON(Z)  000000 


COMMON  BLOCKS; 


0033 

OEL 

1 

O0GH2R 

0°JH 

RZF 

1 

05  3 6 *i  o 

0005 

RZF 

2 

UCC33I 

C00t> 

RZF 

J 

OC  0 2 6 7 

0007 

RZF 

*4 

0 :» c 1 b 1 

external  references  ioic*:»  . name) 


00»0 

RESTaR 

00  i 1 

MMX  COM 

0012 

N T R A U 

0013 

error 

001s 

gen 

0015 

GEN1 

0016 

RELAX 

0017 

gedit 

0020 

NERR3S 

storage 

ASSIGNMENT  (BLOCK,  TTPE 

, RELATIVE  L OC  t 

r ion  , name ) 

0001 

0000*13 

1DL 

UOU  1 

OoOIC6 

122L 

0031 

0Cuu53 

1*15(3 

000*1 

00023** 

A 

0003 

C00*1 1 7 

ACC 

JO  j5 

000266 

A K H 0 

0006 

00003** 

asqrm 

Ci3j5 

0 jOCL  7 

AYLD 

0C3& 

0032^1 

A ylo  1 

ooos 

C00250 

BET  A1 

UO  06 

000070 

CAPA 

0006 

0 JU07  S 

c A p C 

0006 

000027 

CONQ 

0006 

OOOCIO 

OINT 

0003 

OGO  h 2 2 

0 |SP 

0006 

000051 

DL  T Z 

oO  J6 

000103 

OL  V H 

uCJ6 

000 1 OH 

DLZh 

0006 

000253 

OVP 

000*1 

0010*12 

OX 

OOCH 

00107H 

DY 

0006 

000105 

EP 

000*1 

00  1*1 1** 

EG 

uOw6 

000077 

EZ 

0003 

000*120 

got 

0006 

000033 

HT  |EK 

00C6 

000032 

htkek 

0003 

000232 

IEDIT 

00U6 

0002S 1 

IHTOP 

0003 

000251 

1 K M A X 

0003 

000231 

1 PLOT 

0006 

000057 

I PL  R 

0007 

000450 

|SRS 

0007  1 

000151 

isws 

0006  1 

ooooci 

1 T APE 

000*1 

000000 

l TEmB 

0006 

0001  IS 

JGH1N 

0006 

000117 

JJLl 

0006 

000121 

j JL2 

0006 

00005*1 

JLIM 

0006 

000 1 21 

JM  A X 

0006 

000 1 56 

JM  I N 

0006  1 

000002 

jtape 

OOU  6 

00001* 

JO 

0006 

000037 

K 

0006 

0000*3 

KCOMP 

0006 

000217 

KCQUAS 

0006 

I 000006 

kgmax 

0006 

00001** 

KM 

00u6 

0000*15 

kntrol 

0006 

000012 

kout 

0006 

0000*16 

kstop 

00  J6 

000013 

KZ 

0006 

OOOu  1 7 

KO 

0006 

000262 

L 

030  3 

00C22* 

LM  A X 

C006 

000061 

L 0 X 

0006 

000003 

MT  APt 

0006 

000213 

MTRL 

0030 

! 000001 

u 

0006 

000055 

NCORD 

0306  l 

0003*1  * 

nCYCLE 

0036 

0000*12 

NED  [ T 

000  1 

000  l*ts 

0005 

000205 

0005 

000257 

0006 

000025 

0006 

0000H7 

0006 

OOOOSO 

000*1 

000672 

0006 

000073 

OOO* 

1 

000060 

00t)6 

00026*1 

0003 

1 

000233 

0000 

1 

000000 

0006 

000122 

000* 

00011* 

000* 

000257 

000* 

000052 

000* 

000015 

000* 

0002*0 

000* 

000263 

0003 

00023*1 

0006 

1 

000007 

2 2L 

0001 

AMU 

0005 

DP 

3005 

LON  A 

0006 

OL  fH 

0006 

0 T M 1 U 

000*1 

L 

3006 

fni 

0006 

1CART 

0003 

INC 

0000 

l S TOP 

000* 

IRORD 

000* 

JJL? 

000* 

JMNP1 

000* 

KACT 

000* 

KGMXPA 

000* 

KP 

Ooo* 

K6 

000* 

M 

600*1 

NAME 

Ooo*! 

nkgeb 

0006 

00003**  *L 
000000  ARHO 
00027S  BETiA 
003026  CONL 
000036  DLTPM 
JC1I26  DV 
000106  E*U 

000230  FXTRA 
060230  IDUHP 
000007  INJPt 
000252  1SUBC 
0000<l0  J 
00012#  JJR 1 
000062  JQLO 
000066  RAiAt 
0000)1  KIN 
000102  KPRCSS 
000241  Kt 
000202  MPN 
000000  NBC 
00006S  NK I nG 
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L INPUT 


0006 

000006 

nlpr 

fJjJ6 

C0C076 

0006 

OOOOOH 

NT  APE 

00  J6 

000056 

OOOH 

000756 

P 

0305 

000025 

0005 

000232 

PA4) 

0003 

000  I'tH 

0005 

000106 

PB3 

0006 

0CC256 

0006 

0001 10 

PP 

0006 

OOOI3I 

OOOH 

001010 

Q 

0006 

0001 1 1 

0007 

00006H 

QY 

0007 

0001 1 6 

0006 

000071 

SB  1 

0003 

H C00250 

0005 

000313 

sthard 

OOOH 

O0OH36 

OOOH 

OOOHOH 

SYY 

OOOH 

001330 

0003 

000227 

T 

OOOH 

OOOOOO 

0005 

000167 

TILALP 

0005 

0001H2 

0005 

000322 

TILESP 

0005 

000151 

0006 

000123 

TSPL 

0006 

OOOOHH 

OOOH 

00055H 

TYY 

0003 

000253 

OOOH 

001362 

VM 

0006 

000067 

0006 

00002H 

V VO 

0003 

0O0H23 

0003 

OOOOOO 

xbul 

OOOH 

0001  16 

0006 

000237 

XMlN 

0006 

H 000232 

0006 

0002H3 

XT  1 

0006 

0002H5 

OOOH 

000 1 5c 

Y DH 

U006 

0001  | H 

0006 

000100 

YK 

0006 

0002  H H 

NP 

03  ?6 

003066 

NPLOT 

0006 

NVIS 

O0o5 

00 0223 

nvism 

0005 

PAZ 

0CC5 

C0003H 

P A 1 

0005 

PBUL 

0005 

000061 

PBZ 

0005 

PE5CUT 

0006 

OOOOOO 

PI 

0005 

PSCALE 

J0u6 

000107 

PZ 

0006 

QH 

0006 

00025H 

URT 

0007 

Q YB 

0006 

CO J 1 1 2 

RHO 

OOOH 

SMASS 

00o3 

R 

000252 

SMOm 

0006 

STT 

0003 

OOOH  2 1 

SVEL 

OOOH 

SZTT 

OOOH 

001212 

SZXX 

OOOH 

TEMB 

OOOH 

R 

OOOOOO 

TEMP 

OOo5 

T 1 LB 

0005 

000I2H 

TILBB 

0005 

T1LEZ 

0006 

000035 

TOTE 

0006 

TTIME 

OOOH 

000606 

TTT 

OOOH 

UBUL 

OOOH 

000266 

V 

0003 

VP 

0CC6 

000021 

V V A 

0006 

VZERO 

0006 

0002H7 

ATI 

0006 

XOH 

0006 

000236 

XFDT 

OOOH 

XMSS 

0006 

000235 

XMSUM 

0006 

X T 2 

0006 

R 

0 3o2  36 

XVZ 

OOOH 

YIELD 

0006 

700262 

Y M A * 

0006 

YTI 

0006 

000266 

YT2 

0C0053 

NRDWT 

0006 

0000H3 

NRESTr 

0002 | H 

N V 1 S R 

0005 

00030H 

nyy 

0000H3 

PA2 

0005 

000052 

PA3 

000070 

PBI 

0005 

000077 

PBZ 

000016 

PM 

0006 

000020 

PM  1 N 

000265 

PZI 

0006 

000266 

PZZ 

OOOOOO 

QX 

0007 

000032 

QXB 

00IHS6 

RRR 

0006 

000672 

SB 

00007H 

SN 

0006 

000113 

SSP2 

000352 

SXX 

OOOH 

000170 

SXT 

001276 

SZXY 

OOOH 

00 1 21 H 

szyy 

000133 

TIL* 

0005 

0001/5 

T 1 L A A 

000176 

TIIBET 

0005 

000160 

TILES 

000031 

TOT  I E 

0006 

000030 

TOUR 

000522 

TXX 

OOOH 

000610 

TXY 

000335 

VBUL 

0006 

0002,5 

VELCUT 

000022 

V VB 

0006 

000023 

VVC 

000250 

WT2 

OOOH 

001160 

X 

000320 

XMASS 

0006 

000211 

XMAX 

C00233 

XMV 

OOOH 

000032 

xp 

00072H 

Y 

0003 

000062 

ybul 

0002H0 

YMIN 

OOOH 

000061 

YP 

001 

01 

001 

03 

001 

07 

001 

07 

001 

10 

001 

1 1 

001 

12 

001 

13 

001 

13 

001 

IH 

001 

IH 

001 

15 

001 

16 

001 

17 

001 

20 

001 

21 

001 

21 

001 

21 

001 

21 

001 

21 

001 

21 

001 

21 

001 

21 

001 

21 

001 

22 

001 

22 

001 

22 

1 • 


SUBROUTINE  LINPUTiKOUHP j 


!• 
3* 
3« 
3 • 
3« 
3 • 
3« 
3 • 
3* 
3* 
3* 
3« 
3« 
3« 
3« 
3* 
3 • 
3 • 
3« 
3« 
3 • 
3 • 
3» 
3» 
3 • 
3* 


CMA  IN 


include  gelcmn 
include  chain, list 
PROC 

PARAMETER  QNV-32 

parameter  qj-26,  kt 
parameter  qb»26,qjj 

PARAMETER  K7*7,  KB- 


R2-26 
*Q  J#QN 

a,  K 1 0* 


IQ 


C 


COMMON  /HIT  1/ 

•TEMPIQJ.QNV.QB) 

DIMENSION  TEMB(QJ,QNV,QB) 

EQUIVALENCE  (TEMPI  1,1,1)  ,tEM6(  1,1,11) 

DIMENSION  ITEMB(QJ,ONV,qB> 

EQUIVALENCE  (TEMBi I ,1,1),  I TEMB (1,1.1)) 

DIMENSION  NBC ( Q J J , QB ) ,XP(QjJ,QB),VP(QJJ,Qb)i 

• XDH(QJJ.QB)  ,YDH(QJJ,QB)  ,MPn(QJJ,QB) ,A(UJJ,QB)  , 

• V ( Q J J , UB ) ,XMASS(QJJ|QB)  ,Sxx(QJJ.QB>,5YYCQjJ,QB), 
•STT(QJJ,QB),SXY(QjJ,QB),Txx(UJJtQB),TYY(QjJ,QB), 

• TTT(QJJ,QB)  ,TXY(QjJ,QB)  , 

•P(QUJ,QB),Q(OJJ,OB),OX(QJJtQB),DY(QJJ,wB),x(OjJ»Ob),Y(QJJ 

• D V I Q J J , QB ) , E ( Q J J • UB ) 

. , SZXX  I Q J J • QB ) ,S2YY(«JJ,QB)  , SZ X Y I C J J . QB ) , SZTT ( QU J , QB ) . 

• VM(QJJ,QB),EQ(UJU,QB),RRR(QJJ,wB) 

EQUIVALENCE  (TEMPI  1 • I . 1 ) , NbC ( 1 . 1 ) ) , C TEMP C l . 2 , 1 ) t Xp I I , 1 ) ) , 
. ( TEMPI  I ,3, I ) * YP ( I , 1)  ) , ( TEUP ( 1 , H , | ) # X Dh I 1 • 1 ) ) • 

• ( TEMPIl ,S  , 1 ) , YDM( 1 i I ) ) , ( Tf nP ( 1 . 6 , 1 | ,MPN ( | , 1 ) ) , 


QB)  , 


OOOoOO 

000000 

OOOOOO 

OOOOQO 

006000 

OOOOOO 

006000 

OOOOOO 

00O000 

OOOOOO 

OOOOOO 

006000 

OOOOOO 

OOOOOO 

OOOOOO 

006000 

OOOOOO 

006000 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 
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LI\PUT 


C0I22 

3« 

00122 

3* 

00 1 22 

3» 

CO  1 22 

3 • 

00122 

3« 

00122 

3« 

00122 

3* 

00122 

3« 

00122 

3 • 

00122 

3 • 

00122 

3* 

00122 

3« 

00122 

3« 

00122 

3 • 

00123 

3 • 

00123 

3* 

00123 

3« 

00123 

3* 

00123 

3» 

00123 

3 • 

00123 

3« 

00123 

3« 

00123 

3« 

00129 

3» 

00129 

3« 

00129 

3 • 

00129 

3« 

00129 

3« 

00129 

3» 

00129 

3* 

00129 

3* 

00129 

3« 

00129 

3* 

00129 

3* 

00129 

3* 

00129 

3® 

00129 

3® 

00129 

3® 

00125 

3* 

00125 

3« 

00125 

3« 

00125 

3* 

00125 

3* 

00124 

H* 

00130 

5* 

00131 

00132 

7* 

00133 

8* 

00135 

00134 

10* 

00137 

11® 

00191 

1 2 • 

00192 

1 3* 

00192 

1 **• 

c 


c 


c 

c 


c 


. ITCMPC1 , 1 1 • n .S»t , 1 ,1 n .<  tLpp( I , I2.n  ,STT 1 1 . 

, l TEMPI  | , I 3.  I > ,S' Y i I , I I ) , < UHK  I 1 I It  , l 1 .TAX  C I • 1 1 ' > 

. I TEMP  I I , lb.  I » . n » l I . I II  , <TLMP<  I . 14  , 11  .TTT  I l . ' > < • 

, I TEMP ( l , | 7 . I » . TXT  t I . I I > . < t LHP < I . IS . I I . t < I . I * * . 

. ITEMP  11,19,11, YII, III, iTErtpIl. 20, II. PCl.Ul* 

. C TEMPI | ,21  . I t .«(  I . I 1 > . < TEMP* I .22  . I I .OX  l I . I » > • 
.ITLMPC I .23. 1 » *UY< I •! ' 1 • 1 TEMP  I I .21,  l I ,DVI I .1 II . 

. IT EMPCI, 25. It.XII, III. I TEMP (I.  26.  ll.SZXXII.il). 

. I TEMP  I l ,27.  I I .SZYyC  I . I 1 I . I TEMP  I I , 28.ll»SZxY(l.l>), 
. I TEMPI | ,29, I I ,S2TT I I . I 1 ) . I TEMP  I I , JO  . I > . VH  I 1 . I > 1 • 
,IT£MP(l,3l.l).EQl|.lll,lTcMP(l.32,l)»RR8l).lll 


COMMON  /RZF  2/ 

, ARH0IK7I  ,AYLUCK7»  .PMIK7  t ,PaZ  (K7)  ,Pa!  CK7)  .MZIK'I  .PA3IK71  , 
. PBZ  IK7 I ,PB  I CP  7 J ,P82  IK?  ) ,pr Jl K 7 I , 

»T|LAAIK7I  ,TILBb(K/t  . T I LA  I * 7 I .TILCIK7)  .TILEZIK71  .TjLE5IK71 

.I|LALPCK71,TIL»L1iK7),AMU|k71,NV|SHIK7),NvISM(K7I,Pa9«K?> 

* Y L 0 I ( K 7 I , d E T A I I k 7 I » B 8 I K 7 I ,AAM0I^7I  .BtTAAlK?)  , !•  * Y | K 7 I • 


.STHARO IK  7 I . 
,TlUESPCK7t 


COMMON  /RZF3/ 

.PIlIl.lTAPE.JTAPE.MTAPE.NTAPt.KSHAX.NLPR, 

| NKGEB.OINT.KIN.kOUT.KZ.kM.kP, JO.kO.PMIN.VVA .VVB.VVC.VVO, 

CONA.CONL.CONO.tOTKE.tOTIE.HTKEK.HTIEK.aSQRM.TOTE.OUTPH.K.J, 
NCTCLE.NE0lT,NRtSTR,TTIME*FNTR0L.KST0P,oETH,DTM|N,DUTl.K6MXP9, 
NR0»T  , JUM.NCORU.NVIS, |PlR. ICART .LOX, JOUD.KCOMP,KA«AT,NKlNG. 

NPLOT  , VP,  CAP A, Sal .SB.FNl.SN.CAPC.NP.EZ.YR.PSCAtE, 

KPKESS.ULVH,DLZh,EP,EmU,PZ.PP.8H.RHU,SSP2.YIELD,J6H|N, 

JMNPI ,JJUI , J JR  I .JJL2.JJL3.TSPL.JMAXIKTR2) * N ‘KXR2  * * 

MTRU  C K 7 I .FEQUAS.FXTRAI  10) , XMSS  . X M V , XFOT , XMSuM , X v Z , 
XMIN.YM|H»XMAX.YMAX,XTI.YTI.xT2,YT2,mTI,aT2, 

ihtop.isubc. 

DVP.QRT.VEUCUT.PeSCUT.y  AcT.k<..K9,L,H.1NC.P71  .PZ2 


COMMON  /RZF1)/ 

. OXCQJ)  .OXBtQJJ  .wYIVJI  .BYtilwJl 
. .ISRS.ISNS 


IFCKDUMP.EQ.Ol  GO  TO  10 

CALL  RESTAR 

ISTOP-O 

CALL  MMXCOMl l 5 , I I 
IFIKGMAX.GT.8B)  Go  TO  9 
|»0RD«8J*QNV«QB 

CALL  NTRAN  < 15.  | . |*ORD. TEMPII  , I . I I . lS8b,22» 

if i isws.le.o)  call  error 

9 CALL  NTRANI 15. 1 0 » 

RETURN 


C 


at'oooo 

000003 

ooOooo 

omoooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

OQOOOO 

ooOooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

ooOooo 

OOOOOO 

OOOOOO 

oooooo 

oooooo 

oooooo 

oooooo 

OOOOOO 

006000 

oooooo 

OOOOOO 

oooooo 
oooooo 
oooooo 
oooooo 
006000 
f oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
Oooool 
090003 
000001 
ooooio 
000019 
oooou 
00002* 
000031 
000037 
OQ0O37 
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00IH3 

1 5 • 

10 

CALL  GtNl I ,1 1 

OOIHM 

16« 

00  20  N»1 , NKGEB 

001H7 

17* 

call  GLN i 2 , n i 

OOISO 

ie« 

call  geni 

001SI 

!?• 

lFUCART.6T.il  CALL  RELAX 

00  1 S3 

20* 

20 

continue 

001SS 

2 1 • 

(F1KGHAX.LE.QB)  Go  TO  122 

00  157 

22« 

CALL  NTRAN1 ITAPE. 10) 

oouo 

23* 

CALL  NTRAN1 JTAPE . 10) 

00161 

2M  • 

122 

CONTINUE 

00162 

25* 

NCYCLE-0  ' 

00163 

26* 

CALL  GED1T 

0016H 

27* 

SHASS-SMASS.XHSS 

00165 

28* 

SM0M-5MASS* avz 

00166 

29« 

CALL  MHXCOH 1 1 5 » ( > 

00167 

30» 

(F1KGMAX.GT.QB)  Go  TO  22 

00171 

3 1 • 

IWORDaQJ*QNV*eB 

00172 

32* 

CALL  NTRAN1 15. 1 , IrtORD, TEMPI  l . 1 

00173 

33« 

IF t 1 SMS.LC.O)  CALL  error 

00175 

22 

CALL  NTRAN1 15, lo* 

00176 

35» 

RETURN 

00177 

36® 

tNO 

CND  OF 

compilation;  no  diagnostics. 

0HDG 


UfcPOT 


. I I , |S"S,22> 


OOOOH3 

0000*1* 

0Q0053 

0P0057 

0000*1 
000071 
00^071 
000075 
000(01 
OQO |0* 
OOOlO* 
00010* 
OOOllO 
000113 
000(15 
000(21 
000(25 
000(27 
000(37 
000 1 15 
000(50 
000 1 *5 


MHACOm 
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yFOR ,S  HH*C0m 

FOR  SE2C-0’/l9/76-0V:3b:-io  « C . » 


M.  AC  OH 


subroutine:  mmxcom  entry  point  ctcd* 


STORAGE  USED:  CODE(I)  GOCl07;  D*T*CO)  uooom  blank  COMMON  1 2 ) OOOOOO 
COMMON  blocks: 


0003 

GEL! 

000424 

0004 

RZFI 

05364A 

0005 

RZF2 

000331 

0004 

RZF3 

000267 

0007 

RZF4 

000152 

0010 

JOHN 

021127 

EXTERNAL  REFERENCES  (BLOCK,  NAME) 

oou  NTRAN 

0012  ERROR 

0013  NERR3* 


STORAGE  ASSIGNMENT  (BLOCK,  TYPE,  RELATIVE  LOCAT 


0004 

000234 

A 

u003 

000417 

ACC 

OOOS  R 

000000 

ARHO 

0006 

000034 

ASQRM 

0005 

000275 

betaa 

0005 

0002SC 

BET  A 1 

0006 

000025 

CGNA 

0006 

000026 

CONL 

0006 

000047 

dlth 

0006 

000036 

OLTPH 

0006 

000050 

dtmin 

0004 

001126 

DV 

0004 

000672 

E 

0006 

000106 

EMU 

0006 

000073 

FnI 

0006 

000220 

FXTRA 

0006 

000060 

iCART 

0000 

1 000003 

id 

0000  | 

000003 

1 ERR 

0006 

000251 

l HT OP 

0003 

000231 

l PLOT 

0006 

000057 

IPLR 

0007  1 

000151 

is*s 

0006 

00000> 

1 T APE 

0006 

0001 1 7 

JJL1 

0306 

000121 

J JL  2 

0006 

000124 

JH  AX 

0006 

000154 

JHIN 

0006 

000016 

JO 

0006 

000037 

K 

0006 

000217 

KEUUAS 

U006 

000005 

KGMAX 

0006 

000045 

kntrol 

0006 

000012 

KOUT 

0006 

000013 

KZ 

0006 

000017 

KO 

0003 

000226 

lmax 

0006 

000061 

LOX 

0006 

000210 

MTRL 

0003 

000234 

NAME 

0006 

000042 

NEDI  T 

0006 

000007 

NKGEB 

0006 

000076 

NP 

0306 

000066 

NPLOT 

0006 

030056 

NV1S 

0005 

000223 

NVI5H 

0005 

030025 

PAZ 

0005 

000034 

PA  1 

0003 

000144 

PBUL 

OOOS 

00006 1 

PBZ 

0006 

000256 

PESCuT 

03x6 

R ooooco 

PI 

ION.  NAME) 


00'j5 

00C266 

AKMU 

00l»5 

CCO'JO  7 

aylo 

0036 

00007C 

CAPA 

U006 

00002  7 

CONQ 

0036 

030051 

OLTZ 

0006 

000253 

OVP 

00C6 

003(05 

EP 

0OC3 

03UH2; 

GOT 

00x0  1 

000301 

1 C2 

0003 

030251 

1KNAX 

0337  | 

00CI50 

iSRS 

00x4 

OOooOO 

ITEMS 

0C06 

OOCI 22 

JJLi 

0006 

0001 1 6 

JMNP  l 

0006 

000257 

PC  ACT 

0006 

OOOOSI 

KGMXPt 

0006 

000014 

KP 

0006 

000260 

KA 

0C06 

000263 

m 

0004 

OOOOOO 

NBC 

0006 

300065 

NKING 

0006 

000053 

nrort 

0005 

000214 

NVISR 

0035 

000043 

PA2 

0005 

0C0070 

PB  I 

xOlO 

0)61)4 

PL  R 

0010 

012440 

ALAH 

0005 

0002<l  1 

A YLD  1 

0006 

000075 

CAPC 

0006 

000010 

DINT 

0006 

000103 

DLVH 

0004 

001042 

DX 

0004 

001414 

EQ 

0006 

000033 

htiek 

0033 

000230 

1 DUMP 

0006 

000264 

INC 

0003 

000233 

ISTOP 

0006 

000040 

J 

0006 

000120 

J J R 1 

0006 

000062 

JOLD 

0006 

000064 

KAfAY 

0006 

000011 

KIN 

0006 

000102 

KPRESS 

0006 

00026) 

Kt 

0004 

000202 

HPN 

0006 

000055 

NCORD 

0006 

000006 

nlpR 

0006 

000043 

nrestr 

0005 

000304 

NY  Y 

OOOS 

000052 

P A 3 

0005 

000077 

PB2 

00q5 

000016 

PM 

0005  0002QS  AMU 

0005  000257  BB 

0010  0)3704  CEN 

0003  000422  0|Sp 

0006  00010*1  DLZh 

000*1  001074  DT 

0006  000077  EZ 

0006  000032  HTKEK 

0003  000232  I ED  1 T 

0000  000005  INJPS 

0006  060252  ISUBC 

0006  000115  J«M|N 

0006  0000(4  JUM 

0006  000002  JT APS 

0006  0&0043  KCOmP 

0006  000014  KM 

0006  000044  KSToP 

0004  000242  L 

0006  060003  MTAPf 

0006  00004)  NCTCLE 

0000  1 060002  NN»DS 

0006  000604  NTAPt 

0004  000754  P 

0005  000232  PA4 

0005  000104  PB3 

0006  000020  PM  I N 
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HnxcOM 


0006 

COOI IQ 

0010 

003754 

0006 

0001  1 1 

0007 

000116 

0010 

015150 

OOOS 

000313 

OOOS 

000470 

OOOS 

00 12  4 4 

0005 

000133 

OOOS 

000176 

0006 

000031 

0010 

005220 

OOOS 

000606 

OOOS 

000266 

0006 

000021 

0006 

000247 

0006 

000234 

0006 

000235 

0006 

000236 

0006 

000242 

0006 

000246 

0CI01 

1 • 

00101 

2» 

00103 

3* 

00107 

4 • 

00107 

5 • 

00126 

6« 

00126 

T 

00126 

8* 

00126 

9 • 

00126 

10« 

00127 

11* 

00130 

12* 

00131 

13* 

00132 

14« 

00133 

15« 

00I3S 

16* 

00135 

17* 

00136 

18* 

001SO 

1 9 • 

001SI 

20* 

pp 

PSTRnS 

'JH 

wYB 

SEN 

STHAKD 
SAY 
S ZYY 
TILA 
T ILBET 
TOT  | E 
TSTRNl 

ttt 

V 

V V A 
NTl 
XFOT 
XHSUM 

XU 

YMAX 

YT2 


u3ui6 

0036 

0036 

0336 

0033 

0010 

OOOS 

0003 

OOOS 

0035 

UCt)6 

0010 

0005 
0033 

0006 
0006 
000** 
0006 
OOOM 

00s>6 


OOOIOl 
0001 07 
OU025S 
030112 
030250 
0 1 2660 
OOOHDH 
000227 
0301 1 5 
000160 
000030 
006*16*1 
000522 
000335 
000022 
030250 
000320 
000233 
00072*1 
0032M0 


pscale 

PZ 

3RT 

RHO 

SHASS 

STRH 

SYY 

T 

T1LAA 

TILES 

TOTKE 

TSTRN2 

TXX 

V8UL 

VVB 

RT2 

XMASS 

XMV 

Y 

Y M | N 


3010  R 
0006 
00*37 
3001 
0033 
OOOS 
OOjS 
0010 
0005 
0005  R 
0010 
0010 

0005 

0006 
0006 
OOOS 
0036 
OOOS 
0303 
300S 


030000 
030266 
COOoOQ 
00ISS6 
300252 
000S36 
001330 
021  12S 
000167 
003322 
021 (26 
007730 
0006S0 
000255 
000023 
001160 
0002SI 
000032 
000062 
00006  S 


PSTRnI 

P21 

QX 

RRR 

SMOH 

STT 

sztt 

TCEN 

TILaLP 

TltESP 

TPL* 

TSTRN3 

JXY 

VELCUT 

wc 

X 

XHAX 

XP 

YBUL 

YP 


SUBROUTINE  MMXCOMj IUN , IRA| 

reao  or  write  selected  commons 

INCLUDE  GELCHN 
INCLUDE  CHAIN 


PSTRN2(QJ»XTR2)  , 

TSTRN1  ( 3 J i iC TR2 ) • 
TSTRNS|3JiICTR2)  . 
SEN1QJ.ATR2I . 
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COMMON/JOHN/  PSTRNI ( <3  J i K TR2  1 i 
. iPSTRNS<QJ.KTR2l  • 

, , TSTRn3(NJ.<Tr2I i 

• .CEMwJ.KTKZ) , 

• ,STRH»QU,KTR2* .TCEN.TSENiTPLft 
ICIsABSILOcIARHO( 1 I ) -LOC  < T 1 LESP 1 l 11 » ♦ K 7 
1C2-ABSCL0CIP1 1 1 • I-L0CIPZ2I 1+1 

CALL  NTRANlION.IRw.lCl.AHMOm  .ISPS  I 
CALL  NTRANI IUN. |Rm. IC2.Pl | | I . 1SWS) 
NN«0S"I3»Q3*xTR2*J 

call  NTRANI 1UH» (RW.NNADS iPSTRNI 1 1 • 1 > • IERR I 
CALL  NTRANI I UN  » 22 ) 

IF  I ISRS.LE.O.OR. IsaS.LE.O)  CALL  ERROR 

RETURN 

ENO 


00|0  00  I 2hS  PSTRN2 


0006 

0007 

0006 

0006 

00C3 

OOOS 

OOOS 

0005 

0005 

0010 

0010 

OOOS 

0005 

0006 
0003 
0006 
0006 

0005 

0006 


R 000266  PZ2 
000032  QXB 
0C0072  SB 
00007S  SN 
000S2 I SVEL 
001212  SZXX 
000000  TEMB 
0001S2  TJLB 

oooisi  tile; 

021125  TSEN 
0IU7S  TSTRNS 
00055S  TYY 
001362  VM 
00002S  WO 

000000  XBUL 

000237  XH|N 
0002S3  XT  1 
000150  yoh 
000100  YR 


PSTRN3IQ3.KTR21 
TSTRN2(«J.KTR2) 
AL  AH  I <j  J i KT  R2  1 
PLWI93.KTR2) 


0010 

002S ( 0 

PSTRN3 

OOOS 

001010 

Q 

0007 

00006S 

QY 

0006 

000071 

SB  1 

0006 

000113 

5SP2 

OOOS 

000352 

sxx 

Ooos 

001276 

SZXY 

OOOS 

OOOOOO 

TEMP 

0005 

00012S 

TltBi 

6006 

000035 

TOTE 

0006 

O0Ol23 

TSPL 

0006 

OOOOSS 

TT1ME 

0003 

000253 

UBUL 

0006 

000067 

VP 

0003 

000S23 

VZE*0 

OOOS 

000116 

XDH 

0006 

000232 

XMSS 

0006 

0002SS 

XT2 

0006 

OO01|S 

yield 

0006 

0002SS 

YT1 

000000 

000000 

000000 

ooOooo 

000000 

ooOooo 

006000 

OOOOOO 

OOOOOO 

ooOooo 

ooOooo 

000005 

000013 

OO0O22 

000031 

000033 

OOOOS2 

0Q00S6 

00006S 

000106 


ENO  OF  compilation;  no  diagnostics. 


BHDG 


MOTION 


groR.s  mu  t i on 

FOR  5£2C-09/19/7S-u^:3^;3j  <u.> 


* ; T 1 0 * 


SUBROUTINE  motion  ENTRY  POINT  j017Z^ 


storage  used:  cooeiu  cci73Z;  dataio  joom**:  burnt  comhonui  oocooo 
COMHON  blocks: 


*V 

JU 

ua 

(D 

cn 

vo 


0003 

GtL  1 

000M2M 

OOOM 

rzf  i 

05  36  H 6 

OOOS 

RZF2 

000331 

0006 

RZF3 

000267 

0007 

RZF“ 

000152 

EXTERNAL 

REFERENCES  < 

0010 

NERR21 

001  t 

NERR6S 

0012 

SQRT 

0013 

NERR3S 

STORAGE 

ASSIGNMENT  < 

0001 

000122 

loot 

0001 

00107** 

M06l 

0001 

000172 

1 9 OL 

0001 

00021 2 

2 30 1 

0001 

000227 

28GL 

0001 

030250 

320L 

0001 

000352 

3t>*L 

0001 

000560 

39  DL 

0001 

00I0**0 

M C 5L 

0001 

00131 1 

H33L 

0001 

001  **63 

HBCL 

0001 

00160“ 

5 30 1 

0001 

0001 12 

SOL 

OOOS 

000266 

AKMO 

0000  R 

oooo**o 

ASM2 

0000  R 

0000**  1 

ATM* 

0005 

000257 

BB 

0006 

000075 

C APC 

0006 

000010 

DINT 

0006 

000103 

DLVH 

0006 

0G0253 

OVP 

0006 

000105 

EP 

0000  R 

000102 

FRAC 

0006 

000060 

ICART 

C003 

000251 

1 K M A A 

OOul 
□ 001 
0001 
0031 
0001 
OOul 
0001 
OOul 
uJol 
uOC  1 
OOul 
OOul 
030  1 
0000 
0000 
uO  JO 
0000 
0000 
C003 

00  J6 
000*1 
00  OH 
0006 
uJj3 
000^ 
GJj7 


000130 

1 10L 

0031 

000135 

120U 

0UO154* 

1 sot 

uCO  1 

000161 

160L 

OOOC62 

20L 

0031 

0001 77 

200L 

00021*1 

2M0t 

JOOI 

000216 

25CL 

00023*1 

290t 

0CC1 

O0UJ67 

3CL 

000252 

330L 

JC31 

000257 

3HQL 

OuO 363 

370L 

OCJ 

300"*57 

37  Ve 

0C007  ** 

MOL 

uOu  1 

000“3l 

HOOL 

COl  13*i 

RC6L 

CCC1 

001  1**3 

*UCL 

ou13mm 

*1 35 1 

0C3I 

OOMIH 

H37l 

001 i 7 u 

MVql 

occi 

330101 

SOL 

001657 

5B0L 

0001 

001 701 

560L 

Cud  1 7 

VOL 

UCCR 

R 

C3023H 

A 

000 l 00 

ALP 

0C.5 

k 

030205 

AMU 

C00030 

ASrl3 

OOCO 

R 

000020 

ASMH 

0 JO j3 1 

ATM3 

□OuO 

n 

000 J2 1 

ATMM 

oooioi 

BET 

0005 

000275 

beta* 

00007*1 

CNAUT 

0006 

000025 

cona 

000*122 

DiSP 

jOC6 

R 

0000**7 

DLTH 

0U01QH 

DL2H 

0006 

000050 

DTMH 

CO  1 OR  2 

DA 

OOCR 

n 

001  J7*( 

OY 

00 1 H | H 

EW 

J006 

000077 

EZ 

0C0220 

EXTRA 

003  3 

000H20 

got 

000230 

I DUMP 

0CC3 

000232 

1EDI 

00026*1 

INC 

coco 

i 

ocooio 

I ND  X 

Cut  1 5a 

ISRS 

riOc3 

0C0233 

1 S T 0 

0001 

000 1 **0 

I30L 

0001 

00016** 

1 70L 

0001 

000206 

2 1 OL 

0001 

000223 

260L 

0001 

000251 

3001 

00  Jl 

00026** 

350L 

0001 

000167 

380L 

0001 

00101** 

102L 

0001 

001  171 

120L 

OOul 

00  1 115 

160L 

0001 

001501 

500L 

0001 

00010*1 

60L 

00  jO 

R 

000017 

AAA 

0005 

ft 

000000 

ARHO 

0006 

00003** 

asqrh 

000S 

030307 

AYLO 

00y5 

000250 

BET  A l 

0006 

000326 

CONL 

0006 

000036 

DLTPH 

0000 

R 

000103 

DTOP 

OOOM 

000672 

E 

0006 

000073 

FNl 

0006 

000333 

HTIEK 

0000 

1 

ooouoi 

I00T0 

0000 

000117 

INJPS 

00  c 6 

000252 

1SUBC 

0001 

000115 

110l 

0001 

000167 

1 SOL 

6001 

000240 

220L 

0001 

000221 

270L 

0001 

000216 

3 1 OL 

0001 

000270 

340L 

6001 

OOOSSI 

38  tL 

0001 

001030 

101L 

0001 

001217 

*«30l 

0001 

001 156 

1 70l 

0301 

001551 

520L 

0001 

000107 

70L 

0303 

000117 

ACC 

0000 

n 

000050 

ASH  1 

6000 

n 

OOOOSI 

ATH 1 

OOOS 

000211 

ATLOl 

0006 

000070 

CAPA 

0006 

000027 

CONQ 

0006 

n 

000051 

OtTZ 

0001 

R 

001126 

OY 

0006 

000106 

CHU 

0000 

R 

OOOIOI 

FPLo 

0006 

000032 

HTKCH 

0006 

000251 

IHTOP 

0003 

000231 

I PLOT 

0007 

000151 

ISMS 
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MOTION 


0006 
0006 
C006 
0006 
0006  I 
0006 
0006 

0006  I 
0003 
0006 
0006 
000® 
OOOH 
0005 

0005 

0006 
0006 

0007  f 
0000  F 
0006 
0005 
OOOM 
OOOM 
0000  f 
0005  f 

0005 

0006 
0000  I 
0000  j 
0000  I 
0000  I 
0003 
0006 
0000  i 

0003 
0006 
OOOM  i 
0006 
0000 
0000 
0000 
0000 
0006 
0000 


00101 

00103 

00107 

00107 

00107 

00107 


000001 

ITAPE 

0004 

oocooo 

l TEM0 

0006 

1 

000u40 

J 

000121 

JJL2 

0006 

OO0 122 

JJL3 

00-6 

000120 

j JR  1 

000156 

JM  IN 

0036 

000116 

JMNP  l 

0036 

C00u62 

JOLD 

000037 

K 

0006 

000257 

kact 

0006 

930064 

K ArfAY 

0C030S 

kgmax 

0006 

CC0052 

KGMAPR 

0006 

00901 1 

KIN 

000012 

kout 

00u6 

1 

000015 

KP 

0096 

000(02 

kpress 

000017 

ICO 

C036 

000260 

K6 

u006 

030261 

000061 

LO  X 

0006 

000263 

M 

0094 

1 

000202 

mpn 

000234 

NAME 

0004 

I 

OOOOOO 

NBC 

0006 

000055 

NCORD 

000007 

NKGEB 

0006 

000065 

NKING 

0006 

000006 

NLPR 

000053 

N R D Y«  T 

0006 

000043 

NRESTr 

0096 

000004 

NT  APE 

0002 1 4 

NV1SR 

0000 

I 

000005 

NX  A 

OOOO 

I 

000006 

NXB 

000756 

P 

0005 

000025 

PA2 

0005 

R 

000034 

PAl 

000232 

pah 

0003 

R 

000144 

PBUL 

0005 

000061 

PBZ 

000104 

pb  J 

0006 

000256 

PE5CUT 

OOOO 

n 

000077 

PHI 

000020 

PM  1 N 

0006 

0001 10 

PP 

0006 

000101 

PSCALE 

000266 

PZ2 

0004 

001010 

Q 

0036 

0931 1 1 

QH 

1 

000032 

QXB 

C0C7 

R 

000064 

^Y 

0007 

R 

0031 16 

QYB 

l 

000027 

R A V 3 

0000 

R 

COCO  1 6 

RAVH 

6006 

000112 

RHO 

00007 1 

SB! 

O0C3 

000253 

5MA5S 

0093 

300252 

SMOM 

000313 

sthako 

0C04 

CC0436 

ST  T 

30  jO 

R 

000105 

S T X 

000352 

sxx 

00U4 

000470 

SXY 

0094 

000404 

S Y Y 

001276 

szx  Y 

0004 

001244 

5ZYY 

0003 

000227 

T 

R 

000070 

TERMZ 

OOoO 

R 

000071 

TERM  l 

OOOO 

n 

000072 

TERM* 

R 

000115 

TlLAA 

0C05 

000167 

TILALp 

0005 

000(42 

T I LB 

000160 

TILES 

0005 

C00322 

TILESP 

0005 

000151 

TtLEZ 

000030 

TOT  KE 

00u6 

000123 

TSPL 

0006 

000044 

ttime 

R 

000044 

TXX  1 

OOoO 

R 

000034 

TXX2 

OOOO 

R 

000924 

T X X 3 

R 

0000*6 

TXT  1 

0000 

R 

000036 

T X Y 2 

OOOO 

R 

000026 

TXY3 

R 

000045 

T Y Y 1 

OOOO 

R 

000035 

TYY2 

OOOO 

R 

000025 

T Y Y3 

R 

00000  1 

T 2 

OOOO 

R 

000002 

T 3 

0090 

R 

000003 

T M 

000335 

VBUL 

0006 

R 

000255 

VELCUt 

0004 

001362 

VM 

000022 

V V B 

0006 

000023 

vvc 

0006 

000024 

WO 

R 

000076 

*S2 

0006 

000247 

Yf  T 1 

0C06 

000250 

#T2 

OOOOOO 

XBUL 

0004 

R 

0001 I 6 

XDM 

0090 

R 

000106 

XDT 

000234 

XFDT 

OOOO 

R 

000042 

XII 

0090 

R 

000032 

X I 2 

R 

000320 

xmass 

0 J<j6 

000241 

xmax 

0006 

009237 

XMlN 

000233 

XhV 

0004 

R 

CC0032 

xp 

9C06 

00U243 

XT  1 

R 

000062 

X 1 2 

COCO 

R 

00C054 

XBl 

uO  jO 

k 

000960 

XB9 

R 

000053 

Y ACC 

0003 

000C62 

YBUL 

9 004 

R 

COO  150 

YDH 

R 

000067 

YD®  9 

0006 

000114 

YIELD 

0003 

R 

000043 

Y 1 1 

R 

000012 

Y I H 

0006 

CU0242 

YMAX 

0006 

030240 

YhtN 

000244 

r T i 

0006 

000246 

YT2 

OOOO 

R 

0C0063 

Y 1 2 

R 000057  Y 92 


0C06 

000115 

JGMIN 

0006 

0001 1 7 

JJLI 

0006 

I 

000354 

JLIM 

0006 

t 

000124 

JM  AX 

0006 

000002 

JT  APE 

6006 

000016 

JO 

0006 

I 

000063 

KCOMP 

0006 

1 

0002)7 

KEQUAS 

0006 

I 

000014 

KM 

0006 

000045 

KNTrOl 

0006 

000046 

K5T0P 

0006 

I 

000013 

KZ 

0006 

I 

000262 

L 

0003 

000226 

LM  AX 

0006 

000003 

mtape 

0006 

0002)0 

MTRL 

0006 

00004 1 

NCYCLE 

0006 

000042 

NEO I T 

0006 

000076 

NP 

0006 

000066 

nplot 

0006 

000056 

NV  JS 

0005 

000223 

NV  ISM 

0000 

I 

000007 

NXC 

0005 

0003Q4 

nyy 

0005 

000043 

PA  2 

0005 

000052 

PA3 

0005 

000070 

PBI 

0005 

000077 

PB2 

0006 

OOOOOO 

Pt 

0005 

000016 

PH 

0006 

000107 

PZ 

0006 

000265 

PZ1 

0006 

R 

000254 

QRT 

0007 

R 

odoooo 

QX 

OOGO 

ft 

000047 

RAVI 

Oooo 

R 

000037 

RAV2 

OCOH 

001446 

RRR 

0006 

000072 

SB 

0006 

000074 

SN 

0006 

0001 13 

SSP2 

OOOO 

R 

000107 

STY 

O003 

O0042I 

SVEL 

000  H 

001330 

SZTT 

0004 

0012J2 

SZXX 

OOOM 

OOOOOO 

temb 

0004 

oooooo 

TEMP 

OOOO 

R 

000073 

TERM3 

0005 

000133 

tila 

0005 

000124 

TILBB 

OOOS 

060176 

tilbet 

0006 

000035 

TOTE 

0006 

000031 

TOT  I E 

OOOM 

R 

000606 

TTT 

0004 

R 

000522 

TX* 

OOOO 

R 

000013 

TXXM 

0004 

R 

000640 

TXT 

OOOO 

R 

000015 

TXYM 

6004 

R 

000554 

TTT 

oooo 

R 

000014 

tyym 

OOOO 

R 

oooooo 

T 1 

0003 

000253 

UBUL 

6004 

R 

060244 

V 

0006 

000067 

VP 

0006 

000021 

V V A 

00q3 

000423 

VZERO 

OOOO 

R 

000075 

RSI 

OOOM 

R 

001 160 

X 

OOOO 

R 

000052 

xaCc 

OOOO 

ft 

000064 

XD21 

OOOO 

R 

000066 

XQftV 

OOOO 

R 

000022 

X I 3 

OOOO 

R 

OOOO) 1 

X l M 

0036 

000232 

X MSS 

0006 

000235 

XHSUM 

0006 

000245 

XT  2 

0006 

000236 

xvz 

oooo 

R 

000056 

X92 

0004 

R 

000724 

Y 

oooo 

R 

0001  10 

YOT 

oooo 

R 

000045 

YD*  I 

oooo 

R 

000033 

Y J 2 

oooo 

R 

000023 

Y l 3 

OOOM 

H 

000064 

YP 

0006 

000100 

YR 

oooo 

R 

ooooss 

Y81 

oooo 

R 

000061 

Y69 

I • 
2* 
3» 

5* 

6* 


C 

c 

c 


SUBROUTINE  MOTION 

include  gelcmn 

INCLUDE  CHUN 

OMMENT  L0X*1  X001-0.  L0X.2  YOOT»C.  LOX-3 

OMMENT  ••  NBC* 1 FOR  INTERIOR  POINT  •• 

••  NBc*2  for  point  ON  aMS  OF  symmetry  •• 


XDOT*YoOT«0* 


LOX.M  NOR 


10 

30 

HO 


000000 

000000 

000000 

000000 

oooooo 

oooooo 
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HUT  JON 


00107 
00107 
00107 
00107 
00107 
CO  107 
00107 

00107 

00107 

00107 

00107 

00107 

00107 

00107 

00107 

00107 

00107 

00107 

00107 

00107 

00107 

00107 

00107 

00107 

00107 

00107 

00107 


7* 

8 • 
?• 

10* 

1 1 • 
12* 
13* 

1 1 • 
IS* 

14* 

17* 
18* 
19* 
20* 
21* 
22* 
23* 
29  • 
2S* 
26* 
27* 
28* 
29* 
30* 
31* 
32* 
33* 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


• • NBC 
••  NBC 

• • NBC 
••  NiiC  * 

• • NBC 

• • N 0 C 
••  NflC 
RIGHT 
••  NBC 

NBC" I 1 
• NBC-1 
NBC-1 
NBC- 1 H 
NBC- IS 
NBC-14 
NBC- 17 
NBC-2M 
NBC-2S 

NBC  - 24 
N0C - 2 7 
NBC-28 

NBC - 2 9 

NBC-32 

NBC-33 

NBC-39 


YDOI 

• • 


free  • • • 


■ 3 FOR  PjIuT  rOr  OF  m£Sh  •• 

H rOK  UPPlH  RIGHT  CORNER  p 3 i n i •• 

■S  FOR  LO-tR  RIGhT  CORNER  point  •• 

6 FOR  LOTitK  UFT  C * R N £ R P * l N T •• 

■7  FOR  POINT  ON  RIGhT  BOUNDARY  •• 
sB  FOR  POINT  ON  BOTTOil  OF  h£SH 

.9  FOR  POINT  BETWEEN  PROJECTILE  ANp  TARGET  AT 
c ORNER  • • 

*10  FOR  UPPER  LEFT  cORNER  POINT  **.  *DOT  ■ 0 
FOR  J-ltK-i  POLAR  GEOMETRY  WITH  FIXED  X AXjS 

2 FOR  JMaX  IN  POLAR  COORDINATES# 

3 FOR  FIXEu  BOUNDARY  TO  RIGHT  • • 

VOID  ABOVE  AND  TO  THE  LEFT  OF  FREE  POINT  • • 

FREE  SURFACE  TO  THE  LEFT  •• 

material  below  A no  to  The  right  o«i.t  ••  ybot 
lower  left  hand  corner  of  mesh,  aoot  fixed  toot  free 

FOR  J-I  IN  POLAR  GEOMETRY  AND  FIXED  * AXIS 
FOR  LO*Ert  LEFT  HAND  CORNER  X A,JD  Y FREE 
NOT  ERUAl  ZERO.) 

LOWER  LEFT  HANO  CORNER  TOUT  FULO  ahD  XOOT  FREE* 

LOWER  RIGHT  HAND  CORNER  YOOT  FlxEO  AND  XOOT  FREE  •• 
pOTTOM  OF  MESH  YOOT  FIXED  AND  *JOT  FREE  •• 

UPPER  RIGHT  CORNER  POINT  XqOT  F I X E u AND  TDoT  FREE  • 
K-l#  J-JMa*  XoOr  riXED  TOOT  FREE.  •• 

- VOID  BELOW  AND  TO  LEFT  •• 

- VOID  8fcL0W  AND  TO  RIGHT 


• • 

MOOT 


AND  Y DOT 


00107 

39* 

C 

00124 

3S* 

10  T 1 -0 • 

00127 

34* 

T 2-0  • 

00130 

37* 

T 3-0  • 

00131 

38* 

TH-O. 

00132 

39* 

LOX-M 

00133 

HO* 

igoto-nbci< 

00131 

Ml* 

GO  TO 

* 20  • 

00131 

H2* 

1 • |9o.200>2 

00131 

M3* 

2S0>»  (GOTO 

00 1 36 

H H • 

20  NXA-1 

00136 

MS* 

NXB-  1 

00137 

M 4 • 

NXC-1 

00110 

M 7 • 

GO  TO 

34  U 

00111 

M8* 

30  LOX-1 

00112 

M9* 

NX  A-2 

00113 

so* 

GO  TO 

360 

00111 

si* 

HO  NXA-1 

00I1S 

S2* 

NXB-2 

00H6 

53* 

GO  TO 

360 

00117 

SH* 

SO  NXB-2 

00150 

ss* 

GO  TO 

370 

00151 

54* 

40  NXC-2 

00152 

S7* 

GO  TO 

380 

00153 

58  • 

7 J LOX-3 

00151 

S9  • 

GO  TO 

M 9 0 

OOI5S 

4Q* 

80  NX8-1 

*1 

6 G 

030003 

N 

70 

330000 

N 

HO 

C30000 

H 

90 

000000 

N 

10U 

OPOOOO 

N 

110 

006000 

N 

120 

000000 

N 

130 

000000 

N 

MO 

000000 

N 

MO 

000000 

N 

160 

006000 

N 

170 

00O000 

N 

180 

000000 

N 

190 

000000 

N 

200 

OOOOQO 

N 

210 

000000 

N 

280 

000000 

N 

290 

onoooo 

N 

300 

000000 

N 

310 

oooooo 

N 

320 

000000 

N 

330 

oooooo 

N 

3M0 

oooooo 

N 

370 

009000 

N 

380 

oooooo 

N 

390 

oooooo 

OOOOOO 

00O000 

N 

MOO 

OOOOOO 

N 

MlO 

oooooo 

N 

920 

000001 

N 

930 

006002 

N 

9M0 

000003 

N 

9S0 

000005 

N 

940 

000012 

N 

970 

000012 

N 

H 8 0 j 

oo0ol2 

N 

990 

000062 

N 

SOO 

000043 

N 

S10 

000061 

N 

S20 

000065 

N 

S 30 

006047 

N 

S90 

000070 

N 

sso 

000072 

N 

S6Q 

OO0O71 

N 

S70 

000075 

N 

SIO 

000077 

N 

S90 

006101 

N 

400 

000102 

N 

410 

000101 

N 

4*0 

000105 

N 

430 

000107 

N 

4M0 

000 1 10 

N 

6S0 

0001 12 
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MOT | ON 


CO  l 56 
00 15  7 
OOUO 
00161 
00162 
00143 

00164 

00165 

00166 
00167 

00170 

00171 

00172 

00173 
0017*1 

00175 

00176 

00177 
00200 
00201 
00202 

00203 

00204 

00205 

00206 
00207 
002|0 
00211 
00212 

00213 

00214 

00215 

00216 
00217 
00220 
00221 
00222 

00223 

00224 

00225 

00226 
00227 

00230 

00231 

00232 

00233 

00234 

00235 

00236 

00237 
00240 
0024  1 
30242 
00243 


4 1 • 

NXC  *2 

62« 

60  TO 

370 

6 3* 

90 

NXC-1 

6 4 • 

60  TO 

380 

65« 

103 

NX  A * 1 

66* 

NXB-1 

67* 

NXC-2 

68  • 

60  TO 

360 

69- 

110 

LOX-1 

70* 

N X A ■ 3 

716 

60  TO 

360 

72« 

120 

LOX-2 

73* 

60  TO 

390 

74  • 

130 

LOX  - 1 

75* 

NXC-2 

74  • 

GO  TO 

38C 

77* 

140 

LOX-  1 

78  • 

NXB*  1 

79* 

NXC  *2 

80* 

60  TO 

370 

® 1 • 

150 

N X A a l 

82* 

N X B * 3 

83* 

60  TO 

J 6 0 

84* 

160 

N X A - 2 

85  • 

60  TO 

360 

86  • 

170 

NX  A *3 

87« 

60  TO 

360 

S8« 

160 

LOX-t 

89* 

60  TO 

390 

90« 

190 

LOX-2 

9|4 

NXB-2 

92« 

60  TO 

370 

93  • 

2C0 

LOX  *2 

94- 

NXB-I 

95» 

NXC  *2 

96* 

GO  TO 

370 

97- 

210 

RETURN 

0 

98- 

220 

RETURN 

0 

99- 

230 

return 

c 

100* 

240 

RETURN 

0 

1 0 1 • 

250 

LOX-2 

102* 

N X A * 2 

103* 

60  TO 

36  U 

10H« 

260 

60  TO 

390 

105* 

270 

LOX-2 

106« 

60  TO 

390 

107* 

260 

LOX-2 

108* 

N X C *2 

1 09  • 

60  TO 

380 

1 10« 

290 

LOX-2 

111* 

NXC-  1 

1 1 2 • 

60  TU 

3 8 u 

1 1 3 • 

30  J 

LOX-  1 

1 1 4 • 

NXB-2 

» t 


N 

660 

000|I3 

N 

670 

000116 

N 

680 

000(17 

N 

690 

000(20 

N 

700 

000(22 

N 

710 

000(23 

N 

720 

000 1 2 *• 

N 

730 

000(26 

000(30 

N 

750 

000 (3( 

N 

740 

000(33 

N 

770 

000(35 

N 

740 

000(36 

N 

790 

000(50 

N 

800 

0O0(H( 

N 

810 

000(53 

N 

820 

000(55 

N 

830 

000(56 

N 

840 

000(50 

N 

850 

000(52 

N 

860 

000(55 

N 

870 

000(55 

N 

880 

000(57 

N 

890 

000(41 

N 

900 

000(62 

N 

910 

000(45 

N 

920 

000(45 
000 (47 

N 

940 

000(70 

000(72 

000(73 

000(75 

000(77 

000200 

000202 

000205 

000204 

0002(0 

000212 

0002(5 

N 

1500 

0002(4 

N 

1510 

0002(7 

N 

1520 

000221 

H 

1530 

000223 

H 

1540 

000225 

N 

1550 

000225 

N 

1540 

000227 

N 

1S70 

000230 

N 

1560 

000232 

N 

1590 

000235 

N 

1600 

000235 

N 

1610 

000237 

N 

1 62U 

00025 ( 

N 

1630 

000252 
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MOT  I 0 <4 


30244 

1 15* 

(.0  TO  J7J 

N UHu 

030244 

Q02SS 

1 1 6 • 

3 I D 

RETURN  0 

03024* 

0024  * 

1 17* 

322 

RETURN  C 

000250 

00247 

1 18* 

33Q 

N X C *2 

N 2 1 HO 

000252 

0O2SO 

1 19* 

L0X»l 

N 2150 

000253 

0025  | 

120® 

GO  TO  380 

N 2140 

000255 

00252 

1 2 l • 

3**c 

N X A ■ H 

N 2)70 

000257 

00253 

122* 

N X C ■ 1 

N 2180 

000250 

00254 

4 23* 

GO  TO  300 

N 2190 

000252 

00255 

12H* 

350 

NXB-I 

N 2200 

000254 

00255 

125* 

N X C ■ 1 

N 2210 

000255 

00257 

126* 

GO  TO  370 

N 2220 

00025* 

002S7 

127* 

C 

OMMENT  ••  ZONE  bELO*  ANo  TO  THE  RIGHT  •• 

N 2230 

000255 

00250 

128* 

300 

T H-  l • 

N 2290 

000270 

00251 

129* 

INDX*MPN<  J«-l  • K Z ) 

N 2250 

000271 

00252 

130* 

X JH-XPI J.KM) *DX  < J.KMI-XoHI J.KM) *DLTH-X 1 J* l » KZ  » 

000275 

00253 

1 J 1 • 

YM-YPCJiKHl^OYCJ.KHI-YDhljiKHMCLTH-rCJ^liKZl 

00031 ( 

002*4 

1 3 2 • 

T X X H*  Tx  X i J* 1 • K Z ) 

N 2280 

000320 

00255 

1 33  • 

T Y YH«TYY ( J*l  i K Z ) 

H 2290 

000322 

00255 

139* 

TXYH*TXY( J*1 .KZ) 

N 2300 

000324 

002*7 

135* 

I F 1 IPLRtEU# l ) GO  TO  309 

000325 

00271 

|30* 

RAVH-AHHOf  |NDX)«MJ*|vK2)/(l«*DVtj*|lK4)/VCJ*|iKZ)| 

000331 

00272 

1 37  • 

AAA-At J^I  ,KZI/XHASS< J*l  ,KZ I 

N 2320 

000341 

00273 

1 30  • 

ASM4**  AAA*TX  Y4* 

N 2330 

000344 

00274 

1 39  • 

ATMH-AAA«CTXXH-TTt(J^1,kZ)» 

000345 

0027S 

\H0* 

309 

GO  TO  (370i39o»90o>380) *NXA 

000352 

00275 

m® 

C 

000352 

00275 

H2* 

c 

OMMENT  ••  ZONE  BELOW  AND  TO  THE  LEFT  •• 

N 2300 

000352 

0027* 

H3* 

1 

370 

T3-1  ♦ 

N 2370 

000353 

00277 

111# 

INDX»MPNI J.KZ) 

N 2380 

000354 

00300 

IMS* 

XJ3*XP( J-l ,KZ»  *DX< J-l  ,KZ)-XOH< J-l  ,KZ)*ULTh-(XP( J,<M)*DXI JiKM)- 

000371 

00300 

1M0* 

1 

XOH( J.KMMOLTH) 

000371 

00301 

M7* 

Yf3«YP(  J-I  ,KZ)*OY  c J-|  ,K2)-rOH(  J-l  aKZ  ) •ULT*"'<  YP  < Ji  <N  I *DY  < J |KH  | • 

000411 

00301 

1 H 8 • 

1 

YDHt  J.KHMDLTH) 

00<>4l  1 

00302 

M9« 

TXX3*T  XX ( J.KZ) 

N 2 H l 0 

000425 

00303 

ISO* 

TYY3*TYY< J.KZ) 

N 2H20 

000427 

00304 

1 5 | • 

TXY3«T  XT < J.KZ) 

N 2H30 

000431 

00305 

1 52  • 

I F I IPLR.EQ.  1 ) GO  TO  379 

0004)3 

00307 

1 5 3« 

RAV3«AKH0<  INDX)*A(  J.lCZ)/(  1 . ♦OV  ( J.KZJ/V  1 J.kZ) ) 

0004)5 

003|0 

1 S M • 

AAA*A(J»KZ)/XMASS|J,KZ) 

N 2 H 50 

000445 

003(1 

1SS* 

ASM3- AAA*TXY3 

N 2H40 

000451 

003|2 

i 50 * 

ATM3-AAA* ITXX3-TTT< JiKZ ) ) 

000453 

00)13 

1ST* 

379 

GO  TO  ( 380  » HOO . 39q  ) ,NXB 

000457 

003(3 

150* 

c 

000457 

003(3 

159* 

c 

OMMENT  ••  ZONE  ABOVE  ANq  TO  ThE  LEFT  •• 

N 2990 

000457 

003(4 

160* 

.380 

T2-1  . 

N 2500 

000447 

003(5 

UP 

I NDX-HPN ( J .KP ) 

N 2510 

000470 

003(5 

102* 

XI2-X*  J,KP|-<XP(  J-l  .KZ)*DX<  J-l  .KZ)-XDH<  J-l  ,KZ)®0LTH) 

000475 

003(7 

143* 

Yl2«YCJ|KP)-(YP(J-K9KZl40YfJ-l .KZ)-YQH< J-l ,XZ J •OLyH) 

000510 

00320 

109* 

TXX2-TXXI J.KP) 

N 2SH0 

000517 

00321 

165* 

TYY2-TYY  t J.KP) 

N 2550 

000521 

00322 

1 44* 

TXY2-TXY  C J.KP) 

N 2540 

000523 

00323 

107* 

t F 1 IPLR.EQ. 1 ) GO  TO  389 

000525 

00325 

148* 

HAV2«ARH0( INDX) «A ( J.KP) / 1 j .4DVI J.KP) /v i J.AP) ) 

000530 
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HOT  ION 


00326 

|69* 

00327 

1*0* 

00330 

1 7 I • 

00331 

172* 

389 

00331 

17  3* 

C 

00331 

17M* 

C 

00332 

1 7 5 • 

3*0 

00333 

174* 

00339 

1 7f  • 

00335 

1 

00336 

179* 

00337 

1 80* 

00390 

1 8 1 • 

00391 

1 82  • 

00393 

183* 

00399 

IBM* 

00395 

I 85* 

00396 

1 84* 

00397 

1 87  • 

MOO 

003S0 

188* 

00351  •DIAGNOSTIC* 


0035 1 

| 89* 

00353 

1*0* 

00355 

191* 

00356 

192* 

00357 

1 93* 

00360 

1 9M* 

00361 

195* 

00362 

194* 

00363 

1 97* 

00369 

| 98* 

00365 

199* 

00366 

200* 

00367 

201* 

00370 

202* 

00371 

203* 

00372 

20M* 

00373 

205* 

00379 

204* 

00375 

207* 

00376 

208* 

00377 

209* 

M02 

00900 

210* 

00901 

211* 

MOM 

00902 

212* 

H05 

00903 

213* 

00909 

2 1 M* 

00905 

215* 

00906 

214* 

1M04 

00907 

217* 

l M 1 2 

00907 

218* 

00910 

219* 

009  | 0 

220* 

M 06 

009|  1 

221* 

AAA*A1U»KP|/XMA5SiJiKP| 
ASH2«AAA»TXY2 
ATM2-AAA«<TXX2-TTT»J.KP»  > 

60  TO  (390,9001 ,N*C 

OMMENT  ••  ZONE  ABOVE  ANp  TO 
T I ■ l • 

INDX-MPNl J*1 »KP1 

XI  | « X < ■*- 1 »KZ*”X(J,KP) 

Y I |«Y ( J*l »KZI"Y(J,KPI 
TXXl-TXX* J*1  »KP) 

TYYI-TYYt J*liKP» 

TXYl-TXYl J*1 iKP) 

IF<  IPLR»E9»  I ) SO  TO  -*00 
RAVi»ARHOUNDX)«A»J*l  .XPl/I 
A A A- A IJ* I ,KPI/XHASSIJ*I.KP» 

ASMI"AAA*TXYI 

ATM1-AAA«(TXXI-TTT( j*i ,kp» 1 
XACC»0» 

Y ACC*0 • 

t TEST  FOR  EQUALITY  BETa^En 
| F ( QRT • EQ *0 • * 60  TO  HO* 

IF< J*GE. JHAXCKCOMPM ) *OR*KC 
XB|-X< JtKPI-Xl J*l ,KP) 

Y8 1 «Y ( J »KP  > -Y IJ* l *KP ) 
X92»XCJ«KZ)-XIJ4l  ,X2) 
Y92"Y<J|KZ)-Y(J*1 • *** 

X89»X( J»KP)*X< J|*Z> 

Y89-Y< J,KP)-T< J»KZ) 

X|2aX(J+l  »KPl*X|J^I  iKZ) 

Y | 2" Y I J4  I *KP ) *Y  ( J*  1 |KZ) 
X02l-XDH(J^ltXZ)-X0H(J^l »<P> 

YD2I»Y0H( J*l iKZ)-YDHC J*1 .KP> 

XD89-X0H* JtKP) -XOH< JiXZ ) 

YDB9-Y0HI J|KP)-YDHI J»XZ ) 


l NDX-MPN ( 1 iKp ) 

GO  TO  (H02»H0H) ,KeQUaS 
cnaut^sqrt ( I P A I ( InDX)MM**AHU( i ndx 

GO  TO  H0& 

CNaUT-SQRT(TILAA<  inoxi/aRhoi INOX n 
WSI-TERH2/TERMZ 
*S2»TERM3/TERMI 


N 2580 

000590 

N 2590 

000593 

000595 

000551 

000551 

N 2620 

000551 

THt  RIGHT  •* 

N 2630 

000560 

N 2690 

0Q0S61 

N 2650 

000566 

N 2660 

000575 

N 2670 

000600 

N 2680 

000602 

N 2690 

000609 

000606 

1#*DV(J*1|KP)/V<J*1»kp>1 

0006 11 

N 2710 

000621 

N 2720 

000629 

000626 

000632 

000632 

NON-INTEGERS  hay  not  Be  HEANlNGFUf 

00063) 

000635 

ohPoEG#kgmax ) go  to  l*o* 

000653 

000661 

000669 

000673 

000676 

000701 

000709 

000707 

000712 

n 

000715 

000720 

000723 

000726 

K?2)#*2*(Y8l*Y92)*#2l 

000753 

Xl2)**2*( YB9*Y12l*#2> 

000766 

)8CX021*XD89l*lY8l*y92l 

000776 

)«(X02!#XD89»*{ Y894Y 12» 

001002 

QYCJ»1 >»CNAUT«QBT.(-«ISl*(X8l*X92l.#S2»*Xi»*XI2> I 

x!cci(T2«9X<J»-Tl*9XU*il*T-l*0X8(J*l  I -T3*«X»1  J I >/ 

1 !2.MTI*T2*T3*T-*>>  vrIiH/ 

YACC-*  T2««YC  Jl-TU«YCJ*|  I *1**  »0  Y B t J+  » 1 -T  3»0  YB  * J * > ' 

, I2.*<TI*T2*T3*T**>I 

continue 


OOIOO-* 
001019 
00*026 
001030 
001090 
001092 
001095 
001062 
001079 
001079 
00*079 
001  1 16 
001 116 
001139 


I 
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HOT  t 0* 


008  |2 

2 2 2® 

280 » GO  10  I 8 10.820*  , IHLK 

00812 

22  3® 

c 

00812 

229® 

c 

end  or  rotational  q calculation 

008)2 

00813 

225* 
2 26* 

c 

MS  p h l ■ «*2  5 • l T 1 • X M A 5 S ( J ♦ 1 . K p 1 ♦ T 2 • X 1 1 A S S 1 J • K P ) ♦ T 3 • X H A S S I J » K 2 ) ♦ T 9 • X M A S S 1 J 

008  | 3 

227  • 

1 ♦ I »<Z) I 

00818 

228* 

ALP-0* 

008  1 S 

229  • 

BET-0. 

008U 

00817 

230# 

23|® 

60  TO  9 30 

H20  PHI-.25®  ( T I®RAV|®T2®RAV2®T3®RAV3®T9®Ray9  I 

00820 

232® 

FRAC-l./m®T2®T3*T9) 

00821 

233® 

BET-FRAC®CTI®ATh1*T2®ATm2*t3®aTH3*T9®aTM9) 

00822 

23**® 

ALP-FRACMTI*ASm1®T2®ASm2®T3®ASM3®TH®aSHM  ) 

00823 

235® 

930  DT0P-.5®0LTZ/PHI 

00823 

238® 

c 

pressure  loading  of  bottom  SURFACE 

00823 

237® 

c 

00823 

238® 

c 

IF  I KCOMP#  GT  • 1 > GO  TO  **35 

00828 

239® 

0082* 

290® 

IF! J.EU. I»  GO  TO  933 

00830 

29  | • 

T 3-  1 • 

00831 

292® 

X13-XI J-l  .KZI-XQHI J-I  ,K2>*0LTh-X( J.KZ) 

00832 

2*0® 

YI3-YI J-l  .KZI-YOHI J-l  ,K2)»0LTH-Y( J,KZ) 

00833 

299® 

TXX3-TXXI JtKZ) 

00838 

295® 

TYY3-TXX 3 

00835 

296® 

TXY3-0# 

0083* 

297® 

IFIU.EW. JL|M>  GO  TO  9 35 

00880 

2H8® 

933  T 9 - 1 • 

00881 

299® 

XJ9-XC J.KZI-XC J®1 ,KZ) 

00882 

250® 

Y I 9*  Y < J .KZ ) -Y ( J*1 tKZ ) 

008*13 

251® 

L- J®  1 

00888 

252® 

FPLO-PBUL 1 L I 

008*15 

253® 

T X X I J® 1 »K2)--FPLD 

0088* 

259® 

T Y Y I J® 1 .KZI--FPLO 

00887 

255® 

TXX9.-FPLD 

00850 

256® 

TYYH-TXXR 

00851 

257® 

TXY9-0* 

00852 

258® 

9 35  IFIJ.LT . JL 1 P I GO  TO  960 

008  S 8 

259® 

I F I KCOMP • EQ • KGMAX j GO  To  *37 

0085* 

260® 

TI-1  • 

00857 

261® 

XI  |-XC J.KZI-XI J.KP) 

008*0 

262® 

Y I l • Y C J|K2)-Y ( J • Kp 1 

008*1 

263® 

l-jl jm®kcohp 

008*2 

264® 

FPLO-PBUL ( L ) 

00863 

265® 

TXXI--FPLD 

008*8 

266® 

TYYI-TXX! 

008*5 

267® 

T X X I 1 .KP 1 -TXX  I 

008** 

268® 

TYYt 1 .KPI-TYYI 

008*7 

269® 

T X Y 1 -0 • 

00870 

270® 

1 F ( KCOHP • EQ • 1 I GO  TO  96q 

00872 

Z7|® 

9 3 7 T9 - 1 • 

00873 

272® 

XIH-Xl J,KM)-XOH( J,KH)®OlTw-X( J.KZ 1 

00878 

273® 

Y I9-Y ( J.KH)-YOH( J,KM)®OlTh-Y( J.KZ) 

00875 

279® 

TXX9.TAX ( 1 ,KZ  ) 

0087* 

275® 

TYY9-TXXH 

N 2750 
N 27*0 
N 2770 
N 2780 

N 27»0 
N 2800 
N 2810 
N 2820 
N 2830 
N 2880 


001  I 38 
001138 
001 | 38 
001 |38 
00U83 
001 183 
001  its 
001  1** 
001 1*7 
001 171 
00120S 
001218 
001231 
00)287 
001287 
001287 
001287 
00I2S2 
00 1 25* 
0012*1 
0012*3 
001278 
001301 
001303 
001308 
0OI3OS 
001311 
001312 
001320 
001323 
00132* 
00)331 
00)332 
001337 
001381 
001382 
001388 
001387 
0013*2 
0013*8 
0013*7 
001372 
00I37S 
001800 
001801 
001802 
001803 
00)807 
001810 
001818 
00I81S 
001833 
001880 
001882 
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HOT [ON 


00477 

00477 

00477 

00500 

0050 1 

00502 

00503 
0050** 

00505 

00506 

00507 
005|0 
0051  1 
0051  I 
00512 
005|3 
005(6 
00517 

00520 

00521 

00522 
00524 
00S27 
00S27 

00530 

00531 

00534 

00535 

00536 

00537 

00540 

00541 

00542 


0HD6 


27  6* 

T X Y * *0 • 

277* 

C 

278* 

C 

27  *• 

*6C 

GO  TO  (*70»*8c.**i;#&00>  , LOX 

280« 

*70 

XOHC J#KZ)-C* 

28  1 • 

GO  TO  530 

282* 

*80 

YDH< J»KZ>«0* 

283* 

GO  TO  500 

28** 

**C 

YOHC JtKZ>-C* 

285* 

XDH  ( J i KZ ) *0 • 

286  • 

GO  TO  560 

287* 

soo 

CONTINUE 

288  • 

STX«TlMTXX!*Y!!-TXYI*X!n*T2«(TXX2#Y!2v 

28*  • 

13»XI3)*T4«1TXX4«Yj4-TXY4»XI4) 

2*0* 

XDT-XOHl J.KZ )-OTOp»STX*DLTZ«  CBET4XACC  » 

2*  I* 

1F( ABS1XDT»-VELCUT»  510,510.520 

29  2* 

510 

X0T»0« 

2*3* 

523 

XOHl J,KZl"XOT 

2*M# 

0X1 J,KZ)-DX(J.AZ>»*OT.OUTh 

2*5* 

At J.KZ1-XP1 J.KZ)4dX(J.KZI 

2*6  • 

1F(L0X.E<3«5)  60  To  550 

2*  7 • 

IF  1 LOX- 2 1 530, 56J ,530 

2*8* 

530 

STY»TI»(TYY1»X1 I-TXTI»Y|| J ♦ T2 . 1 T Y Y 2» X l 2- 

2*9  • 

13»YI3>*T4»ITYT4*X14-TXY4»Y14I 

300* 

YDT-YDH(J,KZ)*DTOp»STY*dLTZ»ULP*YACC  J 

301* 

IFC ABSC YDT1-VELCUT)  540,5401550 

302* 

5*0 

ydt»o. 

303* 

550 

YOHl J.KZ)"YDT 

30*  • 

DY(J,tCZ|"DYlJ,KZ»*YOT»DLTM 

305* 

YCJ,KZ)«YP(J.KZ1*dYC J,KZ» 

306* 

560 

CONTINUE 

307* 

630 

RETURN 

TXY2»a!2>*T3»ITXX3*Yi3-TXY 


TXY2«YI2)«.T3*(TYY3»X13-TXY 


308* 


END 


001443 
001443 
001443 
N 3080  00(445 

N 3040  00(456 

N 3110  00 ( 46 ( 

N 3(20  00(463 

N 3140  001466 

N 3150  00(470 

N 3170  00(473 

N 3(40  00(477 

N 3200  00 ( 50 ( 

N 3210  00(50( 

N 3220  00 (SO ( 

00(534 
00(546 
N 3250  00(552 

N 3260  00(554 

00(560 
00(567 
00(575 
N 3280  00(600 

N 3240  001608 

N 3300  00(608 

00(637 
001651 
N 3330  00(655 

N 3340  00(657 

00(663 
00(672 
N 3360  00(701 

N 3700  00(701 

N 3710  001731 


END  OF  COMPILATIONS 


DIAGNOSTICS. 


Pi* 
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Pu 


BFOR.S  PN 

FOR  SE2C-OV/I9/7S-09:  as:**!  I 0 • ) 

FUNCTION  PN  ENTRY  POINT  000031 


storage  used:  codeiu  ooooas;  dataioj  ooooih;  blank  commons  oooooo 

COMHON  BLOCKS: 


0003 

GELl 

00CH2M 

000* 

RZFl 

0536M6 

OOOS 

RZF2 

000331 

000* 

RZF  3 

000267 

0007 

RZFR 

0001S2 

external  References  iblock,  name) 

0010  NERR3S 


STORAGE  ASSIGNMENT  (BLOCK,  TYPE,  RELATIVE  LOCATION,  NAME  t 


000* 

00023* 

A 

0033 

000*17 

ACC 

OOOS 

0302** 

akho 

OOOS 

000000 

ARHO 

0036 

OOOC34* 

ASQRM 

OOOS 

000007 

aYLO 

OOOS 

00027S 

betaa 

0035 

000250 

BETA) 

0006 

000070 

CAPA 

000* 

00002* 

CONI 

0036 

000027 

CONG 

0006 

oooolo 

DINT 

000* 

000036 

OLTPH 

3006 

0000S1 

OLTZ 

C006 

000103 

DU  VH 

000* 

001 12* 

DV 

0006 

0002S3 

OVP 

000* 

0010*2 

DX 

0006 

00010* 

EMU 

0006 

oootos 

EP 

000* 

001*1* 

EG 

0000 

R 00000* 

F 

0006 

000073 

FNI 

0006 

000220 

FXTRA 

000* 

000032 

MTKEK 

0000 

I oooooi 

1 

OOO* 

0000*0 

ICART 

000* 

0002SI 

IHTOp 

0003 

000251 

IKMAX 

QOU* 

0002** 

INC 

000* 

OOOOS  7 

IPLR 

0007 

000  ISO 

1 SR  S 

0003 

000233 

ISTOP 

0006 

00000! 

ITAPE 

OOOR 

000000 

itemb 

0006 

ooou*o 

J 

000* 

000121 

JJL2 

0006 

000122 

JJL3 

0006 

000120 

J JR  1 

000* 

0001S* 

JM1N 

0006 

0001 1* 

JMNP  1 

0006 

0000*2 

JOLD 

000* 

000037 

K 

0006 

000257 

kact 

0006 

0000** 

KARAY 

000* 

ooooos 

kgmax 

0036 

000052 

kgmxph 

000* 

00001  1 

KIN 

000* 

000012 

KOUT 

0006 

OOOOIS 

KP 

000* 

000102 

KPRESS 

000* 

000017 

KO 

0006 

000260 

K6 

000* 

0002*1 

K* 

0006 

000061 

uox 

0036 

1 000263 

H 

000* 

| 000202 

MPN 

0003 

00023* 

NAME 

000* 

000000 

NBC 

000* 

OOOOSs 

NCORD 

000* 

000007 

NKGEB 

0006 

000065 

NK1NG 

000* 

00000* 

nlpr 

000* 

OOOOS3 

NROWT 

0006 

0000*3 

NRESTr 

000* 

00000* 

ntape 

OOOS 

00021* 

NVISR 

0005 

00030*1 

NYY 

000* 

0007S* 

P 

OOOS 

0000*3 

PA2 

OOOS 

0000S2 

PA3 

OOOS 

000232 

pa1* 

OOOS 

000070 

PBl 

OOOS 

000077 

PB2 

OOOS 

00010* 

PB3 

OOOS 

000016 

PM 

0036 

00002U 

PM1N 

0000 

A 000000 

PN 

000* 

000107 

PZ 

0006 

C0026S 

PZ1 

000* 

0002** 

PZ2 

0006 

0002S* 

QRT 

0007 

OCOOOO 

QX 

0007 

000032 

QXB 

0006 

0001 12 

R MO 

C03M 

00 1 * * 6 

RRR 

JOO* 

000072 

SB 

0005  R 00026* 

0005  0002*1 

0006  00007S 

0003  000*22 

000*  00010* 
000*  00107* 

0000  R 000002 
000^  000*20 
0003  000230 

0000  00000* 
000*  0002S2 

000*  0001  IS 

0006  OOOOS* 
3006  000002 

000*  000063 

000*  00001* 
0006  0000** 
000*  1 0002*2 
000*  000003 

000*  0000*1 
000*  00007* 

0006  OOOOS6 

0005  00002S 

0003  0001** 

0006  0002S* 
000*  0001 10 
OOo*  ooioto 

0007  00006* 

0006  000071 


akho 

OOOS 

AYLDl 

OOOS 

CAPC 

0006 

DISP 

000* 

DLZH 

000* 

DY 

000* 

ET 

ooo* 

GOT 

0004 

IDUMP 

0003 

INJP* 

0003 

ISUBC 

0007 

JGMIN 

OOO* 

JLIM 

OOO* 

JT  APE 

OOO* 

KCOMP 

Ooo* 

KM 

Ooo* 

KSTOP 

ooo* 

U 

0003 

MT  APE 

Ooo* 

NCYCLE 

Ooo* 

NP 

ooo* 

NVI5 

Ooos 

PAZ 

OOOS 

PBUL 

Ooos 

PESCUT 

ooo* 

PP 

Ooo* 

Q 

0006 

QY 

0007 

SB  1 

0003 

OOO20S  AHU 
000267  BB 
O0O02S  CONa 
0600*7  DLTH 
OOOOSO  OTH|N 
000*72  E 
000077  EZ 
000033  HTlEK 
000232  IE01T 
000231  )P).0» 
O00IS1  ISOS 
000117  JJH 
00012*  JHAX 
00001*  JO 
00021 7 KE0UA5 
0600*S  KNTrOl 

0000) 3  KZ 
00022*  UMAX 
000210  NTRk 
0000*2  NEOll 
O000*6  NP|»oT 
000223  N VI SH 

n 00003*  PA) 

0006*1  *i% 

000000  PI 

oOoioi  PSC A^E 

0001) 1  «H 
00011*  8TB 
0Q02S0  SM*SS 
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0003 

0003 

0004 

0004 

0005 

0005 

0006 
0003 
0006 
0003 
000*1 
0006 
0006 
0006 
0006 


00101 

00103 

00107 

00126 

00127 

00127 

00127 

00127 

00130 

00131 

00132 

00133 

00134 
00136 
00136 


END 


BHDC 


PN 


000262 

SMOM 

0006 

000074 

5N 

0006 

000421 

s v el 

C004 

000352 

SXX 

0034 

001212 

SZXX 

0004 

001276 

SZXY 

0004 

000000 

TEMP 

0000  R 

000003 

TH 

0005 

000142 

T | LB 

0006 

000124 

TILBB 

0005 

000161 

TILEZ 

0036 

000036 

TOTE 

0006 

000044 

TTIME 

0034 

000*06 

TTT 

0004 

000263 

UBUL 

0004  R 

000266 

V 

0003 

000067 

VP 

0006 

0v002 l 

V V A 

0006 

000423 

VZERO 

0006 

000247 

NT1 

0006 

000 1 1 6 

XDH 

0006 

000234 

XFDT 

0004 

000232 

XM5S 

0006 

000236 

XHSUM 

0006 

000246 

XT2 

0006 

000236 

xvz 

0004 

000114 

YIELD 

0006 

000242 

ymax 

0006 

000244 

YTl 

0006 

000246 

YT2 

1 • 

FUNCTION  PN(VNiEM) 

include  gelchn 

3* 

include  chain 

DIMENSION  AKM0(7> 

5* 

EQUIVALENCE  (AKMOc 1 ) iAKhO( 1 II 

6* 

c 

7 • 

c 

MEI-GRUNEISEN  EQUATION  OF  STATE 

8* 

c 

?• 

1»MPN(L*M) 

10* 

ET«AKMD(  1 )«V(LiM)/VN 

li» 

th-et-i . 

\2^ 

F-PA1 ( I ) *Th 

13* 

PN«F 

1 

RETURN 

IS*  END 


OF  COMPILATIONS 


NO  DIAGNOSTICS. 


003113  5SP2 
000*470  SXY 
00124*4  SZYT 
000133  TIU 
000176  TILBET 
000031  TO Y I E 
000622  TAX 
00033S  VBUL 
000U22  WB 
000260  «T2 
000320  XHASS 
000233  XMV 
000724  Y 
000240  YMIN 


0005 

000313 

0004 

000404 

0003 

000227 

0005 

000115 

0005 

000160 

0006 

000030 

0004 

000640 

0006 

000255 

0006 

000023 

0004 

001160 

0006 

00024! 

0004 

000032 

0003 

000062 

0004 

000064 

STHARD 

0004 

5 Y Y 

0004 

T 

0004 

tilaa 

0005 

TILES 

0005 

totke 

0006 

TXY 

0004 

VELCUT 

0004 

VVC 

0006 

X 

0003 

XMAX 

5006 

XP 

0006 

YBUL 

0004 

YP 

0006 

000436  STT 
001330  SZTT 
000000  TEHB 
000167  T | LALP 
000322  TILE^P 
000123  TSPL 
000SS4  TYT 
001362  VH 
000024  WO 
000000  XBUL 
000237  XhlN 
000243  XT  1 
000160  VOH 
000100  YR 


000003 

000003 

000Q03 

000003 

000003 

000003 

000003 

000003 

000003 

000006 

000012 

000014 

000016 

000017 

000034 
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8F0R.S  RELAX 

FOR  5E2C-O9/l?/7b-0'»:3b:M3  C 0 . » 


Rtl  AX 


SUBROUTINE  RELAX  1 

STORAGE 

used:  CODE! 1) 

COMMON 

blocks: 

0003 

GEL  1 

000929 

0009 

nzr  \ 

053696 

0005 

RlF2 

000331 

0006 

RZF  3 

000267 

0007 

RZM 

000152 

0010 

gnrt 

000192 

EXTERNAL  REFERENCES  c 

001 1 

K R E A 0 

0012 

ntran 

0013 

ERROR 

0019 

KRR1TE 

0015 

NERR2I 

0016 

NERR6* 

0017 

nRoui 

0020 

N101S 

002| 

N 1 02 1 

0022 

N*0U* 

0023 

NERR3S 

STORAGE 

assignment  ( 

0001 

001209 

IDOL 

0001 

001399 

IQ6L 

0001 

00H66 

I26L 

0001 

00001 7 

1966 

0001 

000116 

2IL 

0001 

000209 

2276 

0001 

000909 

3066 

0001 

OOOHO 

3?L 

0000 

003070 

502F 

0001 

00150b 

6|96 

0001 

001073 

67L 

0001 

001171 

• OL 

0010 

000107 

AREF 

0005 

000007 

AYLD 

0005 

000250 

BET  A 1 

0006 

000026 

CONL 

0006 

000010 

DINT 

0006 

000051 

DLT2 

ENTRY  POINT  uOZO<>i 


CODE  I I ) 0020771  DaTaIO)  Q03163|  flLANlC  C0MM0NI21  000000 


030  I 
0001 
0001 
0301 
0001 
0901 
0001 
0301 
0000 
0001 
0001 
0009 
003S 
000b 
0000 
0306 
0003 
0306 


001333 

001360 

001576 

03 1 79 3 
00016 1 
000236 

000130 

000*11  I 
003105 
0007 | 2 
001767 
000231 
000000 
00021 1 
003037 
000027 
000122 
030103 


I02l 
I07L 
I 30L 
IbOL 
2110 
2106 
3216 
10L 
S03F 
62L 
6716 
A 

ARHO 

AYLOI 

62 

CONQ 

DISP 

DLVH 


0001 

0001 

0001 

3001 

0001 

0001 

0001 

0000 

0001 

0001 

0031 

0003 

0030 

0005 
OC06 
0010 

0006 
3000 


00 1 25c 
03111  I 
0C1«27 
000066 
000120 
000271 
000506 
003060 
001309 
000773 
001  I 12 
000917 
003059 
0002S7 
000070 
000102 
000017 
00301C 


103l 
1 20L 

iiol 

1636 

22L 

2976 

3906 

500F 

b 1 55 

63U 

69L 

ACC 

aRI 

BB 

CAPA 

DELR 

OLTH 

OLX 


0001 

001336 

0001 

001931 

0001 

001677 

0001 

002036 

0001 

000173 

0001 

0003(1 

0001 

0006| 1 

0001 

001216 

0001 

001937 

0001 

001029 

0001 

000051 

0005 

R 

000266 

0000 

R 

003055 

0000 

R 

003015 

0006 

000075 

0010 

000056 

0010 

000077 

0000 

R 

003091 

lO^L 

0001 

I22L 

0001 

1 H ML 

0001 

U9L 

0001 

22  1 G 

0001 

30L 

000| 

3606 

0001 

SOOG 

0000 

57  26 

0001 

*$L 

0001 

71 

0001 

AKHO 

0005 

AR2 

0006 

BETA 

0005 

CAPC 

0006 

DEL  A 

0010 

DLTMA 

0006 

DLY 

0006 

00 1 320  105l 
001151  129U 
OOl 7o2  IlSt 
000152  2036 
000106  22IL 
000376  30(6 
000673  3736 
003062  60lr 
000630  611. 
000&70  661L 
001166  70L 
0002Q5  AHU 
000039  AS6RH 
000275  BETA* 
060025  CONA 
000102  OELY 
000036  DLTPH 
000109  OLZH 
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RELAX 


0006 

000050  DTHI.'t 

0001 

000672  1 

E 

0006 

000077 

E2 

0006 

000032 

HTKEK 

0006 

000251 

IhTOP 

0000 

003132 

INJPS 

0007 

1 000150 

ISRS 

0010 

000131 

ISUB3 

0000 

1 003012 

ITER 

0006 

000117 

JJLI 

0006 

000051 

JLJM 

0010 

000133 

JMING 

0000 

1 003032 

JRM1 

0006 

000061 

KAWAY 

0006 

| 000005 

KGMAX 

0006 

000011 

KM 

0006 

000012 

kout 

0006 

000017 

KO 

0000 

1 003017 

lmx 

0006 

000003 

HT  APE 

0006 

000055 

NCORD 

0006 

000065 

nking 

0010 

000067 

NRC 

ooos 

000223 

NV  ISM 

0005 

000031 

P A 1 

0005 

000061 

PBZ 

0006 

R 000000 

PI 

0006 

000107 

PZ 

0006 

000251 

QRT 

0000 

R 003056 

RAl 

0010 

000071 

RM  I N 

0006 

000072 

sa 

0006 

000113 

SSP2 

0001 

000170 

SXY 

0001 

001211 

SZTY 

0000 

R 003052 

TERM2 

0005 

000167 

tilalp 

0005 

000322 

TILESP 

0000 

R 003016 

TP 

0001 

000610 

TXY 

0006 

000255 

VELCUT 

0006 

000023 

WC 

DOOM 

R 001 160 

X 

0010 

000075 

XCNTR 

0006 

000237 

XMIN 

0010 

000073 

XPLRMN 

0006 

000236 

xvz 

0003 

K 000062 

YbUL 

0006 

0001  n 

yield 

0010 

000126 

YPLRMX 

0000  R 001 551  YY 


3031 

001126  | 

DV 

0036 

000106  1 

EMU 

0036 

000073 

FNI 

3000 

I 003030 

I 

0000 

I 003031 

II 

0010 

000 10** 

intvs 

0003 

000233 

l STOP 

0010 

000132 

1 SUB? 

0006 

1 000010 

J 

0006 

000121 

J JL2 

0000 

| 003011 

JLPI 

0006 

0001  |6 

JMNPI 

0006 

I 000002 

JT  APE 

0010 

I 000100 

KC 

0000 

I 003023 

KGMAX  s 

0010 

1 000065 

KM  AX 

0006 

000015 

KP 

0006 

030260 

K 6 

0006 

000061 

LOX 

0006 

000210 

MTRL 

0006 

000011 

NCYCLE 

0036 

000006 

nlpr 

0006 

030053 

nrdwt 

0005 

000211 

NV  ISR 

0035 

000013 

PA2 

0005 

000070 

PBt 

0035 

000016 

PM 

0006 

030265 

PZl 

0007 

000000 

QX 

0000 

r 003057 

RA2 

0001 

001H6 

RRR 

0006 

00007 1 

SB  1 

0005 

0003(3 

STHARO 

0001 

00010*1 

SYY 

0003 

Cu0227 

T 

0030 

R 033053 

TERM* 

0035 

000112 

T I LB 

OOOS 

030151 

TILE* 

0006 

000123 

TSPL 

G0J1 

000551 

TYY 

0031 

R CO  1362 

VH 

0006 

030021 

vvd 

0000 

R 000000 

XB 

0031 

000116 

XOH 

0006 

000232 

XMSS 

0010 

000103 

XPLRMx 

0030 

R 0003 | 0 

XX 

3010 

000016 

YCMAX 

0036 

000212 

YM  A X 

0306 

3001C3 

YR 

OOwO 

R 003035 

YZ 

3036 

000253  i 

DVP 

0006 

000105 

EP 

0006 

000220 

FXTRA 

00  j6 

I 000060 

1C  ART 

0010 

00U072 

IK 

0003 

000231 

I PLOT 

0006 

000252 

JSUBC 

0007 

I 000151 

ISWS 

0010 

000007 

jGEB 

0006 

000122 

JJL3 

0006 

| 000121 

JM  A X 

0006 

000062 

JOLD 

3006 

0000 1 6 

JO 

0000 

( 003050 

KC  A 

3006 

000052 

kgmxp* 

0010 

000066 

KMIN 

0036 

000102 

KPRESS 

0006 

000261 

K* 

0010 

000101 

LRC 

0033 

000231 

name 

0006 

000012 

nedit 

0006 

000076 

NP 

3036 

000013 

NRESTR 

0005 

000301 

NY  Y 

0005 

000052 

PA3 

0005 

000077 

PB2 

0006 

000020 

PMIN 

3006 

000266 

PZ2 

0007 

000032 

QXB 

0010 

000076 

RCALC 

0000 

ft  003021 

R*Tl 

0003 

R 000250 

SHASS 

0001 

000136 

STT 

0001 

001330 

sztt 

3001 

003000 

temb 

0010 

000016 

theta 

0055 

000121 

TILBB 

0036 

000035 

TOTE 

0006 

000311 

ttime 

0003 

003253 

ubul 

3CJ6 

030367 

VP 

0003 

000123 

V ZERO 

0003 

R 000000 

XBUL 

0006 

003231 

XFOT 

0006 

000235 

XMSUH 

0006 

000213 

X T I 

0000 

R 003331 

XZ 

3010 

000336 

Y CM  I N 

3006 

000210 

Y M I N 

00U6 

003211 

YTI 

0001 

001012 

DX 

0001 

OOHH 

EQ 

00q3 

000120 

GOT 

00()3 

000230 

I DUMP 

0003 

000251 

I KM  A X 

0006 

( 000057 

iplR 

0010 

000127 

I SUB  I 

0006 

I 000001 

itape 

00(0 

000070 

JGMAX 

0006 

000120 

JJRI 

00(0 

000117 

JMAXG 

0000 

( 003025 

JR 

0006 

i 000037 

K 

0006 

000063 

KCOHP 

0006 

00001 1 

KIN 

0000 

( 003033 

KHHI 

0006 

000016 

KSTOP 

0006 

0002*2 

L 

0006 

000263 

M 

0001 

000000 

NBC 

00(0 

000071 

NJGE6 

0006 

000066 

NPIOT 

0006 

oooooi 

NT  APE 

0001 

000756 

P 

0005 

000232 

PA* 

0005 

000106 

PB3 

0006 

0001 10 

PP 

0001 

ootoio 

Q 

0007 

000061 

QT 

0006 

R 000112 

RHO 

0000 

R 003022 

R*T2 

0003 

000252 

SMOM 

0003 

000121 

svel 

0001 

001212 

szxx 

0001 

000000 

TEMP 

0035 

000133 

TILA 

0005 

000176 

tilbet 

0006 

000031 

TOT  I E 

0001 

000606 

TTT 

0001 

R 000266 

V 

0006 

000021 

WA 

0006 

R 000217 

WTl 

00(0 

000026 

XCMAX 

0001 

R 000320 

XMAS5 

0006 

000233 

XMV 

0006 

000215 

XT2 

0001 

R 000721 

Y 

00(0 

000076 

YCNTR 

0001 

R 0000*1 

YP 

0006 

00021* 

YT2 

0001 

001071 

DY 

0000  1 

r 003020 

ES 

0006 

000033 

HTlEK 

0003 

000232 

IEOIT 

0006 

000261 

INC 

0000 

( 003013 

IS 

0010 

000130 

ISUB2 

6001 

oOoooo 

I Tins 

6006 

0001 15 

JGN|N 

6000 

( 063021 

JL 

0006 

( 000156 

JM  I N 

0010 

OOOOOO 

JRCG 

0006 

0&02S7 

MCT 

6006 

O0O2I7 

KCtUAS 

0000 

( 003026 

kl 

0006 

00001S 

kntrOl 

0006 

000013 

KZ 

0003 

j 000226 

LMAX 

0001 

I 000202 

MPN 

0010 

000U4 

ncone 

0006 

000007 

nkgeb 

0000 

I 003027 

NP  TS 

0006 

000056 

NVIS 

0005 

000025 

paZ 

6003 

OOOlU 

p»ul 

0006 

000254 

pescut 

0006 

000101 

psca^c 

0006 

oOOili 

QH 

6007 

0001)6 

QY8 

0010 

000124 

RMAX 

0000 

r 0030)6 

RZ 

0006 

000071 

5N 

0001 

060)S2 

sxx 

0001 

001274 

SZXY 

0000 

ft  003051 

TERM  l 

OOOS 

0001)5 

TILAA 

0005 

000140 

TILES 

0006 

000030 

totke 

0001 

000532 

TXX 

0003 

000335 

ViUL 

0006 

000022 

VYB 

0006 

ft  000250 

HT2 

0010 

0000} 4 

X C M I N 

0006 

000211 

XMAX 

6001 

ft  060032 

xp 

0010 

OOOl 05 

XVJnT 

Oooo 

r OOOlU 

yb 

0001 

oOoiso 

YDH 

OOIO 

060071 

yplrmn 

0010 

000106 

yvint 

Rtl  ax 


OCIOi 

00103 

00107 

00126 

00132 

00133 
001  3 *♦ 
00 1 3** 
00I3M 
0013*4 
00I3M 

00136 

00137 
OOHO 
001  ^ 1 
COM2 
001*42 
001*43 
001*4*4 
001*4*4 
00 1 *4  *4 

001*4*4 
001*45 
00150 
5 00 151 

d>  00152 
^ 00153 
M 00155 

00155 

00156 

00157 
00160 
00160 
00162 

00165 

00166 
00166 
00170 
0O17O 
00172 
0017*4 
00175 

00175 

00176 

00177 
00177 
00200 
00200 
00201 
00201 
30210 
002 1 3 
00213 


1 • 

2 • 

3* 

*4* 

5* 

6* 

7 • 

8*  C 

9*  C 

10*  C 

l 1 • C 

1 2 • 

13* 

1*4* 

IS* 

16* 

17*  C 

16* 

19* 

20*  C 

21*  C 

22*  C 

23* 

2*4* 

25* 

26* 

27* 

28* 

29*  C 

30* 

31* 

32* 

33*  C 

3 H • 

35* 

36* 

37*  C 

38* 

39*  C 

*40* 

HI* 

*♦  2* 

*43*  C 

H H • 

**5* 

*46*  C 

*47* 

*♦  8 • C 

*♦  9 • 

50*  C 

51* 

52* 

53*  C 


SUBROUTINE  RELAX 
INCLUDE  SELCMN 
INCLUDE  CHAIN 
INCLUDE  cgen 

DIMENSION  XB4I3C1  . r B < 1 0 3 i 
DIMENSION  XX(Qj,KTR2)t  YY(QJ.KTR2) 

DATA  es/i.e-oh/ 

KART-2  SEMICIRCLE 
I CART "3  GENERAL  INPUT 

SF (A.B»C)*A*B*(C*A) 

BF<D.E.F.G,H,R>"D»<  t E-F ) • • 2 M G-H > • • 2-R* • 2 1 
AF(AAiBB.CC)«AA#(bB-CC) 

RHT1«WT!/(*TI**t2) 

R*IT2-AT2/(RT1*RT2| 

<GMAXS"KGM AX 
ICGMAX*»CMAX 

read  in  values  of  x and  y and  put  into  xx  and  yy  arraYs 

DO  20  K«l  .KGMAX 
JL«JHIN(K) 

JR" JM AX ( K ) 

KL"K 

IF1XGMAX.LE.5B)  GO  TO  7 
KL  ■ I 

CALL  KREAOUTAPE.ll 

CALL  MTRANt 1TAPE.22) 

IF t ISRS.LE.OI  CALL  ERROR 

7 DO  10  J"JL.JR 
XXt J,KI»X(J,KL> 

10  TY< J.KI-TI J.KLI 

20  CONTINUE 

IFUGMAX.LE.OB  I GO  TO  221 
CALL  NTRAN( I T APE . 10 .22  I 
221  CONTINUE 

CO  TO  (21.30.22) • | C ART 

21  RETURN  0 

22  NPTS»2*JR*2»KGMx*-1 

READ (5 ,5001  (XB(I|,TB(tl.I»I.NPTSI 

DO  173  1-I.NPTS 
173  aRITE(6,503)  Xb ( I i , Y B ( I ) 


000000 

000000 

000000 

OQOOOO 

600000 

000000 

0000.0 

oooooo 

000000 

oooooo 

OoOoOO 

oooooo 

OQOOOO 

oooooo 

oooooo 

OOOOOI 

OOOOOH 

000007 

OOOol  1 
0.001  I 
00001  I 
00001  I 
000013 
6q6oi7 
000021 
000023 
•0002S 
OQ0O3I 
0.0031 
000033 
000037 
000013 
000013 
OOOOSI 
OOOOAi 
000067 
000067 
000071 
00007  1 
000071 
000)00 
000)06 
000)06 
000)06 
000) >6 
000|)6 
000)20 
000)20 
000)26 
000)26 
000)61 
000)61 
000)6) 


R£t«X 


00220 

S M • 

00223 

5S* 

0022** 

56* 

0022*1 

57* 

00226 

58* 

00231 

5?* 

00232 

60* 

00233 

4|* 

00233 

62* 

00235 

63  • 

00236 

68- 

00236 

65* 

00237 

44* 

002*12 

47* 

002*43 

48  * 

002*1*1 

49  • 

002*1*1 

70* 

002*16 

7 I • 

002S1 

72* 

002S2 

73« 

00253 

78* 

00253 

75* 

00255 

7 4* 

00255 

7 7* 

00255 

78* 

00255 

79* 

00256 

80* 

00264 

81® 

0026*1 

82  • 

0026*1 

83* 

00272 

8M» 

00273 

85* 

0027*1 

84* 

00275 

ST 

00276 

88* 

00277 

89* 

00300 

90® 

00303 

9 I • 

00305 

9 2 • 

00310 

93# 

00310 

9H« 

00312 

95* 

00313 

94* 

003  | 4 

9 7* 

00315 

9 8* 

003|5 

99# 

00316 

100* 

003|6 

101* 

00316 

102* 

03316 

103* 

00320 

1 0 H • 

00323 

105« 

00324 

1 C4  • 

00325 

10T 

00  322  l I«*l  ,JR 

000173 

000173 

xx(  1 1 . i )-xau  i > 

000174 

322  YY  <11  . 1 >*YB< 1 I > 

000174 

C 

000204 

DO  324  I I *2  »K6MaX 

000204 

1 ■ JR* I 1-1 

000210 

XX(JR.U)  “*B  ( I 1 

000213 

324  YY( JR,  1 I l-YBl I 1 

000213 

c 

000217 

JRH 1 * JR" 1 

000222 

kmmi«kgmax-i 

000222 

c 

000224 

00  324  I I-JRHI » 1 

000244 

I«2«JR*KGMAX-I  1-1 

000251 

XX ( 1 1 » KGMAX ) *XB { 1 ) 

000254 

324  Y < I I »KGMAX)-YB  < I > 

000254 

C 

0Q0260 

DO  328  1 1 ■ KHM 1 • 2 • - 1 

0Q0274 

|»2» JR*2*KGMAX-I 1-2 

000301 

X X ( 1 i I I ) * X B ( 1 > 

000303 

328  YY ( 1 • 1 l )*YB( 1 1 

000303 

C 

000307 

GO  TO  39 

000307 

c generate  semi-circle  froh  rectangular  gRIo 

000307 

000307 

c 

000311 

30  RE AO  1 5 • 500 ) XZ»YZ,RZiBZ 

000321 

WtR|TE(4»  b02  1 XZ,YZ»RZ»BZ 

000321 

c 

000321 

C CALCULATE  NEW  AXIS  POINTS 

000332 

JRH 1 ■ JR- 1 

000335 

KMM l*KGMAX-l 

000340 

xx« jr.xghaxi-rz 

000344 

DLX*CXX( JR.KGMAXl-XXU  .KGmAX)  ) /FLOAT 1JRM1 ) 

000355 

Y Y ( 1 » 1 1 ■ Y Y ( 1 .KGMAXl-RZ 

000360 

0LY-IYYC  1 iKGHAX)-YYI 1 • 1 ) 1 /FLOAT « KHM 1 1 

000376 

00  33  J*2  » JRM 1 

000376 

33  XX(  J.KGHAX1-XXIJ-I  .KGHAX^OLX 

000404 

00  37  K-2.KMM1 

000404 

37  YY ( 1 .X  > * Y Y ( 1 »K-1  1 ♦DLY 

000404 

C 

000410 

39  ITER-0 

00041  1 

HO  1S«0 

000411 

JLP 1 * JM 1 N ( I ) ♦ 1 

000414 

JR-JHAX ( 1 ) 

000414 

c 

00&4 1 6 

I F ( 1 C ART • EG • 3 ) GO  TO  46| 

000414 

C 

000414 

C HOVE  BOUNDARY  POINTS  AT  BOTTOH  OF  NESH 

000416 

C 

006430 

00  BO  J* JLP 1 * JR 

000433 

BETA-BF (BZ .XXI J, IlXZ.YVCJ.II.YZ.RZ) 

000441 

jp.XX ( J. 1 ) 

000443 

X X { J » 1 )*BF(XX(J,1 ) ■ BE  T A , X Z ) 
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00326 

IC8* 

00330 

lOf 

0031 

1 10* 

0032 

111® 

00331 

112* 

00331 

1 13* 

00331 

1 I M • 

00331 

115* 

00336 

I 1 6 • 

00336 

I I 7 • 

00)37 

1 ! B • 

00312 

1 !*• 

00)13 

120* 

00311 

1 2 I • 

00)15 

122* 

00316 

123  + 

00350 

1 2M  • 

00351 

125  + 

00)52 

126* 

00)51 

127  + 

00)51 

1 2 B • 

00)51 

l 2 9 • 

00)51 

130  + 

00)56 

1 3 1 • 

00)56 

132  + 

00)57 

133  + 

00)62 

139® 

00)61 

I 35  + 

00)66 

134  + 

00367 

137  + 

00370 

138  + 

00371 

139* 

00371 

no+ 

00372 

1 **  1 • 

00375 

|92  + 

00377 

1H3» 

00101 

199  + 

0O1O2 

I9S  + 

00103 

1H4  + 

00105 

197  + 

00107 

1 9 8 • 

0011  1 

199  + 

00112 

ISO* 

oom 

I s I • 

00115 

1S2  + 

00116 

153  + 

00120 

159  + 

00121 

1 55* 

00123 

156  + 

00125 

157* 

00127 

158* 

00130 

159* 

00131 

160  + 

C0133 

I61« 

1 F t A8S ( T P-XX I J , 1 ) | . GT , t S ) I 5 * 1 
TP-YY I J, l > 

YYIJ.I  l-SFI YYlJ.ll  .BETA.Y/) 

IF  I A8S  I TP-Y  V l J • ! * I *GT  *ES  ) IS-I 
50  CONTINUE 

C MOVE  BOUNDARY  POjNTS  AT  KlGrtT  EuCE 

c 

KMM I -KGMAX- 1 
C 

00  60  K-2.KMMI 
JR.JHAXIK) 

BET A-BF  I8Z.XXI JR.KI ,XZ. YV c jR .Kl .YZ.RZ > 

TP-  XX I JR  »K 1 

XXI JR.K l-SFI  XX  I JR.KI  .BETA. XZ> 

IFI  ABSITP-XXI JR.X) I.GT.eS)  1S-I 
TP-YYI JR.K) 

TYIJR.Kl-SFlYYIjR.KI .BETA.YZ) 
IF(ABS(TP-YY(JR,Xj).GT.eS)  IS-l 

60  CONTINUE 
C 

C MOVE  INTERIOR  POINTS 

C 

661  CONTINUE 
C 

00  BO  K- I (KGMAX 

IF ( I CART  »NE«3 I GO  TO  61 

ifik. eg. i.or.k.er. kgmaxi  go  to  ao 

61  CONTINUE 
JC-JMINtK) 

JLP I ■ JL*  I 

jrmi-jmaxiki-i 

c 

00  70  J-JL.JR 
IFlICART. NE • 3 ) GO  TO  62 
IFIJ.EW. JL.OR.J.Eu.jR)  GO  TO  70 

62  CONTINUE 
TP-XXI J.KI 

1 F I K . GT • I » GO  TO  -3 

IFI ITER. GT. 501  GO  TO  70 

IFI J.EG. JL.OR.J.EW.JR)  GO  TO  70 

XXI J,K>-RBTI-XXIJ-I,K>*R»t2»XXIJ*I ,KI 

IFI ABSITP-XXI J.Kl I .GT. ESI  1 S- I 

TP-YYI J,K| 

YYI J.KI-R«T1*TYI J-l .K)*RWT2»TY I J*l  .XI 
IFIABSITP-YYIJ.Kll.GT.ESI  IS-I 
GO  TO  70 

63  IFIK.LT.K6MAX)  60  TO  6S 
IF<  ITER. GT. 50)  GO  TO  70 

IFI J.EU» JL.OR.J.Eu.JR)  GO  TO  70 

XXI J.Kl-RRTI-XXI J-l ,K)+R«T2*XXIJ*1  ,K> 

GO  TO  70 

65  IFIJ.LT.JR>  GO  TO  67 

IFI ITER. GT. SO)  GO  TO  70 


000117 

000v57 

000161 

000165 

000177 

000-77 

000177 

000177 

000177 

000177 

000502 

000506 

000517 

000525 

000527 

000531 

000515 

000550 

000551 

000570 

000570 

000670 

000670 

000570 

000670 

000570 

000611 

00061) 

000630 

000660 

000656 

000661 

000661 

000673 

000673 

000675 

000712 

000712 

000713 

000715 

000717 

000733 

000711 

000751 

00075) 

000761 

000771 

000773 

000771 

00)000 

OOlOH 

001022 

001021 

001027 
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XXIJiKI— R*T|-XX|J»K-|  * 

001033 

00*4*5 

162* 

00 1 OH  1 

00*436 

U3« 

IFIABSITP-XXI J.K> I.GT.ES)  I S» I 

OOIOSI 

00*4*40 

l 6 *4  • 

TP-YYI J.KI 

OC 1 053 

00*4*41 

165* 

TV ( JiK)»ft«Tl*YY( J,K*I  MRRT2-YY C J.K-I ) 

001061 

00*4*42 

166* 

IF l ABSITP-YYI J.U t.GT.ESt  |S-l 

001071 

00*4*4*4 

167* 

60  TO  70 

001073 

oo*4*»s 

1 6 8 • 

67  IFU.6T.JU  60  TO  69 

001076 

00*4*47 

169* 

I F < ITER. 6T .50)  GO  TO  70 

001102 

00*451 

170* 

YY(J.Kl-RRTl*YY  ( J ■ K+ 1 )*RRT2*YY  • J • K“ 1 ) 

001 1 10 

00*»52 

I 7 1 • 

60  TO  70 

001 1 12 

00*453 
00*45  *4 

l 7 2 • 
1 73  • 

69  XX(jjK^».5*tRWT|»XXU-l,KI.R6TI«XXCJ>X*n*R«iT2*XX(J.|»K)* 

00H12 
00 1 1 1 2 

00*45*4 

17*4* 

| R*T2»XX( J.K-II J 

001126 

00*4S5 

1 7 S • 

IT  ( ABSCTP-XXUiKl  ) .6T.ES)  I S- » 

001136 

00**57 
00*4  60 

17  6* 
177* 

YYuIkI^5»(R*T|»YY(J-1  ,KI+R«TI*YVI  J.K»I  »*R*T2*YY(  J+l  .K). 

001 |H0 
001 1 HO 

00**40 

17  8* 

1 RKT2-YYI J.K-I I » 

001 ISS 

00*4  6 1 

l 79« 

IF IA8SITP-YYI J.K 1 1 .GT.ES)  I S-  1 

001172 

00*463 

180« 

70  CONTINUE 

00 1 1 72 

00*463 

I 8 I • 

C 

001 172 

00*4  65 

1 B 2 • 

60  CONTINUE 

OOU72 

00*465 

163* 

c 

001172 

00*467 

1 8*4* 

iter«iter*i 

001  1 76 

00*470 

IBS* 

IFI ITER. GT. 5001  6o  TO  1 00 

001200 

00*472 

1 86* 

1 F ( IS.6T.0)  60  TO  HO 

001200 

00*172 

l 87* 

c 

100  HR  I TE  C 6 t 50 1 ) ITER 

00120H 

00*4  7 *4 

188* 

0OI2OH 

00*17*4 

189* 

c 

ORITE  HE*  POSITIONS  BACK  ON  TAPE 

00120H 

00*47*4 

190* 

c 

00I20H 

00*4  7 *4 

191* 

c 

DO  120  K-  1 • KGM A X 

001216 

00*477 

192* 

001216 

00502 

193* 

JL- JH I N ( K 1 

001220 

00503 

19*4* 

JR- JMAX ( K 1 

001222 

0050*« 

19S* 

KL-K 

00I22H 

00505 

196* 

IFIK6MAX.LE.0BI  6u  TO  Ip3 

001230 

00507 

1 9 7 • 

KL-I 

001232 

005|0 

198* 

CALL  KREAOl  ITAPE. 1 » 

001236 

00511 

199* 

CALL  NTRANI ITAPE. 221 

0012H2 

00512 

200* 

IFI  ISRS.LE.OI  CALL  ERROh 

0012H2 

00512 

201* 

c 

103  00  1 10  J»JL.JR 

001260 

0051*4 

2G2  • 

00130H 

00517 

203* 

IFIK.6T.I  1 60  TO  I0S 

001306 

00521 

20*4* 

LMAX-LMAX.I 

001312 

00522 

205* 

XBULILMAXI-XXI J,K; 

00 1 3 1 H 

00523 

206* 

YBULILMAX  1 -YY  C J » K j 

001316 

0052*4 

207* 

60  TO  107 

001320 

00525 

208* 

IOS  IFIK.LT.K6MAXSI  Go  TO  106 

001321 

00527 

209* 

IFU.6T.lt  GO  TO  102 

001326 

00531 

210* 

lhax-lmax.jr 

001330 

00532 

211* 

LMX-LHAX 

001331 

0053  3 

2 12* 

GO  TO  109 

001333 

0053*4 

213* 

IC2  LMX-LMX-I 

001336 

00535 

21H* 

ICM  X8UL ILMX 1 -XX 1 J iK * 

001 JHO 

00536 

2 15* 

T BUL ILMX 1 -YY 1 J »K • 
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00537 

2 16* 

GO  TO  1 ; 7 

00510 

2 1 7 • 

106 

IF I J • L I • JR  > GO  TO  1Q7 

00512 

2 1 8 • 

LHA  A*L<1A  *♦  1 

00513 

219« 

XBUL IL«A * ) »X A 1 J ,K  | 

00511 

2 20* 

YBUULMAX)«rr  ( J,Kj 

00515 

22  I • 

107 

CONTINUE 

0051* 

22  2* 

X( J.KL)«XX< J.K) 

00517 

22  3 • 

XP< J.KL)*X( J.KL) 

00550 

22*4  • 

Y( J.KL)«YY( J.K) 

00551 

225  • 

1 10 

YP( J,KL)»Y< J.KL) 

00551 

226  • 

C 

00553 

227  • 

IF(KGMAX.LE*QB)  Gu  TO  120 

00555 

2 28  • 

call  KARITEI JTAPE,  I ) 

0055* 

221* 

CALL  NTRANI JTAPE.22) 

00S57 

230  * 

1F< 1SAS.LE.0)  CALL  ERROR 

005*1 

23  1 • 

120 

CONTINUE 

005*1 

232* 

C 

005*3 

233* 

IF<KGMAX.LE«JB)  G u TO  12 2 

005*5 

23M  • 

CALL  NTRANC I TAPE  • |0 .22  I 

005** 

2 35  • 

call  ntranc jtape. iO .22) 

005*7 

236* 

l 22 

CONTINUE 

00567 

2 3 7* 

C 

00S*7 

238* 

c 

RECALCULATE  area.  VOLUHe  and  Ma55 

005*7 

239  • 

c 

00570 

2M0« 

KC * I 

00570 

2 M 1 • 

c 

00571 

2 H 2 • 

00  150  K ■ 1 .FGMAX 

00571 

2 M 3 • 

IF(KGHAX.GT»QB)  go  TO  I2H 

0057* 

2MM* 

KC»K 

00577 

2M5* 

KCA-KC-I 

00*00 

2H6* 

GO  TO  126 

00*01 

2M7« 

1 2H 

CONTINUE 

00*02 

2M8« 

CALL  KHEAOt JTAPE.KC) 

00*03 

2M  9 • 

call  ntrani jtape.22) 

00*01 

250* 

1 F ( 1SRS.LE.0)  CALL  ERROR 

00*0* 

25  | • 

126 

CONTINUE 

00*07 

252  • 

IF  ( K * £ W • 1 ) GO  TO  1M5 

00*11 

253  • 

JLP 1 ■ JN 1 N ( K I ♦ 1 

00*12 

25  M • 

JR ■ JN A X ( K ) 

00*12 

255* 

c 

00*13 

256  • 

DO  1MH  J-JLP1.JR 

00*1* 

257  • 

TERNI-AF  (X(  J.KCA)  ,Y  I J,<C  > lY  ( J-l  .KCH 

00*  1 7 

258* 

TERN2-AF  I X( J.KC) • Y< J-l «KC) , YIJ.KCA) ) 

00*20 

259  • 

TERM3-AFCXU-I  .KC)  . Y<  J.KCA)  #YC  JiKC)  ) 

00*21 

260* 

ARl«TERMI^TERM24TfcRM3 

00*22 

261* 

AR1-*5*AR1 

00*23 

262  * 

TERM1»AfU(  J.KCA)  .Y(  J-I  ,Kc)  • Y ( J-l  ,KCA>i 

00*21 

263* 

TERH2«AF(X( J-l  .KC)  .Y(J-l  .KCA)  .T( J.KCA) J 

00*25 

26  M • 

TERM3-AF(X( J-l .KCa).Y(J,KCa).Y(J-1,KC)) 

00*2* 

26S« 

AR2*TERMl4TERH2^TtRH3 

00*27 

266« 

AR2«»5*AR2 

00*30 

26  7* 

A(J.KC)*ARI*AR2 

00*30 

268* 

c 

00*31 

269« 

1 I-MPNC J.KC) 

001  JR 2 
001311 
00  1317 
001353 
0013S5 
0013*0 
0013*0 
0013*1 
0013*2 
0013*1 
0013*1 
0013*7 
001373 
001377 
001103 
001112 
001112 
001112 
OOUI* 
001123 
001131 
001131 
001131 
00M31 
001131 
001131 
001137 
001137 
001113 
00 1 115 
001117 
0011SI 
001151 
OOllSI 
00 1 1*0 
0011** 
00 1 1*7 
Ool 172 

00117* 
001 17* 
001500 
00151  I 
00151* 
001522 
•0152* 
0015)1 
0015)) 
0015)7 
00151) 
001517 
001552 
0015S1 
001551 
0015*1 
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RELAX 


00632 

270* 

RHO* ARMO ( 1 1 1 

001564 

00632 

271# 

C 

001564 

00633 

272* 

GO  TO  ( 1 30  t 1 9Q 1 t IpLR 

001566 

00633 

273* 

C 

001566 

00634 

2 7 H • 

130  XMAS5( J.KC)«A( J,KC)*RHO 

001576 

00635 

275* 

V( J.KC >-A< J.KC) 

001607 

00636 

27** 

VM< J,KC)«V(JtKC)*AKHO(I  I ) 

001614 

00637 

277* 

SMASS*SMASS+XMA5S(J|KC) 

001622 

00640 

278* 

GO  TO  199 

00 1 62§ 

006*10 

271* 

c 

001625 

00641 

280* 

190  RA J«<X( J.KCA)*X(J,KC)^X( J.i ,KC) )/3. 

001627 

006*12 

28  | • 

RA2«<X( J-l «KCA)*X( J,KCA)*X( J-t  »KCI )/3. 

001637 

00643 

262* 

XHASS(JlKCl«RH0*(KAl*ARl*RA2*AR2) 

001644 

006*1*1 

283  • 

V( J,XC)-<6.*XMASS( J,KC) J/RHO 

0016S4 

006*15 

289* 

VM(J,KC)»V(J.KCJ*aKMOCII) 

001663 

006*16 

285* 

SHASS«SHA5S*2.*PI ( 1) • XH A SS ( J , KC ) 

001671 

006*16 

286* 

c 

001671 

006*47 

287* 

199  CONTINUE 

001702 

006*47 

288* 

C 

001702 

00651 

28?  • 

195  l F ( KGMaX • LE  • QB ) GU  TO  I5C 

001702 

00653 

290* 

CALL  KtfR 1 TE ( 1 TAPE tKC ) 

001705 

00654 

29  1 • 

CALL  NTRAfK  1 TAPE»22) 

601711 

00655 

292* 

1F(  I SA’S  • LE  • C ) CALL  ERROR 

001715 

00657 

2?3* 

KC*  KC ♦ 1 

001722 

00660 

29  9* 

1FCKC.GT.2)  KC-1 

001 725 

00662 

295* 

KCA-KC-I 

001733 

00663 

296* 

IF(KCA.EQ.U)  KC  A*  2 

001736 

00663 

297* 

C 

001736 

00665 

298* 

150  CONTINUE 

001744 

00665 

29?» 

C 

001744 

00667 

300* 

l F < KGMAX  • LE  • GB  ) Gg  TO  |*9 

001744 

00671 

301* 

CALL  NTRANUTAPE.  10*22) 

0017S0 

00672 

302* 

CALL  NTRANCJTAPE* 10*22) 

001755 

00672 

303* 

c 

001755 

00673 

309  • 

DO  160  K*|  «KGHAX 

001762 

00676 

305* 

CALL  KREADI I T APE  • 1 ) 

001767 

00677 

306* 

CALL  NTRAM  ITAPC.22) 

001773 

00700 

307* 

IF<  ISRS.LE.O)  CALL  EKROn 

001777 

00702 

308* 

CALL  K*RITE( JTAPE,  1 ) 

002004 

00703 

309  • 

CALL  NTRANC JTAPE.22) 

002010 

00704 

310* 

IF<  ISA5.LE.0)  CALL  ERROR 

002014 

00706 

3 1 I • 

160  CONTINUE 

002023 

00706 

312* 

C 

002023 

007|0 

313* 

CALL  NTRANI lTAPC. 10.22) 

002023 

00711 

319* 

CALL  NTRANI JTAPE* 10*22) 

002030 

007  | | 

315* 

c 

002030 

007  | 2 

316* 

169  CONTINUE 

002036 

00713 

31  7* 

kgmax«kghaxs 

002036 

00714 

318* 

RETURN 

002037 

00  7 | 4 

U9^ 

C 

002037 

007  | 5 

320* 

SOQ  FORMAT ( 6 E 1 0 • 3 ) 

002076 

00716 

32  | • 

501  F0RMAT(/*10X,*NUMbER  OF  ITERATIONS*1  » J9) 

002076 

007  l 7 

322* 

b0  2 F0RMATl/*5x»,X0**  »)PEIO»3(2X*9YC*f*EIO*3l2Xi  *90**  •ElC»3*2x* 

002076 

007  | 7 

3 23  • 

l * 8 J * * » E 1 0 • 3 ) 

002076 

RLUaX 


00?  20 
00720 
0072) 


32*4*  BC3  FoRMATlSXi'Xa*’  . IpilO# J,3x, IYB»#  .Cl0«3i 

32S*  C 

326*  E.ND 

END  OF  COMPILATION:  NO  DIAGNOSTICS. 


0HDG 


REST  an 


002076 

002076 

002076 


Page  78 


BFOR.S  KESTAR 

FOR  SE2C"0’/11/7S-0’53S:S1  * 0 • > 


RESTAR 


SUBROUTINE  RESTaR  ENTRY  POINT  U002H 

COUMP  ENTRY  POINT  0002*17 


storage  used:  codeiii  000252:  datacoi  oooois:  alank  common»2»  000000 

COMMON  BLOCKS; 


0003 

GEL  1 

000121 

0001 

RZFl 

053616 

0005 

RZF2 

000331 

0006 

RZF3 

090267 

0007 

RZFl 

000152 

EXTERNAL  REFERENCES  (BLOCK,  NAMEI 

0010  MMXCOH 

0011  NTRAN 

0012  error 

0013  KREAD 

0011  KWR1TE 

0015  NERR3S 

STORAGE 

ASSIGNMENT  (BLOCK,  TYPE 

0001 

000037 

1 *♦  l L 

0001 

0001 

000226 

|8*4L 

0001 

0005 

000205 

AMU 

0005 

0005 

000257 

BB 

0005 

0006 

000025 

CONA 

0006 

0006 

000017 

dlth 

030* 

0006 

000050 

DTMIN 

000*4 

0001 

000672 

E 

000* 

0006 

000073 

F N 1 

000* 

0006 

000060 

ICART 

0003 

0006 

000261 

INC 

0000 

0007  1 

000150 

ISRS 

0003 

0001 

OOOOOO 

ITEMb 

000* 

0006 

000122 

J JL  3 

0006 

0006 

000116 

JMNP1 

0006 

0006 

000257 

kact 

000* 

0006 

000052 

KGMXPM 

0006 

0006 

000015 

KP 

000* 

0006 

000260 

K 6 

0006 

0006 

C00263 

M 

000*4 

0003 

000231 

NAME 

G0U*4 

0006 

000007 

nkgeb 

ODD* 

0006 

000053 

nrd*t 

OOJ* 

OC0036 
00 1 12* 
00010* 
000220 
000230 

00000* 

000233 

0000*40 

000120 

000062 

00006*4 

00001  I 
000102 
000261 
000202 
000000 
000065 
0000*43 


1*4  *4G 

1?0L 

ARMO 

BET  A A 

CONL 

DLTPH 

OV 

EMU 

EXTRA 

IDUMP 

1NJPS 

ISTOP 

J 

JjRl 

JOLO 

KAKAY 

KIN 

KPRESS 

K9 

MPN 

NBC 

NK1NG 

NRESTr 


OCOI 

000*4 

OCO* 

0005 
OCO* 
000* 
0C06 

0006 
0003 
0003 
0003 
0006 
0006 
000* 
00C6 
000* 
0006 
ooa* 
0006 
0000 
000* 
LCO* 
JG'J6 


000125 
00023*4 
00003*4 
000250 
000027 
00UU5 1 
000253 
CO J 1 05 
000*420 
000232 
000231 
000252 
0001  U 

00005*4 
1 000002 
000u*3 
00001*4 
0000*4* 
000262 
t oooooo 

03GJ5s 

CuO'J06 

OOu-iOM 


159L 

A 

asqrm 
BET  A 1 
COMQ 
DLTZ 

ovp 

EP 

got 

1EDIT 

JPLOT 

1SUBC 

JGMIN 

JLIM 

JT  APE 

KCOMP 

KM 

KSTOP 

L 

MTAP 

NCORD 

NLPR 

ntape 


0001 

000112 

175G 

0003 

000117 

ACC 

0005 

000007 

AYLD 

0006 

000070 

CAPA 

0006 

000010 

dint 

0006 

000103 

DLVH 

000*4 

001012 

DX 

000*4 

001111 

EQ 

0006 

000033 

HT1EK 

0006 

000251 

1 HT  OP 

0006 

000057 

IPLR 

0007 

| 000151 

ss«s 

0006 

000117 

J JL  1 

0006 

000121 

JMA* 

0006 

000016 

JO 

0006 

000217 

KEQUAS 

0006 

000015 

KNTROL 

0006 

000013 

KZ 

0003 

000226 

lmax 

0006 

i 000003 

mtape 

0006 

00001 1 

NCYCLE 

0006 

000076 

NP 

0006 

000056 

NV  1 S 

0001 

000201 

1521 

0005 

000266 

AKMO 

0005 

000211 

AYLD  1 

0006 

00007$ 

CaPC 

0003 

000422 

OISP 

0006 

000101 

DLZh 

0001 

001071 

OY 

0006 

060077 

EZ 

0006 

000032 

htkek 

0003 

000251 

IKMa* 

0000 

1 

OOOOQi 

1 RE  AO 

0006 

1 

OOOOOl 

ITAPE 

0006 

000121 

JJL2 

0006 

000156 

JHIN 

0006 

1 

000037 

K 

0006 

I 

000005 

IC««A* 

0Q06 

000012 

KOUT 

0006 

ooootr 

KO 

0006 

0O0O6I 

LOX 

6006 

0602|0 

HTRL 

0006 

000012 

neojt 

0006 

000066 

NPLOt 

600S 

060223 

NVISH 
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HESTAR 


0005 

000211 

N V 1 S K 

OwCJul 

N Y Y 

5031 

0005 

000013 

P A 2 

U0C>5 

OOOC52 

P A 3 

OOC5 

0005 

000070 

PB  1 

3GJ5 

000077 

P B 2 

3005 

0005 

000016 

PM 

00J6 

000023 

PM  I N 

OC  06 

0006 

000265 

Pi  l 

GQi»6 

030266 

P 22 

3001 

0007 

000000 

QX 

0007 

000032 

QXB 

0CC7 

0001 

001116 

RRR 

OCO* 

C00072 

SB 

0036 

0006 

000071 

5N 

0006 

000113 

SSP2 

0005 

0001 

000352 

sxx 

0001 

000170 

SXY 

0001 

0001 

001276 

S 2 X Y 

0001 

05)211 

S2YY 

0003 

0005 

000133 

T I L A 

OOGB 

0001)5 

T I L A A 

0005 

0005 

000176 

T1LBET 

ooos 

000)60 

TILES 

0005 

0006 

000031 

TOT  l E 

0006 

000030 

TOTKE 

0006 

0001 

000522 

T X X 

OOOM 

000610 

TXT 

0001 

0003 

000335 

V BUI 

0006 

000255 

VELCUy 

0001 

0006 

000022 

V V B 

0006 

000023 

V V c 

0006 

0006 

000250 

W T2 

OOOH 

00) >60 

X 

0003 

0001 

000320 

xmass 

0C06 

00021) 

XMAX 

0006 

0006 

000233 

XMV 

QOGl 

000C32 

XP 

OC06 

0001 

000721 

Y 

0003 

030062 

YBUL 

OO'Jl 

0006 

000210 

YMIN 

ccoi 

000361 

YP 

5006 

00101 

!• 

SUBROUTINE  RESTaR 

00103 

2* 

INCLUDE  GEUCMN 

00107 

3# 

INCLUDE  CHAIN 

00107 

C 

00126 

5# 

MTAP-? 

00126 

6# 

C REFRESH  THE  COMMONS 

00127 

?• 

CALL  MMXC0H(HTAP,2> 

00130 

M 

MTAPE-MTAP 

00131 

?• 

HO  K6KAX-KGHAX 

00132 

10* 

IF(KGMAX.GT.NB)  Go  TO  111 

0OI3M 

1 !• 

IREAD-t)  J»QNV*0B 

00 1 35 

12* 

CALL  NTRANCHTAP,2,|REA0,TfMP< 1 .1 

00136 

1 3# 

CALL  NTRANIMTAP,2Z) 

00137 

19* 

IF)  ISRS.LE.O)  CALL  ERROR 

oom 

1 5# 

GO  TO  15? 

00112 

16* 

HI  CONTINUE 

00113 

l 7 • 

DO  H2  K-l.KGMAX 

oom 

1 •• 

CALL  KREADtMTAP , 1 J 

001H7 

I f • 

CALL  NTRANIMTAP ,22) 

00150 

20# 

1F( ISRS.LE.O)  CALL  ERROR 

00152 

2 1 • 

call  krritei itape, i ) 

00153 

22# 

CALL  NTRANC ITAPC.22) 

00151 

23* 

in  isws.le.O)  call  error 

00156 

21* 

CALL  KRRITEIJTAPE.il 

00157 

2S^ 

CALL  NTRANUTaPE.22) 

00 160 

26  • 

IF!  ISRS.LE.O)  Call  error 

00162 

27  • 

112  CONTINUE 

00161 

28* 

CALL  NTRANI 1 T APE » 101 

00165 

29* 

CALL  NTRANIJTAPE.IO) 

03075 A P 
030732  PAR 
00C10A  PB3 

0001 10  PP 
OOlUlO  0 
030O6R  37 
000071  SB  1 
000313  STHaRD 
000101  sty 
000227  T 
0001 67  TILALP 
000322  TILESP 
OOOI23  TSPL 
000551  TYY 
001362  VM 
000021  WO 
OOOCOO  XBUL 
000237  XMIN 
000213  XT* 
00UA50  YDH 
003100  YR 


I ) . ISRS) 


00C5 

000025 

PAZ 

0005 

000031 

P A 1 

0003 

000  1 H 

PBUL 

0005 

000061 

PBZ 

00u6 

000256 

PESCUT 

0006 

oooooo 

PI 

00Q6 

OOOIOl 

PSCALE 

0006 

000107 

PZ 

0006 

0001 1 1 

QH 

0006 

000251 

QRT 

0007 

0001)6 

QYB 

0006 

0001)2 

RHO 

0003 

000250 

SMASS 

0003 

0002S2 

SMOh 

0001 

00013* 

ST  T 

0003 

000121 

SVEl 

0001 

001330 

SZTT 

0001 

00 1 2|2 

SZXX 

0001 

000000 

TEMB 

0001  R 

oooooo 

tehp 

0005 

000 1 12 

TILB 

0005 

000121 

tub* 

ooos 

000151 

T1LEZ 

0006 

000035 

TOTe 

0006 

000011 

TTIHE 

0001 

0006Q6 

TTf 

0003 

000253 

UBUL 

0001 

000266 

V 

0006 

0000*7 

VP 

0006 

000021 

V V A 

0003 

000123 

VZERO 

0006 

000217 

WTl 

0001 

0001 1* 

XDH 

0006 

000231 

XFOT 

0006 

000232 

XMSS 

0006 

000235 

xhsuh 

0006 

000215 

XT2 

0006 

000236 

XVZ 

0006 

0001 |1 

T I ECO 

0006 

000212 

yhax 

0006 

000211 

YT  I 

0006 

000216 

TT  2 

s 

10 

oooooo 

oooooo 

oooooo 

s 

110 

oooooo 

OOOOOO 

Oooooo 

ooboo) 

s 

260 

000005 

000007 
00&007 
OOOo  I 3 
OOOOIS 
000021 
000030 
00003S 
000037 
000037 
00001) 
•00017 
OOOOt) 
fiOflOAO 
0000*1 
000070 
00007S 
000)01 
OOOJOS 
000111 
000)11 
000)20 


RCSTAR 


U> 

lu 

(T> 


00166 

30  • 

00166 

3 1 • 

00167 

32* 

00167 

33* 

00(67 

3H* 

00(67 

35# 

00(67 

36* 

00170 

37* 

00170 

38* 

00(70 

39* 

00(71 

ho* 

00172 

HI* 

00178 

H2* 

00(77 

H3* 

00200 

HH  ♦ 

00201 

H 5 • 

00203 

H 6 • 

00208 

97* 

00205 

H8* 

00207 

H 9 • 

002(1 

50* 

00212 

51* 

002(3 

52* 

0021 8 

53* 

002(5 

5 H • 

002(6 

55* 

00220 

S** 

0022  ( 

57* 

00221 

58* 

00222 

59* 

end  or 

bhdg 

c 

c 

c 

c 

c 

c 


159  CONTINUE 
GO  TO  190 


ENTRY  CDUMP 

GENERATE  A TAPE  DUMP  OF  ThE  CURRENT  CYCLE 

CAUL  MMXCOHIMTAPE , ( ) 

IF(KGMAX*LE»QB)  GO  TO  (82 
DO  180  X*  I iKGMAX 
call  kread  i (tape,  i i 

CALL  NTRANI  (TAPE»22> 

IF1  1SRS.LE.0)  CALL  ERROR 
CALL  KaRITE  I MT  APt » I » 

CALL  NTRAN(MTAPE  >22) 

1F(  ISRS.LEtO)  CALL  ERROR 
183  CONTINUE 

CALL  NTRAN ( t TAPC • I 0 ) 

GO  TO  (88 

182  1READ«gJ»QNV»0B 

call  niranimtape. i . (Read. tempi  i * i , i > . (swsi 
CALL  NTRANIHTAPE .221 
I F ( I 5AS • LE • 0 ) CALL  ERROR 
| 8 H CONTINUE 
190  RETURN 


S 1180 


S 1250 


END 


S 1280 
S 1320 
5 1880 


NO  DIAGNOSTICS, 


SCALC 


000  I 25 
00O|25 
000 | 25 
000125 
000125 
000(25 
000| 25 
000|25 
000(25 
000(25 
000(25 
000(31 
OQO | 35 
000(82 
000(86 
000(52 
000(57 
000 | 63 
000(67 
000|76 
000(76 
000202 
000208 
000205 
000218 
000220 
000226 
000226 
000226 
00025 ( 
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SFOR.S  5CALC 

FOR  SE2C*0’/ I9/7S>-C9  I 3&:bM  (0,1 


sc»tc 


SUBROUTINE  SCALC  ENTRY  r*01NT  30  I 


STORAGE  USED:  CODEC  I)  001966;  DaTA(O)  000329 | Blank  COMMONS)  OsOOOO 
common  blocks; 


0003 

GEL  1 

000  2 H 

0009 

RZ  F 1 

0S36M6 

OOOS 

RZF2 

000  3 3 1 

0006 

RZF3 

000267 

0007 

RZM 

000152 

0010 

calc 

000021 

0011 

JOHN 

021  127 

EXTERNAL  REFERENCES  (BLOCK,  NAME! 

0012  STATE 

0013  SORT 

0019  NNOUS 
0015  NI02* 

09  I 6 NPRT* 

0017  NERR3S 


STORAGE  ASSIGNMENT  (BLOCK,  TYPE,  RELATIVE  LOCATION,  NAME) 


0001 

000S76 

1 COL 

0001 

000103 

1 66q 

0001 

0001 13 

173g 

0001 

000 157 

22*g 

0001 

000270 

250L 

0001 

OOOSl 7 

30L 

0001 

000S39 

«0L 

cool 

00I9|  1 

MOOL 

0031 

000270 

SOL 

0000 

000191 

fl05F 

0000 

000253 

eioF 

0000 

000216 

830F 

OOOH 

000239 

A 

0003 

000917 

ACC 

uoos 

000266 

a*mo 

0011 

R 

012990 

ALAH 

0000 

R 

000073 

A LH2 

0000 

R 

000100 

ALM3 

0000 

R 

000017 

ALPHY 

0000 

R 

000029 

ALPH1 

0000 

R 

000025 

ALPH2 

0000 

R 

000022 

AS 

0006 

000039 

ASQRH 

OOoO 

R 

000119 

A X X 

OOOS 

R 

000291 

AYL01 

0000 

R 

0001  IS 

AYt 

COOO 

R 

000003 

B 

0000 

R 

000002 

BETAZ 

0005 

R 

0002SU 

BETA1 

JOJO 

R 

000106 

BLH3 

ool  1 

R 

013709 

CEN 

0000 

R 

000031 

CNT 

0006 

000025 

CONA 

0000 

R 

C000S2 

OELT 

0000 

R 

000096 

0EP2 

0006 

000010 

DINT 

0006 

000036 

dltph 

0006 

000051 

OLTZ 

0006 

000103 

dlvh 

0000 

R 

000033 

Dp2 

0000 

R 

000039 

DP3 

0000 

R 

000021 

DS 

0000 

R 

000075 

DSB  2 

0000 

R 

000076 

DSB  3 

0000 

R 

OOOIOt 

OS  1 

0000 

R 

000103 

DS3 

0006 

000050 

0TH1N 

0000 

R 

000007 

DTS 

0009 

001092 

OX 

0010 

R 

000009 

OXX 

0010 

R 

000020 

OXY 

0009 

000672 

E 

0010 

00001 1 

EKP 

0006 

R 

000106 

EMU 

0010 

R 

000009 

etth 

0010 

R 

000002 

EXXH 

0010 

R 

000006 

EXYh 

0C06 

000073 

FNl 

0000 

R 

000051 

FST 

0006 

000220 

FXTRA 

0000 

K 

000090 

GAM12 

0000 

R 

C00036 

GAH2 

0030 

R 

000o37 

G AM3 

ccoo 

R 

000061 

GNl  2 

oooc 

R 

000057 

GN2 

0000 

R 

C03U60 

GN3 

0001 

000766 

200L 

0001 

000197 

220G 

0001 

001297 

300L 

0001 

000501 

35L 

0000 

000152 

800F 

OOOO 

0002)2 

60 1 F 

0000 

000297 

8R0F 

OOOO 

000117 

esOF 

0005 

000266 

AKHO 

0009 

R 

000072 

AL 

0000 

R 

000016 

alphx 

OOOO 

R 

oOoozo 

ALPH*Y 

0005 

000205 

AHU 

OOOS 

oOoooo 

ARHO 

OOoO 

R 

0001  16 

AX  Y 

0005 

000007 

AYLO 

00C5 

R 

0C02S7 

B6 

Ooos 

006275 

betaa 

0006 

000070 

CAPA 

0006 

000075 

CAPc 

0006 

000026 

CONL 

0006 

000027 

CONQ 

0003 

000922 

OISP 

0006 

R 

000097 

olth 

0006 

000109 

OLZH 

OOOO 

R 

0000)2 

DPI 

OOOO 

R 

000079 

DSB  1 

OOOO 

R 

000077 

DSBI2 

OOOO 

R 

000109 

OS  1 2 

oooo 

R 

000 1 02 

DS2 

0009 

001126 

OV 

0006 

000263 

OV* 

0009 

001079 

OY 

0010 

R 

oooooi 

OY  Y 

0006 

000105 

EP 

0009 

00IM4 

EQ 

0010 

R 

000003 

EYYH 

O006 

000077 

EZ 

OOOO 

R 

000030 

G 

oooo 

R 

0000)5 

GAH  | 

0003 

000920 

GOT 

oooo 

R 

000056 

GNI 

OOOO 

R 

000015 

GSH 

0006 

000033 

NT1ER 
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0006 

000032 

HTKEK 

0006 

000060 

ICART 

0003 

0C025I 

UMAX 

0007 

000150 

1SRS 

ocoi 

000000 

itemb 

0006 

000121 

JJL2 

0006 

1 

000156 

JMlN 

0006 

000016 

JO 

0006 

I 

000063 

KCOMP 

0006 

COOOll 

KM 

0006 

000016 

KSTOP 

0006 

I 

000262 

L 

0000 

I 

000012 

MH 

0001 

000000 

NBC 

0006 

000007 

NKGEb 

0006 

000053 

nrdnt 

0000 

I 

000005 

NTEST 

0001 

000756 

P 

0005 

000232 

PA* 

0005 

000106 

PB3 

0006 

000020 

PMIN 

001  l 

R 

00I2H 

PSTRN. 

0006 

000266 

PZ2 

0007 

000032 

qxb 

0006 

000112 

RHO 

0006 

R 

000071 

SBl 

0003 

000250 

SMASS 

0006 

0001 13 

SSP2 

0010 

R 

oooon 

ST  TP 

0010 

R 

000006 

sxxz 

ooio 

R 

000013 

STYP 

0001 

R 

00I2H 

SZYY 

0003 

000227 

T 

0000 

R 

000017 

tempb 

0005 

000121 

TILB0 

0000 

R 

oooon 

T J2B 

0011 

R 

021126 

TPLN 

0011 

R 

007730 

TSTRN 

0001 

000522 

TXX 

0003 

000335 

VBUL 

0006 

030022 

V VB 

0300 

R 

003107 

ASB 

0003 

000000 

XBUL 

0006 

000237 

X M 1 N 

0006 

000213 

XT  1 

0001 

000150 

YDH 

0001 

000061 

YP 

0000 

R 

000C67 

HI 

0003 

000230 

IDUMP 

0006 

000261 

INC 

0003 

000233 

1 STOP 

00w6 

OUOOIO 

J 

0006 

000122 

JJL* 

0006 

ObOl | 6 

JMNP1 

0006 

000037 

K 

0006 

000217 

KEQUAs 

0006 

000015 

kntrol 

0006 

000013 

KZ 

0000 

1 

000013 

LI 

0001 

1 

000202 

MPN 

0000 

I 

000055 

NC 

0006 

000065 

NKING 

0006 

000013 

NRESTr 

0006 

000056 

NY  IS 

0035 

000025 

PAZ 

00u3 

OOOIH 

PBUL 

0036 

0G0256 

pescut 

0906 

R 

-330  1 1 3 

PP 

301  1 

R 

032513 

PSTRN3 

0331 

00 10 13 

U 

00u7 

000061 

QY 

0000 

R 

COO  1 1)5 

R I 

0000 

R 

000013 

SB  1 2 

0003 

000252 

SMOM 

0005 

R 

0303|3 

STHARd 

0010 

R 

000007 

STTZ 

0301 

R 

000170 

SXY 

0310 

R 

000017 

SYYZ 

0030 

R 

000062 

si 

0011 

R 

021 121 

TCEN 

0035 

030133 

TILA 

0005 

000176 

TILBET 

OOoO 

R 

OOOC27 

tnalph 

0011 

R 

021125 

TSEN 

001  1 

R 

01 1 171 

TSTRN  H 

0001 

030610 

TXY 

0036 

030255 

velcut 

0036 

930023 

V VC 

OOOO 

R 

3031  1 1 

A SC 

ooci 

030116 

X OH 

0006 

030232 

XMSS 

0036 

000215 

X T2 

0036 

R 

3001  1 1 

YIELD 

0036 

000103 

YR 

0030 

R 

C30U70 

H 2 

C033 

000232 

1EDIT 

0000 

000271 

JNJP* 

3006 

C33252 

ISUBC 

3036 

0031  IS 

JGM1N 

0006 

030120 

J JR  1 

0006 

•03062 

JOLD 

0006 

030257 

KACT 

3036 

I 

00000ft 

kgmax 

OOS6 

000012 

KOUT 

0036 

000017 

KO 

0033 

000226 

LHAX 

0006 

000003 

ktape 

0006 

00005ft 

ncord 

0006 

1 

000006 

NLPR 

0000 

1 

000051 

NS 

0035 

000223 

NVISH 

0005 

000031 

P A 1 

0035 

100061 

PBZ 

3036 

R 

003300 

PI 

JO  30 

K 

9031  12 

PPQH 

O0l  1 

H 

OOJ7S1 

pstrns 

0036 

H 

0001  U 

w007 

0001  U 

qyb 

ooao 

R 

030053 

RN5 

0030 

n 

COOOll 

SB  2 

0006 

000071 

SN 

0000 

* 

000001 

sthcte 

3033 

000121 

SVEL 

00  10 

n 

000015 

5XYP 

ooci 

R 

001330 

SZTT 

0000 

II 

000065 

S 1 2 

3001 

000300 

temb 

0005 

0301  IS 

TILAA 

3035 

000160 

TILES 

0036 

C3033S 

TOTE 

0006 

000(23 

TSPL 

0036 

n 

3CS011 

TTIME 

U001 

00C551 

T Y Y 

0001 

001362 

VM 

u006 

300 J21 

wo 

0006 

320217 

NTI 

0006 

003231 

xfdt 

0006 

00023ft 

XMSUM 

0036 

003236 

XVZ 

OOOC 

H 

003091 

yieldi 

g006 

003211 

YT  I 

0000 

R 

000071 

H3 

0006 

000251 

IHTOP 

0303 

000231 

I PLOT 

0007 

000151 

ISAS 

0030 

1 

00001 1 

JIN 

0006 

000051 

JLIM 

0000 

1 

000010 

JREAD 

0006 

000061 

kanay 

0006 

000052 

KGHXPM 

0006 

000015 

KP 

0006 

000260 

K4 

0006 

000061 

LOX 

0006 

000210 

MTRL 

0006 

I 

000011 

NCYCLE 

0006 

000076 

NP 

0000 

I 

000006 

NSS 

0005 

000211 

NV  1 SR 

0005 

000013 

PA2 

0005 

000070 

PBl 

001  1 

R 

0161(1 

PL  A 

0006 

oooioi 

PSCALE 

0006 

000107 

PZ 

0006 

000251 

QRT 

0010 

0000(6 

QZ 

0001 

R 

001116 

RRR 

0000 

R 

000012 

SB  J 

0000 

R 

000050 

SQR 

001  1 

R 

017660 

STRH 

0001 

R 

000352 

SXX 

0010 

R 

000010 

SXYZ 

0001 

R 

0012(2 

5ZXX 

OOoO 

R 

000063 

S2 

0001 

000000 

TEMP 

0005 

000167 

tilalp 

0005 

000322 

TILESP 

0006 

030031 

TOTIE 

001  1 

H 

005220 

TSTRN1 

0031 

000606 

TTT 

0903 

000253 

UBUL 

0006 

R 

000067 

VP 

000  3 

000123 

VZERO 

0006 

000250 

NT  2 

0001 

000320 

XMASS 

0006 

000233 

XMV 

0001 

000721 

Y 

0006 

000212 

YMAX 

0006 

000216 

YT2 

0300 

l 

000000 

I 

OOOO 

| 

000061 

II 

0006 

000057 

I PLR 

0006 

000001 

ITAPE 

0006 

000 1 6 7 

JJL1 

0006 

1 

000121 

JMAX 

0006 

000002 

JTAPE 

OOOO 

| 

odolio 

KC 

0006 

oOooi 1 

KIN 

0006 

060102 

KPRESS 

5006 

066261 

Kf 

0006 

I 

000263 

M 

6003 

060231 

NAME 

0006 

000012 

NEDJT 

0006 

000066 

NPLOT 

0006 

000001 

NTAPC 

0005 

000301 

NYY 

0305 

000052 

PA3 

6005 

000077 

PB2 

0005 

000016 

PM 

001  1 

R 

OOOOOO 

pstrni 

0006 

060265 

PZl 

0007 

OOOOOO 

QX 

OOOO 

R 

000026 

RALPH 

0006 

000072 

SB 

0311 

R 

015150 

SEN 

OOOO 

R 

000023 

sqra 

0001 

060136 

5TT 

0010 

R 

000012 

SXXP 

0001 

R 

060101 

SYt 

0001 

R 

001276 

SZXY 

OOOO 

R 

000061 

S3 

dooo 

R 

000015 

TEHPA 

0005 

000112 

TILS 

0005 

00015 1 

TILE? 

0306 

000030 

totke 

001  1 

R 

006161 

TSTRN2 

OOOO 

R 

0001 13 

TVP 

0001 

000266 

V 

0006 

000021 

V V A 

OOOO 

R 

000066 

N$  A 

0001 

001160 

X 

0006 

000211 

XmAX 

6001 

060032 

XP 

0003 

000062 

YBUL 

6006 

000210 

YMIN 

G010I 

OOIOI 

00101 


J*  SUBROUTINE  scalc 
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000000 

onoooo 
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00101 

00103 

00107 

00126 

00126 

00126 

00127 

00130 

00130 

00130 

00130 

00130 

00131 
00131 

00131 

00132 

00133 
0013M 
00  1 35 
00I3S 

00135 
00  1 35 

00136 

00137 
00IMI 

oom 

00  1 M2 
00151 

00151 

00152 

00153 
00153 

00155 

00156 

00157 
OOI6M 
00165 
00170 
00172 
00175 
00175 
00175 
00175 
00212 
002(5 
002|5 
00215 
002 1 6 
00217 
00222 
0022M 
0022M 
0022M 
0022  M 


5* 

6* 

7 • 

8 • 
9* 

10* 

» 1 • 
12* 

1 3* 
l M • 
15* 
16* 

1 7 • 
ie* 

1 9 • 
2Q# 

2 l • 
22* 
23# 
2M* 
25* 
26* 
27* 
28* 
29* 
30* 

3 I • 
32* 
33® 
3M* 
35* 
36* 
37* 
38* 
39* 
MO* 
Ml* 
M2* 
M3* 
MM* 
MS* 
M6* 
M 7 • 
M 8 • 
M9  • 
50* 
51* 
52* 
53* 
5M  • 
55* 
56* 
57* 


include:  gelcmn 

INCLUDE  CMaIN 

COMhON/CALC/UX a .DTY  .EX** . L Y ,ET  Th ,E A i m ,Sa */ .ST  TZ  #S<TZ ,EAP ,SX*r , 

, Srrp#STTP,SAYP#*J2,SYYZtDAY 


DIMENSION  aKN0<7) 

COMMON/JOHN/  P5TRN I (Q J • <TR2 1 • 

• .PSTKnM(QJ.kTR21. 

» iTSTRn3(QJ.kTk2) • 

• iCENC<JJvKTR2)  . 

• ,STRH(QJ,KTr2),TCeN.TSEN,TPLR 
EQUIVALENCE  ( AKMO l l ) • A*MO ( t ) 1 


PSTRN2  UJi  *TR2)  • 
TSTRN l ( J J iKTR2 1 • 
TiTKNM(yJ,KTR2) • 
SLNMQJ.KTN2)  • 


PSTRN31QJ.KTR2) 

TSTRN2CQJ.KTR2) 

ALAM1QJ.KTR2) 

PL*(QJ.<TH2) 


DEFINE  CONSTANTS  AND  RETRIEVE;  VALUES  aT  PREVIOUS  TIH£  STEP 


TNI T A L Values 
FINAL  VAlUESS 

stored  values 


of 

OF 

OF 


DEViaTOR  STRESSES 
DEVIATOR  stresses 
bARRED  STRESSES 


I-HPN(LiH) 

Y I ELD  l * A YLD I < I ) 

&ET  AZ»BET  A 1 ( I ) 
b»Bb ( I ) 

- •••SXXZ  ETC  DENOTE 

•••SXXP  ETC  DENOTE 
[ •••SZXX  LTC  denote 

STHCTE-STHARDt I ) 

IF(NTEST*EQ*NCYCLt)  go  to  so 

c NTES:::^CeLfollo-ing  diagnostics  printed  every  cycle 

# RITE(6i850)NSSiDTS,TCENiTSEN,TPL6  i0ir#,  , 

850  F0RHAT(2X,»NS5-* . J 2 . 2 X > * D T S • ’ • l P I E 1 0 • m , 2 X . • TCEN* 1 , I PI  El  3. M. 

| 2 X • •TSEN-*  t IP1E13,M|2X, *TPLW-» • I PIE  1 3* Ml 
NSS*0 

IFCHOOINCYCLE.NLPRI *NE.O)  GO  TQ  250 
C •••DIAGNOSTICS  PRINTED  EVERY  NLP«  CYCLES 

JREAO«JNAX(KCOHP) 

JIN-JHINUCOHP) 

RR1TE  (6.8051  MM . NCTCLE • T T I ME 

805  F0RMAT(2X.|H»I  .I3(5X»*NCYClC"* • lMi5X.#TlHE*f  »|PIEi3*Ml 
DO  220  MM-2.KGMAX 
RR I TE ( 6 i 800 ) 

00  220  LL-2.JREAD 

ft  R I TE  (6.801  » LL.TSTRNKLL.HM)  .PSTRNKLL.MM)  . 
lTSTRN2(LL.MM)  .PSTrN2(LL ,Mm ) ,TSTRN3(LL  *MM)  , 

2P5TRN3(LL.MM)  , TS TrNM ( LL . MH ) , PSTRNM ( LL . MM  1 . 

3ALAM(LL.MM) ,MM 

800  FORMAT  if /.  3X. ’L’. 3x.’EPS|L0Nl  l ’.3X. ’PLASTIC  STR  * I N • . I * • * EPS  ILON  22’, 
IIX, ’PLASTIC  STRAIN*. IX, *EPSIL0N33l,2X, ’PLASTIC  STRAIN’, 2X,  EPSILON 
212* . IX, ’PLASTIC  STRAIN’ ,2X, ’LAMDA’ ,8X, ’M' I 

801  FORMATI  I X , |3  , IP9E»  J,1* , 13) 

DO  500  MM-2.XGMAX 
ARITEI4.830I 

830  FORMaTI/ ,6X, ’L*  .‘•A, ’SHEAR  WORK  ’.  I X COMPRESS  J ON  *jl)RK  • 

|2X, ’PLASTIC  WORK’ , IX, ’FlOa  STRESS’ ,SX  , ’STRAIN* ,Otx, 

2’RALPH’  ,9X,’TNALPh*  .OHX.’N’  I ctr((. 

c •••SXXIL.MIETC.  ARE  STjREO  ARRAYS  JF  DtVIATOR  STRESSES 


L '0000 

onoooo 

onoooo 

ooocoo 

oooooo 

000000 

000009 

090000 

oooooo 
000000 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
000001 
000007 
00001  I 
0000 1 I 
00001  I 
00001  I 
000013 

oooois 

000024 
000024 
000030 
0000<M 
OOOOII 
00001  ** 
OOOOIS 
OOOOIS 
0Q00S2 

oooosi 

OOOOS4 
090103 
000103 
000103 
000113 
oodl 13 
000| I J 
000113 
000|  I 3 
000|17 
000)17 
000117 
000|17 
000 | 17 
000|17 
000|17 
000|S7 
000IS7 
000157 
000157 
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00225 

50  • 

00  500  LL-2»JREaD 

0C0157 

00230 

59* 

1 |*MPN<LL,MM) 

000157 

00231 

60* 

GSH-AYL01  I 1 1 >/SQRT(3* 1*STha«DI 1 1 )•  STRHIlL  .*Ml 

000162 

00231 

61  • 

C 

•••DETERMINE  COMPONENTS  OP  ALPHA 

000 162 

00232 

62* 

aLPHX*SXX(LL.HM)-5ZXX(LL.MM1 

000170 

00233 

63  • 

ALPHY*SYY<LL»HH)-sZYY(LL»MM) 

000173 

0023<< 

69® 

ALPHXY-SXY (LL.MHI-SZXYClL.MMI 

000176 

0023** 

AS® 

c 

•••compute  principle  values  of  alpha  matrix 

000176 

00235 

AA® 

DS».S*{ alphx-alphyi 

000201 

00236 

A 7 • 

AS-.S*  c alphx  + alphy i 

000204 

00237 

60  • 

S0KA»S«RT(0S»«2*AlPHXY»»2) 

000207 

00240 

69* 

ALPH1-AS-SQRA 

000217 

00241 

70* 

ALPH2»AS*S(JRA 

000221 

00242 

71* 

RALPH-SQRT ( ALPHI*»2*ALPh2»»2) 

000224 

00243 

72* 

TNALPH»ALPH2/ALPHl 

000234 

00244 

73* 

<*R|TEI6»840)LL*SEnILL»MmI ,CE>*(LL,MM) ,PL*(lLi«hI  , 

000237 

00244 

79® 

IGSH.STRhILLiMM) , RaLPH, TNALPH, MM 

000237 

00257 

75® 

500 

CONTINUE 

000270 

00262 

7A® 

890 

FORMAT <4X  , 13, IP7E|4.4 , In ) 

000270 

00263 

77  • 

250 

CONTINUE 

000270 

00264 

78  • 

50 

CONT 1 NUE 

000270 

00265 

7 9 • 

CALL  STATE 

000270 

00266 

80  • 

G»Y1ELD/SQKT«3.|*STHCTE»StRH«L»M» 

000271 

00267 

B|® 

CNT»2.»EMU 

000306 

00267 

02* 

c 

•••CALCULATE  OEVIATOR  STRAIN  RATE  INCREMENTS 

000306 

00270 

03  • 

DP  1 - « 2.«EXXM-ETYH-ETTH)/3. 

00031 1 

00271 

89® 

0P2«( 2.»EYYH-EXXH-ETTH) /3. 

000317 

00272 

85® 

DP3*l2.»ETTH-EXXH-EYYh>/3. 

000325 

00273 

86  • 

GAMI-CNT»DPI 

000333 

00274 

87® 

6AM2*CNT»0P2 

000335 

00275 

80  • 

GAM3-CNT»0P3 

000337 

00276 

89® 

GAM12«EMU«EXYH 

000341 

00276 

9Q  • 

c 

•••COMPUTE  TENTATIVE  STRESSES  ASSUMING  elastic  FLO* 

000341 

00277 

9 l • 

Sbl»SZXX(L.M)*GAM|+DXX 

000344 

00300 

92® 

S02»SZYY IL.M)+GAM2*0YY 

000353 

00301 

93® 

SB3-SZTTIL.M)*GAMJ 

000357 

00302 

99* 

SBI2*SZXY<L.MJ*G*HI2*DXY 

000362 

00303 

95® 

TJ2B«SBI«»2*SB2»*2*SB3»«2*2»»SB12»»2 

000366 

00304 

9 A® 

IF(TJ2B.LT.2.«G»*2l<iO  To  3oO 

000377 

00306 

97® 

TEMPA»(SZXX«L»M1»uP|*SZyY(i.,M)  »0P2 

000405 

00306 

98® 

1 ♦ 5 Z T T 1 L , M 1 •0P3*SZXY (L*M) *EXYHI /DlTM 

000*405 

00307 

99® 

UEP2* I DPI ••2*DP2»»2*0P3»«2*.5«£XYh»»2 1 /DLTM»«2 

000422 

00310 

100® 

TEMPb»2.»DEP2-(TEmPA/GI *«2 

000*442 

003|  1 

101  • 

IF  I TEMPB«LE.O. )G0  TO  30 

000447 

003 1 3 

102® 

SQR»SORT I TEMPBI 

000*451 

003|4 

103® 

F ST* • 05 

000455 

00314 

1 09« 

c 

•••DETERMINE  TIME  STEP  for  subcycling 

000*455 

003  1 5 

105® 

delt-g»fst/emu/sor 

0004S7 

00316 

106® 

RNS»I ./ 1 AINTIDLTH/DELT ) *1,1 

000463 

003|7 

107® 

IF(NS,LT,NSS)  GO  TO  35 

000472 

0032 1 

1 06  • 

N S S * N S 

000476 

00321 

109® 

c 

•••  ns  is  maximum  numbfr  of  subcycles  i n any  cycle 

000476 

00322 

1 10® 

3b 

CONTINUE 

000501 

00323 

111® 

NS* 1 NT (DLTH/OELT )*l 

000501 

3332. 

l 1 2 • 

00325 

l 1 3* 

09325 

in* 

C 

00325 

l 1 5 • 

c 

00325 

1 16* 

c 

003  2 6 

ll7^ 

3C 

0033. 

l l A* 

81  j 

00335 

1 1 9* 

00336 

I 2C* 

00337 

121  • 

SC 

003.0 

12  2* 

G03.0 

123* 

c 

003.0 

l 2 H • 

c 

003.1 

|25» 

003.2 

126* 

003.3 

127* 

003.. 

128* 

003.. 

l 2 9 • 

c 

003.5 

130* 

003.6 

1 3 1 • 

003.7 

132* 

00350 

1 3 3* 

00351 

1 3H* 

00352 

135* 

00353 

1 36  • 

&» 

0035. 

137* 

a 

n> 

00355 

1 38  • 

100 

00355 

139* 

c 

00 

cn 

00356 

no* 

00357 

nn 

00357 

IH2* 

c 

00360 

n3* 

00361 

11H» 

00362 

ns* 

00363 

n 6 • 

0036. 

1H7« 

0036. 

|H8* 

c 

00365 

|H9» 

00366 

150* 

00367 

I & I • 

00370 

1S2* 

00371 

IB3» 

00372 

I S H • 

00373 

1SS* 

0037. 

1 S6« 

00375 

1 B7  • 

00376 

1 S8  • 

00377 

1 S9  • 

00.00 

UO* 

00.01 

1M* 

00.02 

162» 

00. C3 

163* 

oo.o. 

I 6M* 

00.05 

\6S* 

DTS*L/L  th< 

laU  TO  H£ 


K^  S 

• • • C urt 
•• • InlS 


H L rt  E C '■ • t 1 • ! T » 

15  T H£  On  l T 


PC  b 


S rr«IOw  TO  S . D C * C L * N 3 


Pk  J NT  8 10  . TCMPo  |L ,H .NCYCLE 
FORMAT!  1 H 1 » 5 X • • T E H P B * • « l p I L . <•  * l <a  ) 

DTS« • I *DLTH 
NS*  1 o 
CONT  INwiE. 

•••DETERMINE  the  four  strain  increments 
•••IN  Each  SUBCYCLE 
GN  | *RNS*GAM I 
GN2*RNS»GAMZ 
GN3*RN5*GAM3 
GN|2*RN5#GAMI2 

• ••iNillALlZE  S 1 *t  t j S V A | A 3 L t 
Sb 1 * 5 Z A x IL  .HI 
5B2*SZY Y IL  iH) 

S83*SZTT  <L  ,M> 

SB12*SZXY(L.M) 

S 1 *SXXZ 
S2*SY YZ 
Si-STTZ 
SI2-SXYZ 
CONTINUE 

•••start  of  subcycling 

NC*NC ♦ l „ c 

ttSA*(SBl*DPI^SB2*OP2^SB3»DP3^Sbl2*£XYH)*RNS 

•••NOTE  THAT  EXYH/OLTH  IS  T*ICE  THE  STkAIN  KATu  INCREMENT 

G-YIELD/SQRT13. >*SThCTE^StRH<L,M) 

Hi -|  ./(  l^»S*B/EllU)/G/OTS 

H2*(EMU*»5«B)#DTS/G 

H3*.5*B»DTS/U 

•••COMPUTE  second  invariant  of  PLASTIC  STRAIN  rate 
5TRH(LiMI*STRH(L»H) ♦•S*AL»dTS 
ALH2-AL»H2 
DSBl*GN|-ALH2*5Dl 
05B2*GN2-ALH2»Sd2 
DSB3*GN3-ALH2»SB3 
0SB12*GN12*ALH2*Sb12 
ALH3* AL  ®H3 
DS1-DSBI^ALH3»SD1 
DS2*DSa2*ALM3*S82 
DS3»05B3*ALH3*SD3 
0Sl2*DSBl2^ALH3*Sbl2 
Sti I *SB 1 ♦ DSB 1 
5B2*5B2*DSB2 
SB3*SR3»DSB3 
SBI 2*Sdl 2+DSBl 2 
S I *S  1 ♦DS  I 
S2  *S2 ♦ DS2 


n^Qt i j 

2~0 i i b 

"'"Oh l S 

r~c9: s 

JCOblb 

000517 

000526 

OO0S26 

000531 

OO0S3. 

00053. 

00053. 

00^53. 

000535 

0005.0 
OO0S.3 

0005.6 
00C5.6 
00055. 
000557 
000561 
000563 
000565 
000567 
000571 
000573 
000576 
000576 
000576 
000600 
000600 
000615 
000633 
0006.5 
000652 
000656 
000656 
000660 
00066. 
000667 
000672 
000676 
000702 
000706 
000711 
00071. 
000720 
00072. 
000730 
000733 
000736 

0007.1 
0007.. 

0007.7 
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SCALC 


00*406 

166* 

S3*S3*0S3 

000752 

00*407 

167* 

S12-SI2+DSI2 

0007  SS 

OOMO 

1 60* 

1 F I NC«  GT • NS ) CiO  TO  200 

000740 

C0M12 

169* 

GO  TO  100 

00076*1 

00*4|2 

170* 

C FORCE  STRESSES  ONTO  YIELD  SURFACE 

00076*1 

00*413 

171* 

200  RRR<L»M)»SQRT(.5»| SB  1 • »2  + sb2» •2  + S83* »2 J *Sb 1 2 • • 2 l /<; 

000744 

OQ*4l*4 

172* 

R|*l  ./RRR(LtH) 

00 10 1 *1 

00*415 

1 73* 

SB1«RI*SBI 

001022 

00*4|6 

1 7*4* 

SB2«R I »SB2 

001021 

OG*U7 

175* 

SB3«R I *SB3 

001027 

00*420 

1 76* 

SB  1 2>R 1 *SB  1 2 

001032 

00*42  1 

177* 

BLH3».S«B*DLTH*AL/G 

00103$ 

00*422 

1 78* 

SXXP»SXXZ*SBl-SZXx IL.HI *BLh3»S81 

001013 

00*423 

179* 

STYP»STYZ*SB2-SZYyIL,H) ♦BLH»»S82 

OOlOSO 

00*42*4 

180* 

STTP«STTZ*SB3-SZTT  (L  »HUBLM3«SB3 

00I0S7 

00*425 

I8|# 

SXYP»SXYZ*SB12-SZaY(L ,M)»BLH3»SB12 

001066 

00*426 

182* 

SZ  X X < L *M I «SBI 

00 1 07S 

00*427 

183* 

SZYY(LiMl*SB2 

001077 

00*430 

18*4* 

SZTTIL.MI-SB3 

001 101 

00*431 

185* 

SZXYIL.MI-SBI2 

001 1 1 1 

00*432 

186* 

WSB».S»OTS« AL/G 

00U14 

00*433 

187* 

XC-KCOMP 

001 123 

00*43*4 

188* 

PSTRNI (L.KCI-PSTRnI ( L » Kc ) ♦WSB» SB l 

001 12S 

00*435 

1 89* 

PSTRN2(LtKC)>PSTRN2(L.KCI*i»SB»SB2 

001 132 

00*436 

190* 

PSTRN3(L»KC)*PSTRn3»LiKcI*wSB*SB3 

001134 

00*437 

I 9 | • 

PSTRN*)  IL  »KC)*PSTRn*HL  i*C)  ♦WSB»SB12 

001(12 

00*4  *40 

192* 

6SC»1 ./<CNT> 

001116 

00*4  *4  1 

193* 

ALAM ( L »KC ) «AL 

001 t & t 

00*4*42 

1 9*4* 

PPQH»PP*QH 

001  I S3 

00*4*43 

195* 

CEN(L,N)*C£N(LiHI-PPGH»(£XXH*EYYH*ETTH)»RNS 

001 IS4 

00*4*4*4 

196* 

SENIL»H)“StN(L»Ml*Sl»EXxH+S2»EYYM*S3*E ttn 

001 |70 

00*4*4*4 

197* 

|*SI2«EXYH 

001 (70 

00*4*45 

198* 

PLWlL»rt)"PLWIL«M)+ISl»SBl*S2»SB2*S3»SB3 

00120S 

00*4*45 

1 99* 

I*2.»SI2»SBI2I«»SB 

001205 

00*4*46 

200  • 

TPL«pTPL**I  VP  • 3. /pi  ( |)  ) ♦PL*  IL  .Ml 

001221 

00*4*47 

201  • 

TSEN-TSEN*(VP»3,/PMI ) 1 • SEN t L . M I 

001232 

00*450 

202* 

TVP»TVP*VP»3./PJ I t ) 

001236 

00*»5i 

203* 

ICEN"TCEN*lVP*3./f’I  III  1 •CENlL.H) 

001211 

00*452 

20*4* 

GO  TO  ROD 

001215 

00*452 

205* 

C COME  HERE  WHEN  ELASTIC 

001215 

00*453 

206* 

300  CONTINUE 

001217 

00*45*4 

207* 

RRR<L.M)-S<5RT(.5»TJ2b)/g 

601217 

00*455 

208* 

AXX"GAH 1 *DXX 

001243 

00*456 

209* 

A YT*GAM2*0TY 

00(264 

00*457 

210* 

AX Y"6AM 1 2*0X Y 

001271 

00*460 

211* 

SXXP-SXXZ+AXX 

001277 

00*461 

212* 

SZXX(L.M)«5ZXX(LiMI*AXX 

001301 

00*462 

213* 

syyp-syyz*ayt 

001305 

00*463 

21*4* 

SZYYCL,M)«SZYY<Ltrtl*AYT 

00(310 

00*46*4 

215* 

ST  TP*S  r T Z + GAM3 

001314 

00*465 

216* 

S2TTCL  »HI«SZTTCt.h)+GAN3 

001321 

00*466 

217* 

SXYP«SXYZ+AXY 

001327 

CO*467 

218* 

SZXY(L.Nl»5ZXY(L*Hl*AXY 

001332 

00*470 

219* 

KC»xcortP 

001310 
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Scacc 


00*471 

22  0* 

00*472 

22  1 • 

00*473 

2 2 2* 

00*47** 

223* 

00H75 

22*4  • 

00*476 

225  • 

00*477 

2 26* 

00500 

227* 

00501 

228* 

00502 

229* 

00503 

230* 

0050*4 

23  1 • 

00505 

232® 

SEN(L»M)*5LNCLiI1)*SaaP®DpMSYYP®LP2®SMP«Iip3*SXYP*EXYN 

PPQH*PP^WH 

CEN(L|h)*CEN<L»M>-PPOH®<E»XH*EYYh*ETTHl 

TCEN*TCENMVpO./Pim)*CEfHL.M) 

TSEW»TbEN^CVP*3*/Pl  ( I I ) •SEN  l L t -1  > 

T VP«TVP >VP*3  • /P  Ml) 

MGC  CONTINUE 

TST«NML.KC)-TSTKnI(L,KC)^EXXH 

TSTRN2(LiKC)»TSTRNZ(L|Kc)^ETTH 

tstrn3(l.kc  >-tstrn3(l,kc  metth 

TSTRN*)  ILiKC  J-TSTRnH  IL  «KC)  ♦.^•EXYh 

RETURN 

END 


OCI3H2 
OOI362 
001365 
001373 
00 1 NO 1 
00U05 

00  IN! 1 
001 N I I 

001  Hi  6 
00 1 M2  1 

00M21 
00 1 M 30 
00M65 


end  or  compilation; 


NO  DIAGNOSTICS. 


WHDG 


Sfc  T 
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SlT 


yroR,s  set 

FOR  $E2C-09/19/7S-09:36:ai  (0»> 


subroutine  set  entry  point  ooonz 


STORAGE  USED:  CODE(i)  OQOIMHj  OaTA(O)  UOOOOH j BLANK  COMMON(2)  OOOOOO 


COMMON  blocks: 


0003 

GELl 

000H2M 

0001 

RZF  l 

0B36H6 

0005 

RZF2 

000331 

0004 

RZF3 

000267 

0007 

RZF1 

0001S2 

0010 

6NRT 

0001  M2 

EXTERNAL  REFERENCES  (BLOCK,  NAME) 
OCll  NERKJS 


toraoe 

ASSIGNMENT  (BLOCK,  TYPE 

, RlLATIVE  LOCATION,  HAME1 

OOOS  R 

000231 

A 

0003 

0001 | 7 

ACC 

0005 

000266 

AKMO 

000b 

OOOOOO 

A K HO 

0006 

000031 

ASQRh 

oouS 

000007 

AYLO 

ooos 

000275 

BETAA 

ooos 

000250 

BET  A 1 

0006 

000070 

CAPA 

0006 

000026 

CONL 

0006 

000022 

CONQ 

0010 

000102 

OELR 

0006 

000010 

DINT 

0003 

000122 

DtSP 

0006 

30C012 

olth 

0006 

000051 

DLT2 

3006 

030103 

DLVH 

0006 

000101 

olzh 

0006 

000253 

D VP 

0001 

R 

ooia'12 

DX 

uOjh  n 

301071 

0 Y 

0006 

000 1 os 

EP 

0001 

R 

001111 

EG 

OOU6 

030077 

E Z 

0003 

000120 

GOT 

0006 

000033 

HTIEk 

0C36 

OOul'32 

H T K E K 

0003 

000232 

1ED1T 

0006 

000251 

1HT0P 

0010 

C0C072 

IK 

0000 

OOOOOO 

1NJP* 

0010 

000101 

INTVS 

00  33 

033231 

I PLOT 

0003 

000233 

1 S TOP 

0306 

C00252 

1SUBC 

0010 

300127 

I SUB  1 

0010 

000132 

1SUB7 

G0G7 

000151 

ISAS 

0036 

030001 

I T APE 

0010 

000007 

JGEB 

0C10 

300070 

jgmax 

OG  06 

0001 15 

jgmih 

0006 

000122 

JJL* 

0036 

C001 20 

J JR  1 

00U6 

300051 

JL1M 

0006 

000156 

JM1N 

0010 

COO  1 3 3 

JM1NG 

0006 

0001  16 

JMNP1 

0006 

030002 

JT  APE 

0006 

000016 

JO 

0006 

030037 

K 

0010  1 

000100 

KC 

0006 

000063 

KCOMP 

0036 

000217 

KEQUAS 

0006 

000011 

KIN 

0006 

030011 

KM 

0010 

00006S 

KM  AX 

0006 

000012 

KOUT 

0006 

000015 

KP 

0006 

000102 

KPRESS 

0006 

000017 

KC 

0006 

000260 

K6 

0006 

000261 

K* 

0006 

000061 

LOX 

0010 

OOOIOl 

LRC 

0026 

000263 

M 

0006 

000210 

MTRL 

0303 

000231 

NAME 

033H 

OOOOOO 

NBC 

0006 

000011 

NCYCLE 

0006 

000012 

NED  1 r 

0010 

030071 

N JGEB 

0006 

000006 

NLPR 

0006 

000376 

NP 

3036 

LOO1166 

nplot 

0006 

000013 

NHESTR 

0006 

OoOuui 

NTAPL 

3006 

0CC056 

nv  I S 

0005 

000301 

nYY 

00J1 

K 

000756 

p 

OOjS 

030025 

PAZ 

0005 

3C0GS2 

P A 3 

00J5 

003232 

PAM 

GCJ3 

C * ■ »,  1 1 1 

PBUL 

0005 

000205 

AHU 

0005 

000211 

AtLDl 

0006 

000075 

CAPC 

0010 

000056 

DElX 

0010 

000077 

oltha 

0006 

000050 

OTMIN 

OOOM  R 

000672 

E 

0006 

000073 

FNI 

O0q6 

000060 

ICART 

0003 

00025 1 

IKMAX 

0006 

OOOOS7 

1PLR 

0010 

000130 

ISUB2 

OOCH 

OOOOOO 

ITEHB 

0006 

0001 17 

JJLl 

0006 

000121 

JH  A X 

0006 

000062 

JOLO 

0006 

000257 

KACT 

0006 

000005 

KGHAX 

0010 

000066 

KM  1 N 

0006 

00001* 

K5T0P 

0006 

000262 

L 

OOOH 

000202 

MPN 

0010 

000116 

NCONE 

0006 

000007 

NKGE8 

0010 

000067 

NR  C 

0005 

000223 

NVISM 

0005 

000031 

P A 1 

0005 

000061 

PBZ 

0010 

000107 

ARCF 

0005 

000257 

BB 

0006 

000025 

CONA 

Ooio 

000102 

OELt 

0006 

000036 

OUTPH 

0001  R 

001126 

OV 

0006 

000106 

EMU 

6006 

000220 

FXTRA 

0003 

000230 

ioump 

S006 

000261 

INC 

0OO7 

000150 

ISRS 

0010 

000131 

1SUB3 

0006  1 

000010 

J 

0006 

000121 

JJL2 

0010 

000117 

JMAX6 

OOIO 

OOOOOO 

JREG 

0006 

000061 

ka»aT 

0006 

000052 

KfiHXPl 

0006 

000015 

KNTROi. 

0006 

000013 

KZ 

0003 

000226 

LHAX 

0006 

000003 

HTAPB 

0006 

000055 

NCORO 

0006 

000065 

NKIN5 

0006 

000053 

NRO«T 

OOOS 

0002]1 

NV1SR 

0305 

000013 

Pa* 

0305 

000070 

pbi 
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0035 

0C0077 

PB* 

0004 

000020 

PM  I N 

0004 

000244 

PZ2 

0007 

000032 

QXB 

0010 

000124 

RMAX 

0003 

000250 

SMASS 

000*1 

R 

000H34 

STT 

OOOH 

R 

301330 

S2TT 

OOOH 

OOOOOO 

TEMB 

0005 

000147 

TILALP 

0005 

000322 

TILESP 

0004 

000123 

TSPL 

OOOH 

R 

00055H 

TYY 

OOOH 

R 

001342 

Vh 

0004 

00002H 

WO 

0003 

OOOOOO 

xbul 

0004 

00023H 

XFOT 

0004 

000235 

Xrt  SUM 

0004 

0002H3 

XTl 

0003 

000042 

YBUL 

0004 

0001 1H 

YIELD 

0010 

000124 

YPLRMX 

OOIOI 

1 * 

00103 

2 • 

00107 

3® 

00124 

M® 

00132 

5® 

00133 

4® 

0013H 

7® 

00135 

a® 

00134 

9® 

00137 

10* 

00 1 HO 

II® 

00  1 H 1 

12® 

00IH2 

1 3® 

OOIH3 

IM® 

001HH 

15® 

OOIHS 

16® 

00  1 H4 

17® 

00IH7 

IB® 

00150 

19® 

00151 

20® 

00152 

21® 

00153 

22® 

00 1 5H 

23® 

001 55 

29® 

00154 

2S® 

00IS7 

26® 

00140 

27® 

00141 

28® 

03C5 

COOlaA 

PB3 

00  J A 

0001  10 

PP 

OOCiH 

R 

cotoio 

Q 

0007 

00004H 

5JY 

0010 

00007  H 

RMIN 

0003 

000252 

SMOM 

0303 

000H2 1 

SVEL 

00  JH 

R 

001212 

SZXX 

OOOH 

OOOOOO 

TEMP 

0005 

0001H2 

T I LB 

0005 

000151 

TILEZ 

0004 

OOOOHH 

TTIME 

0003 

000253 

UBUL 

0004 

000047 

VP 

0003 

000H23 

VZERO 

0310 

000024 

XCHAX 

OOOH 

R 

000320 

XMASS 

0004 

000233 

XMV 

0004 

0002H5 

XT2 

0010 

OOOOH* 

ychax 

0004 

CQ02H2 

ymax 

0004 

OUOIOO 

YR 

SUBROUTINE  SET 

include  gelchn 
include  CHAIN 
include  c«en 
qij.kcmo. 

A I J • KC ) aO  « 
VIJ.KCI-O. 
XMASSt  J.KCMO. 
SXXI J,KC l-O. 
SVY I J »KC  • a0» 

ST  T • J • ICC  ) "0» 
TXXI  J«KC t >0* 
TYYIJ.KC>aO« 
TTTCJ.KC)«0. 

TX Y I J • KC I "0* 
SKY  I J t KC  1 *0 • 

PI JtKC>aO» 
DXIJtKCMO. 

OYI J.KCMO. 

DVI J.KCMO. 

El J,KC)aO. 
SZXXl j,KC)aO. 
SZYYt J.KCI-O. 
SZX Y I J i KC I *0 • 
SZTTI J,KC)»0» 
VMl J*KCI“0. 

EQ I J i KC ) *0 • 
RETURN 


SET 


U Ga4 

300254 

PESCUT 

GO  J4 

CQClOl 

PSCALE 

JCU‘6 

3401 1 1 

QH 

jOQ7 

3001 14 

QYB 

OOuM 

00MH4 

RRR 

J0j4 

00007H 

SN 

OOOM 

R 

000352 

sxx 

OOOM 

R 

00 1 2 74 

SZXY 

0010 

000014 

THETA 

0005 

000I2H 

TILBB 

0004 

000035 

TOTE 

OOOM 

R 

000404 

TTT 

OOOM 

R 

0002*4 

V 

0004 

000021 

V V A 

0004 

00Q2H7 

*TI 

0010 

000014 

XCH  I N 

0004 

0002HI 

XHAX 

OOOM 

000032 

XP 

0010 

000105 

XVlNT 

0010 

000034 

YCM  J N 

0004 

9 3 0 2 H 0 

YMIN 

0004 

0002HH 

YTI 

0004 

003000 

PI 

0334 

300107 

PZ 

0004 

00025H 

QRT 

0010 

00007* 

RCALC 

0004 

000072 

SB 

000* 

000113 

SSP2 

OOOH 

R 

000H70 

SXY 

OOo** 

R 

00I2HR 

SZYY 

0005 

000133 

T l L A 

0005 

00017* 

TILBET 

0004 

000031 

TOT  I E 

OOOH 

R 

000522 

T XX 

0003 

000335 

VBUL 

0004 

000022 

VVB 

0004 

000250 

WT2 

00(0 

000075 

XCNTR 

0004 

000237 

xmin 

0010 

000073 

XPLRHN 

0004 

000234 

xvz 

0010 

000074 

YCNTR 

OOOH 

00004H 

YP 

0004 

0002H* 

YT2 

0035 

0000(4 

PM 

0004 

000245 

PZI 

0007 

OOOOOO 

QX 

0004 

O0Ol 1 2 

RHO 

0304 

000071 

SB  1 

0005 

000313 

stha«d 

6ooh 

D O0CHOH 

SYY 

0003 

000227 

T 

0005 

000115 

TILAA 

0005 

000140 

TILES 

0004 

000030 

totkc 

OOOH 

n O004H0 

TXT 

&004 

000255 

velcut 

0004 

00002) 

vvc 

OOOH 

001140 

X 

OOOH 

000 1 | 4 

XOH 

0004 

000232 

XMSS 

0010 

000103 

XPLRHX 

OOOH 

00072R 

Y 

OOOH 

000150 

TOM 

0010 

OO0O7H 

yplrhn 

0010 

000104 

YVINT 

000000 

000000 

000000 

oooooo 

F 30  OOOOOO 

F HO  000003 

F 50  000007 

F 70  0000!) 

F 80  000017 

F *0  000023 

F 100  000027 

F 120  000033 

F 130  000037 

F MO  OOOOH3 

0000*17 
00005) 
F MO  000057 

000043 
000047 
00007) 
006077 
000|03 
000107 
000113 
Oofil I 7 

000 1 2 3 
000|27 
F 210  000|33 


end  OF  COMPILATION;  no  DIAGNOSTICS 


o 

o 

o 


o 

M 


KD 

o 

x 

a 
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BFOR.S  STATE 

FOR  SE2C-0’/ I ?/7b-t»: 36:03  (O.f 


STATE 


SUBROOT  I NE  STATE  ENTRY  POINT  o03c«*» 

STORAGE  USED;  CODE(I)  000071;  DATAlb)  uOOOH;  BLANK  C0NM0N(2)  000000 


COMMON 

BLOCKS; 

0003 

GEL  l 

000121 

0001 

RZFI 

QS36H6 

0005 

RZF2 

000331 

0006 

RZF3 

000267 

0007 

RZFI 

000 1 S 2 

EXTERNAL  REFERENCES  CBLOCK,  NAME) 
0010  NERR3S 


(BLOCK. 


type,  relative  location,  name) 


STORAGE  ASSIGNMENT 

0001  000231  A 

0006  000031  asorm 

0005  000250  BETA  I 

0004  000027  CONQ 

0006  000051  OLTZ 

0006  R 000253  DVP 

0006  R 000105  EP 

0003  000120  GOT 

0003  000232  1E0IT 

0000  00030S  INJPS 

0006  000252  ISUBC 

0006  000115  JG"1N 

0006  000051  JLIH 

0006  000002  JT APE 

0006  000063  KCOMP 

0006  OOOOH  KM 

0006  000016  kSTOP 

0006  000262  t 

0006  000003  HTAPE 

0006  000011  NCYCLE 

0006  000076  NP 

0006  900056  NVIS 

0005  000025  pAZ 

0003  000111  pbul 

0006  R 000256  peSCUT 

0006  OOOIOl  PSCALE 

0004  R OCOItl  OH 

0007  000116  qyB 

0003  000250  SMASS 


000H7  ACC 
000007  AYLD 
000070  CAPA 
000010  DINT 
R 000103  DLVH 
001012  DX 
0001  001111  EO 

0006  000033  HT1EK 

00 J6  000251  IHTOP 

0003  000231  1PL0T 

0007  000151  ISAS 

0006  000117  JJLl 

0006  000121  UMAX 

0006  000016  JO 

0006  000217  KEOUAS 

00U6  000015  KNTROL 

00J6  | 000013  KZ 

0003  000226  LMAX 

0006  0002 1 0 MTRL 

0006  000012  NEDIT 

0006  000066  NPLOT 

0005  000223  NVISn 

0005  R 000031  P A I 

0005  000061  PBZ 

0006  OOOOCO  PI 

0006  R 000 IC7  Pi 

0006  000251  «RT 

0306  000 I I 2 RhO 

00w3  000252  ShOM 


0005 

000266 

AKHO 

0005 

000211 

AYLDI 

0006 

0C037t 

C ARC 

0003 

000122 

OISP 

3C06  R 

OOOIOl 

DLZH 

oooi 

001071 

DY 

0006  R 

000077 

EZ 

0006 

000032 

HTKEK 

3003 

000251 

IKHaX 

0006 

000057 

IPLR 

3006 

OOOOOi 

1 TAPE 

0006 

000121 

JJL2 

3006 

000156 

JHIN 

0006 

000037 

K 

0006 

000003 

kgmax 

3006 

000012 

KOUT 

0006 

00001 7 

KO 

0006 

000061 

LOX 

0003 

000231 

NAME 

0006 

000007 

NKGEB 

0006 

000053 

NRORT 

0005 

000211 

NVISR 

0005 

000013 

PA* 

0005 

000070 

PBl 

0005 

0000 1 6 

PM 

0006 

000263 

PZI 

0Gu7 

090000 

QX 

0001 

OCI 116 

RRR 

0036 

3 05o7 1 

SN 

0005 

R 

000205 

AmU 

0005 

000257 

BB 

0006 

000025 

CONA 

0006 

000017 

OLTM 

0006 

OOOOSO 

OTMIN 

0001 

000672 

E 

0006 

000073 

fni 

0006 

000060 

icart 

0006 

000261 

INC 

0007 

OOOISO 

ISRS 

0001 

000000 

ITEMB 

0006 

000122 

JJL3 

0006 

0001)6 

JMNP1 

0006 

000257 

kact 

0006 

000052 

KGMXP1 

OOQ6 

000015 

KP 

0006 

000260 

K6 

0006 

000263 

H 

0001 

000000 

NBC 

0006 

000065 

nking 

0006 

000013 

NRE5TR 

0005 

000301 

NY  Y 

0005 

000052 

PA3 

0005 

000077 

P82 

0006 

R 

000020 

PM  1 N 

0006 

000266 

PZ2 

0007 

000032 

QXB 

0006 

000072 

SB 

0006 

R 

000113 

SSP2 

0005 

R 

000000 

ARHO 

0005 

000275 

BETAA 

6006 

O00O26 

CONL 

0006 

060036 

DLTPH 

0001 

001126 

ov 

6006 

000106 

EMU 

0006 

000220 

EXTRA 

0003 

000230 

IOUMP 

6000 

1 

qOoooo 

INOX 

0003 

060233 

iSTOP 

0006 

1 

000010 

J 

0006 

000120 

0006 

000062 

JOLO 

0006 

000061 

ka«ay 

0006 

000011 

K]N 

6006 

o00IO2 

KPRtSS 

6006 

060261 

Kf 

6001 

I 

060202 

HPN 

6006 

000055 

NCORD 

0006 

000006 

NLPR 

$0Q6 

OOOOOI 

NT  APE 

0001 

000756 

P 

0005 

000232 

Pa  1 

0005 

000106 

P»3 

0006 

R 

OOOIIO 

PP 

0001 

001010 

Q 

6007 

060041 

QY 

0006 

000671 

SB  I 

0005 

060313 

STH*RD 

00  j3 

0005 
0036 

0006 
0006 
0031 
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state 


0004 

000436 

ST  T 

0004 

001330 

SZTT 

0004 

000000 

TfcMB 

ooos 

COOl 42 

T1LB 

0005 

000151 

T1LEZ 

0006 

000044 

TT1ME 

0003 

000253 

UBUL 

0006 

R 000067 

VP 

0003 

000423 

VZERO 

0003 

000000 

XBUL 

0006 

000237 

XMIN 

0000 

R 000002 

XPAl 

0003 

000062 

YBUL 

0004 

000064 

YP 

00101 

1* 

00103 

2 • 

00107 

3« 

00107 

4« 

C 

00107 

5 • 

c 

00126 

6 • 

1C 

00127 

7 • 

00130 

8* 

00131 

?• 

00132 

10* 

00134 

1 1 • 

00135 

12* 

00135 

13* 

c 

00136 

14* 

00140 

15* 

00142 

16* 

26C 

00143 

17* 

0GC3 

000121 

SVEL 

0031 

COO 352 

sxx 

0004 

00  j4 

00 I 2 | 2 

szxx 

U0*1 

CO l 276 

szxr 

0004 

30U  4 

OJCOGU 

TEMP 

0005 

000133 

T IUA 

0005 

0035 

000121 

TILBB 

0005 

000)76 

TILQET 

0005 

0006 

0D003S 

TOTE 

OOU  A 

000031 

TOT  I E 

0006 

0C04 

OOOAqA 

TTT 

0001 

0C052I 

T XX 

0004 

0004 

00026o 

V 

0003 

00O33S 

vbul 

0006 

0006 

000021 

V V A 

OOOA 

000022 

V V B 

0006 

0006 

000217 

#T1 

UC.JA 

000250 

#T2 

0000 

0004 

0001 1 A 

XOH 

OOOA 

000231 

XFOT 

0004 

0006 

000232 

XMSS 

OCOA 

00023$ 

XMSUH 

0006 
n n A I 

0006 

000213 

X T 1 

OOOA 

00021S 

X T2 

OOU  6 

0004 

oooiso 

YDH 

OOOA 

0001 11 

yield 

0006 

0006 

OOOlOO 

YR 

OOOA 

000211 

YTt 

OOOA 

subroutine  state 

INCLUDE  GELCMN 
INCLUDE  CHAIN 


IND*"MPN< JiKZ) 

*)V1»-0VP/VP 
XPAl»PAl I l NO  A ) 
pp.XPAl»#V I 

1FIPP.LT.PMIN)  PP.PHIN 

SSP2“<XPAI+1.3333333*AMu(tN0X> l/ARHOI INOX  I 
EP»E2-I ,S*(P2*PP)*QH»»0lVh*0l2H 


IFIABSIPPI.lt. PESCUT) 
IFIABSIEPI.lt. PE SCUT) 
RETURN 
END 


PP»0. 
EP*0  • 


000170  5XY 

00 l 2l1  szyy 
OOOllS  TIL** 
000160  TILES 
000030  TOTKE 
000610  TXY 
0002SS  VELCUT 
000023  VVC 
R OOOOOt  «Vt 
000320  XMASS 
000233  XHV 
30023 A XVZ 
000212  YHAX 
000216  YT2 


T 10 


T AO 


T 1310 
T 1320 


0001 

000101 

SYY 

0003 

000227 

T 

0005 

OOOl 67 

tilalp 

0005 

000322 

TllE*p 

OOOA 

000123 

TSPL* 

0001 

000551 

tyt 

0001 

001362 

VM 

OOOA 

000021 

VVD 

0001 

001 IA0 

X 

0006 

000211 

xmax 

6001 

000032 

XP 

0001 

000721 

Y 

0006 

000210 

yhin 

000003 
000003 
000003 
Q00003 
000003 
000003 
oodoos 
000010 
000013 
00001 A 
00b021 
000032 
00b032 
000012 
000017 
OQOOS1 
000070 


end  of  compilation: 


NO  0 I AuNOST I CS . 


BHDG 


ZONE 
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ZONE 


y FOR  • S ZONE 

FOR  5E2C-Q9/ l 9/7S-09 : 36  I 05  lu») 

SUBROUTINE  ZONE  ENTRY  POINT  uOZIIj 


STORAGE  USED:  CODE(I)  032I23(  OaTA(0>  000220  j BLANK  COMMON(2)  OOOOOO 
COMMON  BLOCKS: 


0003 

GEL  1 

000424 

0004 

RZF  1 

053646 

OOOS 

RZF2 

000331 

0006 

RZF3 

000267 

0007 

RZFH 

000152 

0010 

CALC 

000021 

EXTERNAL  REFERENCES  (BLOCK,  NAH£> 


0011 

SCALC 

0012 

state 

0013 

NERR2S 

0019 

SORT 

OOIS 

NftDUS 

0016 

NI02S 

0017 

NERR6S 

0020 

SIN 

0021 

cos 

0022 

NERR3S 

STORAGE 

ASSIGNMENT 

(BLOCK,  TYPE 

• RELATIVE  location,  u 

amEI 

oool 

030336 

100L 

3001 

300347 

1 IOL 

0031 

000504 

1 29L 

0001 

030603 

1 2 8 L 

0301 

030*20 

1 90L 

JOOI 

300/01 

iSOl 

0001 

00101 4 

|7Sl 

0001 

001076 

190L 

0031 

001 10" 

20  JL 

0001 

001 152 

260L 

0001 

001157 

280L 

OOCI 

001 16* 

300t 

0001 

001244 

37ot 

0001 

301247 

3bOU 

0031 

001262 

900L 

0001 

001361 

920L 

0001 

Ool 4?2 

9 25 1 

00  3 1 

001424 

927l 

oool 

00(561 

990L 

0001 

000171 

S CL 

3031 

001567 

300t 

0001 

002076 

S88L 

oooo 

000147 

S93F 

3001 

000200 

701 

0000 

R 

000073 

AAA 

0030 

R 

000071 

A AP 

OOOO 

R 

000072 

ABP 

OOOS 

000266 

A KMO 

oooo 

R 

000103 

alphah 

0005 

A 

00u20» 

AHU 

OOOS 

R 

OOOOOO 

ARHO 

0030 

R 

030136 

asqr 

0006 

9 

000034 

ASQRM 

0000 

R 

000036 

AZ 

OOOS 

000257 

BB 

OOOO 

R 

000'j76 

BBB 

0006 

000070 

CAPA 

0006 

000075 

CAPC 

00  JO 

a 

030077 

CCC 

0006 

K 

000025 

CONA 

0036 

R 

000026 

CONL 

0036 

A 

000027 

CONO 

oooo 

R 

000104 

ODD 

0006 

030010 

DINT 

0003 

000422 

OlSP 

0006 

000051 

OLTZ 

0006 

R 

0J01C3 

DLVH 

J036 

A 

030104 

DLZh 

oooo 

R 

003145 

0H3 

0006 

033053 

DTMlN 

0004 

R 

C01 (26 

ov 

0009 

001042 

DX 

00 10 

R 

000030 

0 AX 

LCIO 

R 

033020 

DX  Y 

oooo 

H 

300137 

D 1 

0033 

R 

203143 

D2 

33  30 

R 

330 i 4 1 

£>3 

0001 

000537 

3031 

000703 

0001 

001  140 

0001 

001224 

0001 

001273 

oool 

001531 

0001 

001*72 

0001 

00020* 

0003 

0004(7 

OOOO 

R 

00014* 

0005 

R 

000007 

0005 

000275 

OOOO 

R 

000034 

0006 

R 

000256 

0006 

R 

000047 

OOOO 

R 

000143 

0006 

R 

0002S3 

0004 

001074 

OCOO 

R 

003142 

I22L 

0001 

1 60 1 

0301 

220L 

0301 

39QL 

0001 

9 0 1 1 

000 1 

970L 

boot 

siot 

0001 

eot 

000“ 

ACC 

oooo 

ANN 

oooo 

AYtD 

0005 

BET  A A 

boos 

CNAUT 

oooo 

CUTSTR 

booo 

DtTH 

0006 

dm  l 

oooo 

D VP 

oooo 

0Y 

bo  to 

DM 

0034 

000544 

129L 

000715 

I70t 

001 145 

290L 

001243 

360t 

001317 

9 1 OL 

00 1 537 

9B0l 

001704 

S60t 

A 

000234 

A 

R 

000070 

AH 

R 

000067 

AP 

000241 

AYLDl 

000260 

BETAl 

R 

000105 

CNST 

R 

000107 

Ct 

000036 

OtTPH 

R 

000144 

0H2 

R 

000040 

OV  z 

R 

000001 

OYY 

R 

000672 

E 
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0000 

K 

03012s 

EEE 

0006 

R 

000105 

Ep 

0010 

R 

000002 

EXXH 

0006 

R 

000077 

EZ 

0006 

R 

000033 

HT  IE* 

0003 

003232 

1EDIT 

0003 

000231 

1 PLOT 

0007 

000151 

1S#S 

0006 

000117 

JJLI 

0006 

000129 

JHAX 

0006 

I 

000016 

JO 

0006 

I 

000217 

ICEQUAS 

0006 

000095 

kntrol 

0006 

1 

000013 

KZ 

0003 

000226 

lkax 

0006 

000210 

HT  RL 

0006 

000092 

NED1T 

0006 

000066 

NPLOT 

0005 

I 

000223 

NV  ISM 

0009 

R 

000756 

P 

0005 

C00232 

PA4* 

0005 

000106 

PB3 

0006 

R 

0001  10 

PP 

0009 

R 

001010 

y 

0006 

000259 

QRT 

0000 

R 

000 1 2 I 

qxyh 

0006 

R 

000112 

RHO 

0003 

000250 

SMASS 

0005 

000313 

sthard 

0003 

000921 

SVEL 

0009 

R 

000970 

SXY 

0000 

R 

00C1 1 I 

SYYH 

0009 

001276 

SZXY 

0000 

R 

000062 

TERM! 

0005 

000192 

T 1LB 

0005 

030151 

TILEZ 

0006 

000099 

T T l HE 

0009 

R 

000522 

TXX 

0000 

R 

000093 

TXYZ 

0000 

R 

000057 

TIO 

0000 

R 

000096 

T ** 

0000 

R 

000056 

0000 

R 

000065 

VDOVH 

0006 

000021 

V V A 

0003 

000923 

V ZERO 

0003 

000000 

XBUL 

0000 

R 

000009 

XDH1* 

0000 

R 

000000 

XHH 

0006 

R 

000235 

XMSUM 

0000 

R 

000029 

XP3 

0000 

R 

000132 

XXX 

0000 

R 

000021 

YDH2 

0000 

R 

300023 

YH3 

0009 

000069 

YP 

0000 

R 

C30IC6 

EJP 

O0a9 

R 

03 1 9 | 9 

E« 

0030 

R 

030 1 0 1 

EXYDH 

0006 

000073 

FNt 

0306 

R 

0^0332 

htkek 

0036 

000251 

1HT0P 

0036 

1 

000057 

IPLR 

0036 

00000* 

1 T APE 

0306 

000121 

J JL  2 

0006 

000*56 

JHIN 

0036 

000037 

K 

0006 

I 

000005 

KGMAX 

0006 

000012 

KOUT 

0006 

1 

030017 

ICO 

0036 

00006* 

LOX 

0003 

000239 

NAME 

0006 

030007 

NKGEB 

0006 

000053 

nrd*t 

3005 

030219 

NV1SR 

0305 

030325 

PAZ 

0003 

030199 

PAUL 

0006 

003256 

PESCUT 

0036 

oooto* 

pscale 

00  DC 

R 

030122 

Q AH 

0330 

R 

300120 

Q T TH 

0007 

000069 

Q Y 

0009 

00*996 

RRR 

0003 

000252 

SHOW 

0009 

R 

000936 

STT 

0009 

R 

000352 

sxx 

0000 

R 

000113 

SXYH 

0010 

R 

000013 

syyp 

03C9 

001299 

SZYY 

ODuC 

R 

OOC363 

TERH2 

0005 

0^0129 

tilbb 

3006 

030035 

TOTE 

00C9 

R 

COO606 

TTT 

0000 

R 

C00126 

TXXP 

0039 

R 

000559 

TYY 

0000 

R 

000060 

T 1 1 

0000 

R 

000097 

T5 

0003 

030253 

UBUl 

0006 

000255 

VELCUT 

0006 

000022 

WB 

OOUO  R 000033  AS 
0009  R 000 1 1 A XDH 
0006  000239  XFOT 

00J9  R 000320  XMASS 
0006  R 000233  XMV 
0000  R 000002  XP9 
DOOM  R 00072*)  t 
0000  R COO027  Y0M3 
0000  R CO0OC1  th*) 
0300  R OuOol > YPI 


ZONE 


0010  h COu  J I I E*** 
LOuO  r 000100  ETTOH 
OClO  R 000005  EXYH 
00^6  ' 000220  MIRA 
0000  | C00o3l  1 
0003  000251  1KHAX 


0007 

000 1 50 

1 SRS 

0009 

900000 

ITEMS 

3036 

OOOI22 

JJL3 

3096 

000116 

JMNPl 

0006 

000257 

ICACT 

0006 

000051 

KGMXP4* 

0006 

000015 

KP 

0006 

000260 

K* 

0006 

| 

000263 

M 

0009 

000000 

NBC 

0036 

000065 

NKING 

0036 

000093 

NRESTR 

0030 

1 

000032 

NY 

ooos 

n 

000039 

PAl 

0035 

000061 

PBZ 

00C6 

n 

oooooo 

PI 

0006 

R 

000107 

Pi 

0006 

R 

OOOIII 

QM 

0007 

OOOOOO 

QX 

0007 

000116 

qtb 

0006 

000072 

SB 

0006 

000079 

SN 

0000 

R 

0001 1 2 

STTH 

0030 

R 

0001  to 

SXXH 

0010 

n 

000015 

SX  YP 

0010 

R 

000317 

SYYZ 

G0C3 

030227 

T 

0005 

000)33 

T I L A 

0005 

000176 

TILBET 

CC36 

00Do3t 

TOT  IE 

OOoO 

« 

000)30 

tttp 

0030 

R 

000091 

T X X Z 

OCOO 

R 

000127 

T t YP 

0000 

R 

000061 

T12 

O0C3 

R 

0000S0 

T A 

0009 

R 

000266 

V 

0030 

R 

000066 

VH 

0006 

000023 

VVC 

0006 

000297 

#Tl 

oooo 

R 

000012 

XDH  I 

0030 

R 

000006 

XHl 

0006 

000291 

XHAX 

0009 

000032 

XP 

C036 

000293 

XT  1 

0033 

000062 

YBUl 

3030 

R 

030005 

YDH4* 

00C6 

R 

000 1 1 9 

yield 

00  30 

fi 

3 DUO  I 7 

Y P 2 

0000  R 000035  CMASS 
0010  R 00000*)  ETTH 
0000  R 000075  LYYDH 
0003  000*<20  GOT 

0006  000060  ICART 

0006  00026*)  INC 

0003  000233  1ST0P 

0006  1 000090  J 
0006  000120  JJ«» 

0006  000062  JOLD 

0006  000069  KA*A7 

0006  00001 1 KIN 

0006  000102  KPRESS 

0006  000261  K9 

000*)  I 000202  MPN 
0006  OOOOS5  NCORO 
0006  000006  NLPR 

0006  00000**  NTAPE 

0005  I 00030**  NYY 
0005  000093  PA2 

OOQS  000070  PBI 

0005  R 000016  PM 

0006  000265  PZI 
0000  R 000115  QLH 

0007  000032  QXB 

0000  R 000117  QYYH 
0006  000071  S8I 

0006  R 000113  SSP2 
0010  R 00001**  STTP 
0010  R 000012  SXXP 
0010  R 000010  SXYZ 
000**  001330  SZTT 

0009  000000  TEHB 

0005  R 0001  15  TII.AA 

0005  000160  TILES 

0006  000030  TOTKE 

0000  R 0000****  TTTZ 
000**  R 000610  TXY 
0000  R 000012  TYYZ 
0000  R 000053  T2 
0000  R 00005**  T 7 

0000  R 000030  VAVE 

0001  001362  VM 

0006  000029  WO 

0006  000250  *T2 

0000  R 000020  X0H2 
0000  R OOOOH  XH2 
0006  000237  XM|N 

0000  R 0000 l 0 XPI 
0006  000215  XT2 

0009  R 000150  TOH 
0000  R 000007  YHl 
0006  000292  YHAX 

OOOO  R 300025  YP3 


0006 

R 

000106 

EMU 

OOOO 

R 

000079 

exxoh 

0010 

R 

000003 

eyyh 

OOOO 

R 

000129 

GGS 

0003 

O0O23O 

IOUMP 

oooo 

000175 

JNJP* 

6006 

0002S2 

isubc 

0006 

000 165 

jghin 

6006 

1 

000059 

JL1H 

0006 

000002 

JTAPE 

0006 

I 

000063 

•cconp 

0006 

X 

000019 

KM 

0006 

000016 

KSTOP 

0006 

I 

000262 

L 

0006 

000003 

MTAPE 

0006 

000091 

NCTCLE 

0006 

000076 

NP 

0006 

I 

000056 

NYIS 

OOOO 

R 

000102 

omegah 

0005 

000052 

PA3 

6005 

000677 

0006 

R 

000020 

PM  I N 

0006 

000266 

PZ2 

OOOO 

R 

0001)9 

QQH 

OOOO 

R 

000116 

QXXh 

0010 

R 

000016 

9Z 

OOOO 

R 

000051 

3D  V 

6000 

R 

O0012J 

ssz 

Ooto 

R 

060007 

STT  Z 

6010 

R 

066604 

sxxz 

0009 

R 

000909 

STT 

0009 

OOUli 

szxx 

0009 

oooooo 

TEMP 

0005 

000167 

TltALP 

0005 

000322 

TILESP 

0306 

000123 

TSPl 

OOOO 

R 

000069 

T VH 

OOOO 

R 

000)31 

TXTP 

Oooo 

R 

O0OO52 

Tt 

oooo 

R 

060095 

TJ 

oooo 

R 

000055 

TB 

6003 

006335 

VBUl 

0006 

R 

000047 

VP 

oooo 

R 

000037 

vz 

0009 

R 

O0li4O 

X 

oooo 

R 

060026 

XDH3 

oooo 

R 

000022 

XH3 

0006 

R 

000232 

xmSs 

6000 

R 

000016 

XP2 

0006 

R 

060236 

xvz 

OOOO 

R 

000013 

YDHI 

oooo 

R 

000015 

YH2 

0006 

000290 

YMiN 

0C33 

R 

000003 

YP** 
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0006 

oooo 


00101 

00103 

00107 

00107 

00126 

00126 

00127 

00127 

00130 

00131 

00132 

00133 
00I3M 

00 1 35 

00136 

00137 
001M0 
OOMt 
001  M2 
001H3 
OOlMM 
001MS 
00 1 M 6 
00IM7 

00150 

00151 

00152 

00153 
0015M 

00155 

00156 

00157 
00160 
00161 

00162 

00163 

COI  6 M 

00165 

00166 
00166 
00166 
00167 

00170 

00171 

00172 

00173 
00  I 7 M 
09175 


009100  YK  u0u6  Oo02MM  YTl 

GOO l 3 M IK E 


Zone 

QC J6  0Cj2M6  Y T 2 


3000  K 000133  YYY 


0000  R 000135  ZlE 


U 

10 

000000 

1 • 

SUBROUTINE  ZONE 

oooooo 

2* 

INCLUDE  GELCHN 

000000 

3* 

include  chain 

oooooo 

M • 
5* 

COHMON/CALC/OXX.DrY lEXXHtrYtHiETTN  iEX  YH 

,SxXZ,STTZ.SXTZ,EKP.SXXP, 

oooooo 

OOOOOO 

6* 

# SYYP^TTP.SXYP.QZtSYYZ.DXY 

OOOOOO 

7 • 

equivalence  cpescut.cutstri 

oooooo 

8* 

c 

U 

120 

oobooo 

9* 

20  L*j-1 

U 

130 

000002 

10* 

M*KZ 

000001 

1 !• 

XHM-X(l.H1-.5*XDH(L.M)*DLtH 

000013 

12* 

YHM-YIL  ,M)-#5*YDH(LiM)*dLTH 

000020 

13* 

xpm-x(l.h) 

000022 

IM* 

YPM-Y (L ,«> 

u 

180 

000021 

15* 

xomm*xdh(L*m) 

u 

1*0 

000024 

1 6 • 

YOHM-YDH(L.M) 

u 

200 

000030 

17* 

M ■ K H 

000032 

18* 

XHI ■X1L|H)-*5*XDH|L»H1 *dLTh 

000011 

1 ?• 

YMI*Y(L.M>-«5*YDM<L.M)*dLTH 

000014 

20* 

XPl«X(L,H) 

ooOoso 

21* 

YP 1 ■ Y 1 L # H ) 

u 

250 

0000S2 

2 2* 

XOH I ■ XDH 1 L t H 1 

u 

260 

000051 

23* 

ydhi*ydhIl.m> 

u 

M20 

00005* 

2M* 

MO  L* J 

u 

M30 

6000*0 

25* 

M**M 

0000*2 

26* 

XH2-XIL ,H)-.5*XDH(LiH)*DLTH 

00007 t 

27* 

YH2-Y (L#H)-.5*YDH(L »H) *dLTH 

00007* 

28  • 

XP2*  X ( L |H) 

000100 

29  • 

YP2*  Y C L * H ) 

u 

M 80 

000102 

30* 

XDH2-XUH(L.M> 

u 

M 90 

000101 

3 l • 

YDH2-YDH ( L » M ) 

u 

500 

OOOiO* 

32  • 

h-KZ 

0001 10 

33* 

XH3*X IL ,M)-.5*XphiL ,M) •pLTH 

000 l 17 

3 M • 

Yh3«Y1L*H)*«5*Y0N»L»MI • u L T m 

000121 

35  • 

XP3-X1L.HI 

OOOl 2* 

36  • 

YP3-YCL.M1 

u 

550 

000130 

37  • 

xdh3*xuh<l,m> 

u 

560 

000132 

38  • 

Y Oh3* YUH  CL.M) 

000131 

39  • 
MO* 
Ml* 

i/AVE-t25*(YDHl^Y0H2*YDrt3*YDHM) 

C FIND  MATERIAL  PROPERTY  nUmbE*  ANU  USE 

c constants  for  Tut  zone  from  arrays  in 

it  to  select  proper  physical 
permanent  core  storage 

u 

u 

u 

570 

580 

590 

6oO|31 

000131 

000(12 

M2* 

I-MPN1L.H) 

u 

600 

ooflns 

M3* 

NVIS-NV1SMC I 1 

u 

6 1 0 

000117 

MM* 

R HO*  ARMO ( 1 ) 

u 

620 

OOOlSI 

MS* 

EMU* AMU  C 1 ) 

000|S3 

M 6* 

NY-NYY4 I ) 

u 

6 M 0 

000155 

M 7 • 

pmin*pmc  l ) 

000157 

MB* 

Y 1 ELD* A YLD I I > 
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ZONE 


COI  7* 

M9» 

00177 

bO* 

00200 

6 1 • 

00201 

52* 

00202 

53# 

00202 

59* 

00202 

ss* 

00203 

56* 

00209 

b7  • 

00205 

se* 

0020* 

59* 

00207 

60* 

00210 

61* 

0021  1 

62* 

00212 

63* 

00213 

6 M • 

002  1 9 

65* 

00215 

66* 

0021* 

67* 

00217 

68* 

00220 

69* 

00221 

70* 

00221 

71* 

00221 

72* 

00221 

73* 

00222 

7 H • 

00223 

75* 

00229 

74* 

00225 

77* 

00225 

78* 

0022* 

79* 

00227 

80* 

00230 

8|* 

00231 

82* 

00232 

83* 

00233 

8 M • 

00239 

85* 

00239 

86* 

00235 

67* 

0023* 

88* 

00237 

89* 

00290 

90* 

00290 

*!• 

00291 

92* 

00292 

93* 

00293 

9 M • 

00299 

95* 

00295 

96* 

0029* 

97* 

00297 

98* 

002&0 

99* 

00250 

100* 

0C2SI 

10  1 • 

00252 

1 G2  • 

60  TO  ( SO  t 70 ) fKCQUAS 
SC  *S«PAI < I 
GO  TO  60 

7C  W S » T I L A A i I ) ♦**  • •C,1u/3  • 

■'  .»» «.«  «.i  t«e m «««*  «*»*«•« 

which  have  been  read  from  intermediate  storage  tape 

EHASS»AHASSIL»M) 

az-ail.mi 

VZ-VCL.Hl 
DVZ*DV»L*H1 
TXXZ»TXX IL.Hl 
TYYZ-TYYlL.M) 

TXYZ»TXY<L|M) 

TTT2-TTTU.MI 
PZ«P»L  .M) 

SXXZ»SXXlL»HI 

SYYZ«SYYIL,H) 

STTZ*5TT  !L«M) 

SXYZ'SAY  1 L « M I 
«Z*Q«L.MI 

ez*eil.h» 


c 

c 

c 


AREA  and  VOLUME  at  NeXT  T I HE  STEP 


90  T3«CXDH9”XDH1)*(Yh9“Yh2) 
T9"1X0H9“XDH2)»(YH9“YH3) 
TS-IXHH-XHl )»(VDHH-YDH2» 
T6«(XH9-XH2)*<Y0H9-YDH3) 


1YH9-YH1  I • C X0H9«xDH2  ) 

IYHH-YH2)»IX0H*t-XDH3I 

(YDHR"YDHI>»«*H9-XH2> 

1YDH9-YDH2>*«*H9-XH3) 


GO  TO  I lt/0.  I 10)  • IpLR 
100  SDV" •S»0LTH* • T3»Tm  + TS*T a I 
GO  TO  120 

l 10  n-TXHH-XHl  1»1Yi|9-YH2)-1Ym9*YHI  » • IXHH-AH2) 

T2«IXH9-XH21MYH9-YH3)-|YH9-YH2>MXH9-AH3| 
T7-IXDHM-X0H1 )»ltOHH-YOH2l-l YOHH-YDHI ( • I XDH9-XDHZ ) 

Tfl.IXDHR-XDH2)*(YuHR-YDH3)-(YDHM-YDH2l*«XOHH-xOH3j 


T?*(XDrlM*X0Ml4'*DH2) 

1 io«(XOHH*ADH3*XOm2) 

T 1 1 ■< XHH^XHl ♦XHZ) 

T 1 2» ( XHH^XH2^XH3) 

T I ■ T I • T9 
T2»T2*  T 1 0 
T 3*T3*T  1 1 
TH«TH*T12 
T5-TS*T1 I 
T&*T6»T  12 
T7-T7-T9 
T fl ■ Tti  • T 10 

TERHl*T  I *T2  ♦ f3*Tll*T&*T6 
TERM2*w26*uLTH#*Z» ( T 7^  T ft  ) 


000 1 6 I 
000171 
U 680  000176 

000200 
U 710  000206 

U 720  000206 

u 730  000204 

y 710  000219 

U 750  000221 

U 7*0  000223 

000225 
U 770  000227 

U 780  000231 

U 790  000233 

U 800  000235 

U 820  000237 

U 830  000291 

U 890  000293 

U 8S0  000295 

U 8*0  000297 

U 870  000251 

000253 
000253 
000253 
000253 
00025S 
000272 
000302 
00031* 
00031* 
00032* 
00033* 
000395 
000397 
0003*9 
000379 
000912 
0009 I 2 
000922 
00092* 
000932 
00093* 
00093* 
000992 
000999 
00099* 
000950 
000952 
000955 
0009*0 
0009*2 
0009*2 
0009*9 
000972 
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ZONE 


00252 

00253 
00253 
0025** 

00255 

00256 

00257 
00260 
00261 
00261 
00262 
00263 
00261 

00265 

00266 
00267 

00270 

00271 

00271 

00272 
00275 

00302 

00303 
00303 
00301 

00305 

00306 

00307 
00310 
003|| 
003|2 
003|3 
003|1 
00315 

00315 

00316 

00317 
00317 

00320 

00321 

00322 

00323 
00323 
00321 

00325 

00326 

00327 
00327 
00327 
00327 
00330 

00332 

00333 
30331 


103* 

101* 

105* 

106* 

107* 

1 08  • 
109* 

1 10* 
111* 
112* 

I I 3* 
111* 
IIS* 

I 16* 
117* 
118* 
Ilf* 
120* 
121* 
122* 
123* 
121* 
125* 
126* 
127* 
128* 
129* 

I 30* 
131* 
132* 
133* 
131* 
135* 
136* 
137* 
138* 
139* 
HO* 

m* 

112* 

113* 

m» 

ns* 
116* 
117* 
118* 
119* 
ISO* 
1 5 1 • 
152* 
153* 
151* 
155* 
156* 


S0V*DLTh*(TERMI*TeRH2) 

are*  and  volume  at  half  time 

125  D VP“D  VZ ♦ SO  V 
VP*VZ*DVP 
TVH*VP“»5*SDV 
OLVH*SOV/VZ 
VD09h*SDV/ITVH*0L  fHl 
VH*TVH/ vz 


60  TO  1122, 1211, 1PLR 


122 

121 


128 

130 

MO 


150 

160 

170 


C 


C 


AP-VP 

AH*TVH 

AAP**5*I TP9*IXP3-AP2l*rp3*UP2-XP1|iYP2*(XP1-KP3l  l 

ABP*«S*( YP1*1XP2-API)*YPI*CXP9-XP2I*YP2*IaPI"XP9»I 

ap«aap* abp 

AH* .5* I AZ*AP • 

test  for  negative  area. 

IFIAPI  I 30 i 1 10 • 1 1o 

NR  I TE  16,5901  J.KCOMP.AP 

RETURN  0 

CONTINUE 

STRAIN  RATES  AT  H*LF  TIME 


AAA*. S/AH 

EXXDH*AAA* ( ( X0H2-X0H1I *(YH36YHI I - I YH2- YHl ) • l XDH3*x0H 1 
ET YDH*AA A* ( IY0H2”T0H1I*(XH3*XHI 1 - I XH2- XH1 1 • l Y0H3- YDH I • I* 

B8B*IY0H2-YDH1»*I YH3-YH1 l*(YH2-YHll*CYUH3»Y0HI » 

CCC*IXDH2-XDH1)*IXH3-XHl I - 1 XH2-XH1 I ♦ C X0H3-X0H I » 

60  TO  (150,160),  I PER 
ETT0H*O. 

GO  TO  170 


. ) 


ETT0H*(XDH|*X0H2*XDH3*XdH«)/(XMI*XH2*XH3*XH1) 

EXYOH*AAA* (BBB-CCC  > 

ANGULAR  VELOCITY  and  DISPLACEMENT  at  half  TIME 
0MEGAH*,5*aAA*CBBb*CCCI *(-|.) 

ALPHAH*OMEGAH*OLTh 
STRAINS  AT  HALF  T|M£ 

EXXH*EXXOH*OLTri 

£YYH»EYYOH*OLTH 

ettm*ettdh*dlth 

exyh-eayoh*dlth 

STRESS  DEVIATORS  CORRECTIONS  DUE  TO  ROTATjON 

OXX* ( (SXXZ-SYYZ) /2» )• ( COS C 2 • • ALPHAH I - I • )*SXY2*S|N(21*ALPHAHI 
OYY--DXX 

DXY-SXYZ* (cost  2.* ALPHAH) -I . )-( I SXXZ-SYYZ I /2 * I • S 1 N ( 2 . • ALPH AH  I 
DDD*0LVH/(3.*VHI 


CALL  SCALC  TO  CALCULATE  SlJ,  EP , PP,  AND  vm  *hEN  nY*I 

1F(NY.NE.  I I 60  TO  175 
CALL  SCALC 
GO  TO  22U 
| 75  CONTINUE 


U 1000 


U 1070 

U 1090 
U 1100 
U 11(0 
U 1120 
U 1130 
U 1190 
U 1150 
U 1160 
U 1170 
U 1180 
U 1190 
U 1200 

U 1220 
U 1230 
U 1290 
U 1250 
U 1260 
U 1270 
U 1280 
U 1290 
U 1300 
U 1310 
U 1320 
U 1330 
U 1390 
U 1350 


OOOh  7 2 
000500 
OOOSOO 

ooOsoi 

000506 

000510 

000519 

000517 

000529 

000529 

000527 

000537 

000510 

000592 

000591 

000560 

000575 

000577 

000577 

000603 

000605 

000615 

000620 

000620 

000620 

000622 

000691 

000660 

000665 

000671 

oooroi 

0O07OI 

000703 

000715 

000715 

000720 

000726 

000726 

000730 

000733 

000736 

000791 

000791 

000799 

000771 

000772 

001000 

OOlOOO 

00(000 

00(000 

001005 

001010 

001012 

001019 
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ZONE 


0033*4 

157* 

0033  *4 

IS8* 

00335 

15?* 

00335 

160* 

003*40 

l 6 l • 

003*41 

1 62* 

003*42 

163* 

003*4  3 

16*4* 

003*4  *1 

165* 

003*15 

166* 

003*46 

167* 

003*47 

l 6 8 • 

00350 

169* 

00351 

170* 

00352 

I 7 | • 

00353 

1 72  • 

0035*4 

173* 

00355 

I 7 *4  • 

00356 

1 7 5* 

00356 

I76« 

00361 

1 7 7 • 

00362 

178* 

00363 

1 7 9 • 

0036*4 

ISO* 

00365 

1 8 | • 

00365 

182* 

00366 

183* 

00371 

| 8 *4  • 

00372 

1 85  • 

00375 

1 86* 

00376 

l 8 7 • 

00*401 

1 88  • 

00*02 

l 8 9 • 

00*405 

1 90# 

00*406 

1 9 I • 

00*407 

1 9 2 • 

00*410 

193* 

00  *4 1 I 

I 9 *4  • 

00*4 1 2 

l?5* 

00*412 

19  6* 

00*4 1 2 

1 97  • 

00*412 

198* 

00*413 

199* 

00*41*4 

200* 

00*415 

201* 

00*416 

202  • 

00*417 

203* 

00*420 

20*4* 

00*421 

205* 

00*422 

206* 

00*422 

207* 

00*422 

208* 

00*422 

209* 

00*423 

2 l 0 • 

UD 


190 


200 


210 


220 

230 

2*40 

250 

260 

270 

283 

290 

300 


IF  Yield  stress  is  VERY  Small,  make  stress  deviators  equal  to 

IF  IYIELD"! «E-10l  190.190, 18a 
STRESS  DEVIATORS  *T  NEXT  TIME  STEP 
CNST«2.»EHU/3. 

SXXP-SAXZ*CNST»|2.»EXXH-EYYM-ETTH|*DXX 

SYYP-SYYZ*CNST«|2.*EYYH-EXXH-ETTHI*DYY 

STTP«STTZ*CNSTM2.»ETTH-EXXM-EYYH| 

sxyp«sxyz*oxy*emu*exyh 

EJP-.S»ISXXP«SXXP*STYp*SYYPfSTTP»STTPItSXYP»SXTP 

60  TO  200 
SXXP-O* 

SYYP-O* 

STTP“0 • 

SXYP-O* 

EKP-O. 

GO  TO  300 

EKP«2.MEjP-TlELD«YIELD/3.  | 

IF  IEKP)  220.220.210 

REDUCE  NEW  STRESS  OEVIATORS  TO  MEET  YOELO  CRITERION 
CY-YIELO/SQRT |3t»EJP> 

SXXP«CY»SXXP 

SYYP«CV»SYYP 

5TTP"CY»STTP 

SXYP-CY»SXYP 

STRESS  DEVIATORS  aT  HALF  T | Mt 
23o.230.2H0 


zero 


2S0.2S0.2i0 
270.270.280 
29Q.290. 300 


330 


IF* ABSISXXPI-CUTSTRI 
SXXP-O. 

IF< ABSISYYPI-CUTSTR) 

SYYP-O. 

IFIABSISTTPI-CUTSTRI 
STTP»0. 

IF! ABS(SXYP)-CUTSTR) 

SXYP-O. 

SXXH«.S*ISXXZ*SXXP) 

SYYH-.a* (SYYZ*SyTr) 

STTH*.S»(STTZ*STTpl 
SXYH-.S»(SXYZ*SXTPI 
QOHaO • 

CALCULATION  OF  ARTIFICIAL 

COMBINATION  of  QUADRATIC.  

determine  which  case  applies  to  this  problem 
QLH*0 • 

WXXH-0.0 
QYYH»0.0 
OTTH«0.0 
QXYH«0.0 
UAH-0.0 
UH-O. 

GO  TO  I 3H0.380 .38o» . NVtS 


VISCOSITY  MaY  BE  EITHER  QUADRATIC  OR  A 
LINEAR  AND  ANISOTROPIC.  SWITCH  Q WILL 


390 


WUaORATIC  case 

IF  MATERIAL  is  NOT  CONTRACTING  HaKI 
IF  I OL  VH I 3S0.3G0.360 


ARTIFICIAL  VISCOSITY  ZERO 


U 

1360 

o o 
o o 

o o 

X x 

U 

1370 

001019 

U 

1380 

001019 

U 

1920 

001017 
00 1023 
001033 
001093 
001052 

U 

1930 

001060 

U 

1990 

001079 

U 

I9S0 

001076 

U 

I960 

001074 

U 

1970 

001077 

U 

1980 

OQIlOO 

U 

1500 

001 |0 1 
001 102 

U 

ISIO 

001 109 

u 

IS20 

001 1 1 1 

u 

1530 

OOlltl 

001 1 13 

u 

ISSO 

00 1 1 29 

u 

IS60 

001124 

u 

1570 

001 .31 

u 

ISSO 

ool 139 

u 

1590 

00 1 1 39 

u 

1410 

001190 

001193 

u 

1430 

001195 

OOllSO 

u 

1450 

001(52 

OOilSS 

u 

1470 

001 157 
00H42 

u 

14.0 

OOl 149 

u 

1490 

001 167 

u 

1700 

001 173 

u 

1 7 1 0 

001 177 

u 

1890 

00(203 

u 

1900 

001203 

u 

1 9 ( 0 

001203 

u 

1920 

001203 

u 

1990 

001209 

u 

1 9S0 

001205 

u 

I960 

001204 

u 

1970 

001207 

u 

1980 

001210 

u 

1990 

001211 

u 

2000 

00(212 

001213 

u 

2010 

001213 

u 

2020 

001213 

u 

2030 

001213 

u 

2090 

001229 

I JMt 


•fl 

P* 

vO 

It 

<o 

VO 


00426 

211* 

35^  i 

C0H27 

2 1 2 * 

00432 

213* 

36u  1 

00433 

214* 

37Q  < 

00434 

2 l 5 • 

i 

00434 

216* 

C 

00434 

217* 

c 

00435 

218* 

383 

00436 

219  + 

00441 

220* 

393 

00442 

221  • 

00444 

22  2 + 

00445 

223  + 

400 

004  4 6 

224  + 

401 

00*447 

225  + 

00450 

226  + 

00451 

22  7 + 

00453 

228* 

00455 

229  + 

410 

00455 

230  + 

C 

00456 

23|  + 

00457 

232* 

00440 

233  + 

00461 

234  + 

00462 

235  + 

00462 

234  + 

C 

00442 

237  + 

c 

00442 

230  + 

c 

00442 

239  + 

c 

00442 

240# 

c 

00443 

241  + 

420 

00444 

242  + 

00464 

243  + 

1 

00464 

244  + 

c 

00464 

245  + 

c 

00464 

246  + 

c 

00465 

247  + 

00467 

248  + 

00470 

249  + 

00471 

250  + 

425 

00471 

25|  + 

C 

00472 

252  + 

00472 

253  + 

c 

00473 

254  + 

427 

00473 

255  + 

C 

00474 

254  + 

00474 

257  + 

c 

00475 

258  + 

00474 

259  + 

00500 

260* 

00501 

261  + 

00503 

262  + 

00504 

263  + 

00506 

264  + 

IF ( QUH-CUTSTR ) 36j»36GiJ7c 


60  TO  9Z0 

N0N-9UADR AT l C CASL 
SSZ*CNAUT 

1FIDLVH)  900»3’C»90I 
8H«0  • 0 

IF  (NVIS«EU«3>  60  TO  HJO 
GO  TO  9Z0 

8QH«(RH0»AH/VHI*C  CONS’VDOVH) •ICONQ‘VDOVH) 

CONTINUE 

QLH~<SSZ«RHO.CONL*S<)RT!AH|.VDOVH>/VH 

QHaQUH«QLH 

IFIABSIQH) .LT.CUTSTR)  Oh»0. 

IF  ( NV 1 S • NE • 3 ) GO  TO  9Zo 

GGG»(2.*S5Z»RH0»CuNA*SQRT(AHn/VH 

CONTRIBUTIONS  To  aNISOTrIC  8 ANALOGOUS  TO  STRESS  yEVIATORS 
CNST»GGG/3. 

9XXH«CHST«I2.»EXAuH-ETY0H-CTT0mI 

QYYH»CNSr«t2.»tY»uH-EXXoH-ETTOrt) 

«tth-cnst.(2.*ett0h-exx0h-eyydh) 

WXYH«G6G»EXY0H»,5 

RESUME  CALCULATIONS  COMhON  TO  QUADRATIC  AnO  N0N-8U ADR AT  l C 
burn  FRACTION  AT  NEXT  TjME  STEP 

OLZH"VM»< (SXXH*QXXHI •EXXH*ISYYH*8YYHI »EYYH*<STTH*OTTH>  »ETTH 

t ♦ISXYH*QXYH)«CXYH) 

STORE  LOOT  FOR  UExT  CYCLE  ANO  SKIP  STaTE  if  NY-1 
I F ( N Y • NE  • I ) GO  TO  *425 

Ea<L,M)»2.*I0LZH-uLVHM.S»(PP*PZ)*0Hn-EUIL»M> 

60  TO  927 


CALL  STATE 


EEE»PP*8H 

TOTAL  STRESSES  AT  NEXT  TIME  STEP 

TXXP-SXXP+8XXH-EEE 

IF  I ABSI TXXP ) .LT.CUTSTR ) TXXP-O* 

TYYP»SYYP*QYYH-CEfc 

lFtABS(TYYP) .LT.CUTSTR)  TYYP-O. 

TTTP»STTP*flTTH-EEt 

IFIABSI TTTPI .LT.CUTSTRI  TTTP-0. 

TXYP*5XYP*«XYH 


U 20SO 

0 2070 
U 2080 
U 2090 
U 2100 
U 2110 


U 2130 
U 2 l NO 
U 2 1 SO 
U 2 1 80 


U 2190 
U 2210 
U 22N0 


U 2280 
U 2290 
U 2300 
U 23  io 
U 2320 
U 2330 


U 2390 
U 2N00 
U 2910 

U 2920 

U 2930 

U 2990 


001226 
001237 
001293 
001299 
00129S 
00129S 
001295 
001297 
001250 
00 1 259 
001255 
001260 
001262 
001273 
001273 

001309 

001306 

001313 

001317 

001317 

001330 

001332 

001390 

0013N6 

001359 

001359 

00>359 

001359 

001359 

001359 

001361 

001361 

001361 

001361 

001361 

001361 

001901 

001909 

001920 

001922 

001922 

001922 

001922 

001929 

001929 

001929 

001929 

001926 

001932 

001937 

001993 

001950 

001959 

001961 
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ZONE 


00507 

265  • 

005|  1 

26  6* 

005  | 2 

267  • 

00SI2 

2 68* 

C 

oosu 

269  • 

005  I *4 

270* 

00515 

27  1 • 

005|6 

272* 

H70 

00S17 

273# 

00520 

27  *4  • 

*480 

00521 

2 7 5* 

0052k 

276* 

C 

00522 

277* 

00523 

278* 

0052  *4 

279# 

*490 

00525 

280# 

00526 

28  | • 

500 

00527 

282* 

00530 

283  • 

00531 

28*4  • 

00532 

285  • 

00533 

286* 

0053*4 

287  • 

00535 

288* 

00536 

289* 

00537 

290# 

510 

005*4  1 

291* 

005*12 

292* 

005*13 

293* 

005*43 

29*4  • 

C 

005*4*4 

295* 

560 

005*15 

29  6 • 

005*46 

297* 

005*47 

298* 

005*47 

299* 

C 

00550 

300* 

00551 

301  • 

00552 

302* 

00553 

303* 

0055*4 

30*4  • 

00555 

305* 

00556 

306* 

00557 

307* 

00560 

308  • 

00561 

309» 

00562 

310* 

00563 

3 1 I • 

0056*4 

312* 

00565 

313* 

00566 

3 1 *4  • 

00567 

315* 

00571 

316* 

00572 

3 l 7 • 

00573 

3 1 B* 

IFtABSITXYPl.LT.CUTSTRI  TXYP-0* 

XXX»XDHI*X0H2*A0HJ*XDH1 

YYY»YDHl*YDHZ*YDHJ+YOH1 

INTERNAL  AND  KINETIC  ENERGY  1»  THE  ZONE 

ZKE-.5»EHASS»(XVZ-VAVEI»»2 

ZIE"EMASS*<EZ*EP»/t2.»RH0) 

GO  TO  I 1 80 » 1 To  I • IPLR 

ZKE«ZKE»6.283I SR 
ZIE«Zie»*.283|8*» 

CONTINUE 

SSP2-ABSISSP2) 

AAA-***.»tJQH»CONQ«*2«VH/RHO 
GO  TO  ( 1 70 » 500 > SOo  > »NV I S 

ASQR*AP/(SSP2*AAA| 

GO  TO  S | 0 

0I«(XP1-XPl>»»2*(YP1-YP|>»»2 
02-IXP2-XPI ) • • 2* ( YP2“YP | )»»2 
D3-«XP3-AP2»»»2*«YP3-YP2)*»2 
0H«IXPN“XP3l**2*lYPN”YP3l*»2 
OH  I * AH A X I (01 .021 
0M2"AMAX l t03  .01 J 

DHJ*AHAXI(DHI.DM2| 

ANH»AP/SQRT(0H3) 

ASQR-ANM/SQRTISSP2* ( I . ♦ 1 • • ( 4C0NL+C0N A ) • • 2 I >*AA*I 
IFt ASQR.6E. ASQSM)  GO  TO  560 

asqrh»as<jr 

xo-kcohp 

ADD^ENERGIES  TO  ACCUHULaTEO  TOTALS  FOR  THE  COLUMN 

HTKEK“r(TKEK*ZKE 

HT1EK»HTIEK*ZIE 

L«J 
H«KZ 

STORE  NE*  VALUES 
AIL  .HI “AP 
OV(L.M)«OVP 
Q(L  .HI-QH 
PCL.HI-PP 
SXX(L.MI«SXXP 
SYYIL.MI-SYYP 
STT ( L »H I *S TTP 
SX  T ( L . H I «S  X YP 
TXX(L,M)«TXXP 
TYY  (L  .lil  “TYYP 
TTT ( L «H I “TTTP 
TXYIL.HI-TXYP 
EIL.HI-EP 

XmSUH»XHSUM*XHAS5(L.HI 
XHV«XMV*XMASS 


u 2530 
U 2510 
U 2SS0 


|N 


XMSUH»XHSUH*AMSS/(2.»P1 (1)1 


M ) 

X v 

z-vavei 

• J 

•LT.JLIH 

) 50 

TO  588 

OH 

t i »kz ) n 

/ C 2 . ♦ 

PIMM 

• P 

Kin 

4 X 

VZ-tOHlI 

• Kzn 

• *2 

2570 

2S80 

2570 

2800 

2810 


CORE  tRRAYS  TO  BE  WRITTEN  ON  jNTERHEDIaTE  TaFE 


2820 

2880 

27  I 0 
2720 
2930 

27S0 

2970 

2780 

2770 

3000 

3010 

3020 

3030 

3070 

3050 


001781 
00 1 17  I 
001176 
OOl 176 
001503 
001512 
001521 
001531 
001533 
001537 
001537 
001537 
001510 
001550 
001561 
001565 
001567 
001576 
001606 
001616 
001626 
001633 
001610 
001615 
001653 
001672 
001675 
001677 
001701 
001701 
001701 
001706 
001711 
001713 
001713 
001715 
001721 
001726 
001733 
001710 
001715 
001752 
001757 
001767 
001771 
001776 
002003 
002010 
002015 
002023 
002030 
002016 
002062 
002066 


0057*1  31’* 

00571  320* 

00575  32  1 • 

00575  322* 

00576  323* 

00576  321* 

00577  325* 


588  CONTINUE 


C 

RETURN 

590  FORMAT  (5X.23HNC6  ARE*  CALCULATED.  J*  , 1 1 » 3X  > 2h* 
115.61 
END 


U 3250 

H ,5X .SHAREA* »*pE  U 3260 
U 3270 
U 32*0 


002076 

002076 

002076 

002076 

002)22 

002)22 

002)22 


END  OF  COMPILATION) 


NO  DIAGNOSTICS. 
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COM 


UPDP  * FL  COM 
P0PS8A-09/ 19-095  36 
PE 


COM. 


PROC 

parameter 

parameter 

parameter 

parameter 


I D*33  iJD»8b  » K D«  | bJO  *ND»I2  #IJD*SO 
LD-lbO  • NND  I rl*2S  »MMDXM-IO 

NAKR»IC#IO*JO.IMID.S.JD^I7«IJD^2.»CO#7*RNoIM.mMOIM 
N P A R * 5 9 


6 i 

C0MM0N/XRRAY5/U(  I 0 , JO ) 

.VI  lb. JD) 

, aHX | ID. JD) 

• 

7* 

•fxcid.jd)  ,fy(|o,jd» 

.51 1 I ID, JD) 

■ S 1 3 1 1 0 , JO  1 

• 

6* 

•S33<ID.JD>  » P C I D * JD ) 

»F  ( IDi  JO) 

.XKIKO) 

» 

9 A 

•YK(KD)  .AUDI 

»R(lD) 

.XPLI 10) 

• 

10. 

•RPL(IO)  ,DXUD) 

»DXP( ID) 

.YIJOI 

» 

I 1 • 

•YPL(JD>  ,DY(JO) 

• DYP<  JO) 

, TAU I 10) 

• 

12. 

•ALN(IJU)  .BENIIJO) 

»XB< I JD) 

■ YB 1 I JO) 

• 

13* 

•FLIlJDl  ,FR(IJD) 

• FTC  I JD) 

.FBI  I JO) 

• 

IS. 

•VFOB(IJD)  i YC  T I I JO  t 

• RHO Vti ( ID) 

.TI3BI ID) 

» 

IS. 

• 1338(  101  i AFOB I I JD ) 

»POB  < I JD 1 

,XCT( I JO) 

• 

| 6 . 

•ICRACK(JO)  .JCRACMID, 

•UOa (I JD ) 

. »oa< I JO) 

» 

17. 

• I HAS ( | JD ) .JMaSIIJD) 

• TTUJNDIM) 

./Z(NNOIH) 

• 

IS. 

•FF(NNDIH)  .AA(NNDlM) 

» F F A A i N N y I i 1 

, ,V(nNOIMI 

» 

19. 

•CDINNDlH)  .vvvcmmdim. 

20. 

cohhon/params/  full 

• SUR 

.EMP 

,bnd 

• FAK 

21  • 

•OB  .OBFUL  lOT 

»G 

i AS 

,RHOZ 

i HMU 

22. 

•beta  ,ap  ,bp 

•TLAST 

» TDUMP  iDTDUMP 

• TCP 

23. 

•OTCP  i TP  lOTr 

•ttotal 

• Pm  I N 

.VSCALE 

• EPS 

2*». 

• COMPEN  ■ 5HEN  t SPEN 

.BQ 

i CK 

.XPi 

i XP2 

25. 

• YPI  « YP2  # UCR  A C K 

» IMaX 

1 JMAX 

» IMAXM 

, JMAXM 

26. 

•KHAX  • KB AH  . KB AKrt 

•NDUmP 

.NCYC 

1 ICR 

• JCR 

27. 

• IJMA*  .IKHaXP  , SHALL 

• REV 

* I SEP 

. JSEP 

# XSEP 

28. 

• Y SEP  i NNH  AX  .MMIIAX 

t 2 ZPRT 

.OElZZ 

29. 

INTEGER  F ,0B  .FULL 

• SUR 

»tMP 

»BND 

,FAX 

30  • 

• .PART  .SMALL  ,REV 

31. 

DATA  FULL/ 1/SUR/R/EMP/7/BND/I0/FaK/|3/0B/1 a/p art/s/ 

32. 

DATA  REV/IS/SHALL/l*t/ 

33. 

DEFINE  INDEX  1 I . J)>FLD(0. IB .F ( I , J) I 

3H. 

DEFINE  NBIT(I«B.A0)»FLDI  J6-NB 

• I • 6 D ) 

35. 

include  gelcmn.list 

36. 

end 

END  POP 
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SFOR.S  ACCEL 

FOR  SE2C-0V/I9/7S-GV536: I*  to.  > 


ACCEL 


SUBROUTINE  ACCEL  ENTRY  POINT  63C|32 


STORAGE  USED:  CODCIII  OJOIUI  OaTA(O)  003031!  BLANK  COMMON^)  000000 

COMMON  blocks: 

0003  arrays  iooisi 
0001  PARAMS  000073 

0005  GEL  I 000121 

0006  FORC  000001 

EXTERNAL  REFERENCES  (BLOCK,  NAME! 

0007  AV|S 
0010  NERR3S 

STORAGE  ASSIGNMENT  (BLOCK,  TYPE,  RELATIVE  LOCATION,  NAME) 


0001 

oooios 

IOOL 

3001 

000005 

1376 

0001 

000023 

1126 

0003 

07473*1 

AFOB 

3003 

075605 

ALN 

0003 

012752 

AHX 

0003 

075667 

BEN 

0001 

030011 

BETA 

0001 

1 

000003 

BND 

0003 

100104 

CO 

0001 

000036 

CK 

0001 

000 J 32 

COMPEN 

OOOH 

000007 

OT 

0001 

000023 

OTCP 

0001 

000021 

OTOUMP 

0003 

071757 

DXP 

0003 

R 

075272 

OY 

0003 

075H17 

OTP 

0003 

| 

06I23S 

F 

OOJ** 

1 

00000** 

FAK 

00U3 

076JH3 

FB 

0003 

0741  IS 

FL 

30U6 

R 

000000 

FORCE 

0003 

076177 

FR 

0003 

R 

020337 

FX 

0003 

R 

02S721 

FT 

0031 

000010 

6 

0000 

I 

000002 

1 

0301 

000055 

ICR 

0033 

077  I 62 

1 CRAC* 

0000 

1 

000003 

1 J 

J001 

000C57 

I JMAX 

0035 

0002SI 

| X M A X 

OOOH 

000011 

1 MAX 

0001 

I 

000016 

1MAXM 

0030 

00CC1H 

1NJPS 

OOOS 

000233 

1 S TOP 

3030 

I 

OOOOOl 

J 

0031 

OOGOS6 

J C R 

OOOH 

000015 

JMAX 

0001 

1 

000017 

jmaxm 

0C-J1 

000O4H 

J 5 E P 

OOOH 

000050 

KMAX 

0005 

000226 

LM  AX 

0031 

00C070 

H M N A X 

OOOH 

000053 

NDUMP 

0031 

000067 

NNM  A X 

0031 

I 

OOOuOS 

OB 

0000 

1 

000000 

PART 

0005 

ooom 

PBUU 

0031 

000J27 

PM  | N 

0000 

R 

0000 1 0 

QR 

0000 

R 

00001 > 

QT 

0003 

R 

07HSS3 

R 

0003 

074S7I 

RHOVB 

0001 

000012 

RHOZ 

0003 

07  h 65ft 

RPL 

ooos 

0002SO 

SMASS 

0005 

000252 

SMOM 

0001 

00003H 

5PEN 

0003 

03331 1 

S 1 1 

0003 

R 

010676 

SI3 

0030 

R 

000 jOH 

S I 3oB 

OOOS 

000227 

T 

0003 

R 

075511 

TAU 

0031 

000022 

TCP 

0000 

R 

0000 1 2 

TMP» 

0300 

R 

OJOC  I 3 

TMP2 

0031 

00U02H 

TP 

0003 

076432 

t 1 3a 

C0G3 

076673 

T33b 

0033 

000000 

U 

0003 

0773S0 

UOB 

00j3 

0C5365 

V 

0035 

000335 

vbul 

OOOH 

C00030 

vscale 

uDU3 

130055 

VV 

CCD3 

1 OU 1 37 

V vv 

0003 

K 

075751 

XH 

D3l5 

000600 

XBUL 

0033 

07/|00 

K C T 

OOOH 

003037 

XP1 

0321 

C-CC10 

XP2 

OC  .1 

aSCP 

OOOS 

000042 

r bUL 

03  J 3 

0 7 6 5 C 7 

yct 

o3-'3 

0 M SS6 

Y K 

0003 

077773 

aa 

0331 

000015 

AP 

0001 

000016 

BP 

0001 

000072 

DELZZ 

0001 

000025 

OTP 

0001 

1 000002 

EMP 

0003 

077712 

FF 

0003 

076241 

FT 

0005 

000120 

GOT 

0005 

000230 

IDUMP 

0001 

000040 

IKMAXP 

0005 

000231 

1 PLOT 

0003 

077307 

JCRACK 

OOfcl 

OC0O5I 

F8  A R 

0005 

000231 

NAME 

0001 

ooooo* 

obful 

0003 

R 077016 

P08 

0000 

R 000007 

rbar 

0001 

000033 

5HEN 

0001 

I OOOOOl 

SUR 

00o3 

R 016263 

5 33 

0001 

000020 

TDUMP 

0003 

077640 

TT 

ooos 

000253 

UBUl 

0003 

074125 

VFOB 

0005 

000123 

V ZERO 

0003 

046622 

XK 

0003 

075020 

Y 

0033 

075H5 

YPC 

0005 

0001*7 

ACC 

0001 

0000*1 

AS 

0001 

000025 

IQ 

OOOS 

000122 

DJSP 

0003 

ft 

0?17lt 

OX 

0001 

000031 

EPS 

O009 

100021 

rr*A 

0001 

I 

000000 

run 

0001 

000013 

HNU 

0005 

000232 

I CO  I T 

0003 

0*7S»1 

1 H AS 

0001 

000043 

1 SEP 

0003 

0?7S76 

JMAS 

Oooi 

000052 

KBARM 

0001 

O0OOS1 

NCVC 

0003 

053450 

P 

oooo 

R 

000006 

PROS 

0001 

1 

000062 

REV 

0001 

l 

000041 

SMALL 

0005 

000121 

SVEL 

0000 

R 

000005 

S330I 

0001 

000017 

TLA5T 

0001 

000024 

TTOTfL 

Oooi 

000013 

ucRack 

0003 

077132 

VOB 

0003 

071512 

X 

0003 

0716J1 

XPL 

0003 

076033 

Y0 

0001 

00001 1 

YP1 

ACCEL 


00(H 

000012 

Y P2 

OOOM  000066  YSEP 

0003  OT//II  ZZ  OOOH 

000071 

ZZPRT 

OOIOI 

1 • 

SUBROUT I NE  ACCEL 

000000 

OOlOI 

2« 

000000 

OOIOI 

3* 

000000 

OOIOI 

(•••< 

THE  ACCELERATION,  VELOCITY 

AND 

000000 

OOIOI 

5# 

CM#< 

penetration  uF  THE  PROJECTILE* 

oqOooo 

OOIOI 

6* 

000000 

OOlOI 

7* 

000000 

00103 

8* 

INCLUDE  COM (LIST 

OQOOOO 

00103 

9* 

000000 

00103 

9* 

COM* 

PROC 

OQOOOO 

ooior 

?• 

PARAMETER  10*33  . JD*85 

.KD-1500  .N0-I2  .|JO"SO 

000000 

OOlOS 

9^ 

parameter  lo*i5c  •nnoim-25 

.MMDIH-IO 

000000 

00106 

9» 

parameter  narr*io#id*jd4>ii«io^s«jd^i 7#i jD*2«KD^7#NNDiMtMHDiM 

OQOOOO 

00107 

?• 

PARAMETER  NPAR  *59 

000000 

001 10 

9* 

COMMON/ ARR A Y5/U( Id. JD) 

• V I 1 D . JO ) .ArtXllo.JDI 

» 

000000 

001  10 

?• 

•FXtIO,JD>  , F Y ( 1 0 i JO  1 

.Slide, Ju<  .sijcio.JO) 

i 

000000 

ooi  to 

9* 

• S33 ( 1 0 . JD ) iP(IOiJD) 

.FIID.JDI  ,XMKO) 

» 

000000 

001  10 

9 • 

•YK(KD)  • A ( I u ) 

.RIIDI  .XPLdol 

i 

oooooo 

00110 

9« 

• RPL ( 1 D > iDX(ID) 

.DXP(IO)  , Y I JO  1 

• 

000000 

001  10 

9 • 

•YPL(JD)  iDYlJOl 

.OYPIJOI  .TAUIIol 

i 

OOOOOO 

OOI  |0 

9 • 

• ALN(IJO)  i BEN ( | JO  1 

• X B ( 1 JD  1 .YBdJOl 

• 

OOOOOO 

OOI  10 

9 • 

•FL(IJD)  •FRdJDI 

. FT  1 I JO  1 .FBIIJOI 

i 

oooooo 

00110 

9 • 

• VFOB(IJO)  i TcT ( | JO ) 

(RHOVBIIO)  , T I 3B 1 1 0 ) 

i 

oooooo 

00)10 

?• 

•T33BII0I  ,AF0H(1jD) 

.POBdJD)  .XCTIIJO) 

i 

oooooo 

OOI  10 

• 1 CRACK  ( JO  ) .JCRaCMID) 

.UOBIIJOI  .VOBjUOl 

• 

oooooo 

OOI  10 

9 • 

• IHASIUOl  .JHASdJD) 

.TTINNOIHI  .ZZINNOIMI 

t 

oooooo 

OOI  10 

9* 

• FF(NNOIH)  • A A I NN01 H ) 

.FFAAINNOIHI  .VV(NNOIH) 

i 

oooooo 

ooiio 

9« 

• CO(NNOIM)  * V W ( MHO  1 M ) 

oooooo 

00 1 1 1 

9 • 

COMMON/PaRAHS/  full 

. S JR  » EMP  . UNO 

iFAK 

oooooo 

00 1 1 1 

f • 

•OB  .OBFUL  ,DT 

.6  .AS  .RHOZ 

»HMO 

oooooo 

00 1 1 1 

9* 

•beta  .ap  .bp 

.TLAST  .TOuMP  , qTDUHP 

.TCP 

oooooo 

001 II 

9 • 

•OTCP  .TP  ,OTP 

.TTOTAL  .PHIN  . VSC  ALE 

• EPS 

oooooo 

0011 1 

9^ 

•COHPEN  .ShEN  .SPEN 

.BU  ,CK  ,XPI 

. XP  2 

ooOooo 

0011  I 

9^ 

• Y P | . YP2  .UCRACK 

,|HAX  ,JHAX  , ] H A XH 

• JMAXM 

oooooo 

001  I 1 

9 • 

•KHaX  .KBAK  iKBARh 

, NDUHP  .NCYC  , ICR 

. JCR 

OOOOOO 

OOI  II 

9* 

•IJHAX  .IKHAXP  .SHALL 

,RtV  ,IStP  . jSEP 

• X SEP 

oooooo 

0011  1 

9^ 

• YSEP  , NNM AX  . HHH  A X 

.ZZPRT  . OELZZ 

oooooo 

OOI  12 

?• 

INTEGER  F .00  .FULL 

, SUR  iEHP  .BNO 

iFAK 

oooooo 

00112 

9^ 

• .part  .shall  .rev 

booooo 

OOI  13 

9 • 

OAT  a FULL/I/SUR/VEHP/7/BN0/I0/FAIC/13/UB/I  6/p  aRT/S/ 

oooooo 

00123 

9 • 

OATA  REV/IS/SMALL/I*I/ 

oooooo 

00126 

9 • 

DEFINE  INDEX! ltJl-FLDI0.l8.FII.JII 

ooOooo 

00127 

9 • 

DEFINE  NBIT(NB.nD)-FLD(36-NB 

. I »«P) 

oooooo 

00130 

9 • 

include  gelcmn.list 

oooooo 

00130 

9 • 

L ND 

oooooo 

00130 

9 • 

GELCMN  PROC 

oooooo 

00  I 3 1 

9# 

PARAME1ER  ^LMAXnS^ 

oqOooo 

00132 

9« 

PA* A ME  Ter  nGEL*5*wLNAX+  i 2 1 i H 

oooooo 

00133 

9* 

COMMON  /6lL  » / At>0L  10LMAX)  ,YR»jL  Ui  vPdUL  < X ) ,l*A A , T 

• 

oooooo 

i 
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00135 
00133 
00133 
00133 
00133 
00131 
00135 
00135 
00  K 3& 

oom 

00111 

oom 

00116 

00117 

00150 

00151 

00152 

00153 
00151 
00155 

00155 

00156 

00157 
00162 
00163 
DO  161 


• I OU  HP  * I PLOT  ♦ I Cu  l T • 1 Oh  #N  A rtt*  1 I 2 )•  SmmSS  . 1 KH  A A 

• , SMOH.UBUUQLMAA)  »VBUlI<JLMa*  ) 

• , ACC  ,GOT  ,SVtL.L.ISP,  VZLRJ 


9 • 

1C» 

1 1 • 
12* 

1 3* 
I1« 
15* 
1 6* 
17* 
1 8 • 
19* 
20* 
Zf 
22 • 

2 3* 
21* 
25* 
26* 
27* 
2M 


END 

COMMON/FORC/POKCC 
F QRC£»0 • u 

LOOP  THROUGH  CELLS 

DO  100  J-2# JMAXH 
00  100  I ■ 2 » IHAXM 

• ♦ CALCULATE  ONlY  FOR  OB  CELLS. 

I F 1 NB I T ( OB  • F < I • J > l • NE • l ) 60  TO  IOC 
1 J-lNOEXt I tJ) 

SI30B-SI3C I ,J> 

S330B-S331 l i J) 

PROB»POB< l J) 


C 


ICO 


RBAR-XBl l J) 

CALL  A V 1 5 ( QR • Q T , l , J) 

TMPI* (FY ( I . J)-PY( | ♦ J-l  ) ) /JY ( Jl • CS33O0-PROB-^T  > 


THP2-«FXCl,J)-FX(i-l,3))/Dx(n*Sl308  irr7Tf  r- 

....  AUD  FuRCE  OF  CELL  TO  T 0 f A L FORCE  UN  PROJECTILE. 
FORCE»FORCE-TAU(l  i»DY(J)«RbAP/rt(  l)*(TrtP!MHP2) 


CONT I NUE 


FORCE--FORCE 


2 9 • RETURN 

3Q*  END 


000000 
000000 
000000 
000000 
oooooo 
oodooo 
oooooo 
oooooo 
oooooo 
000023 
000023 
000026 
000035 
OOOOH 
000093 
000095 
000097 
ooOosi 
000057 
000047 
000067 
000079 
OQO 111 
OQO 1 1 1 
000113 
000192 


END  OF  COMPILATION:  NO  diagnostics. 


UHOg 


AKt  AS 
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AHEAS 


UFOR.S  aNEAS 

FOR  SE2C-0»/l?/7S-£,9:36:  J 7 (3.1 

SU0ROOT t NE  AREAS  ENTRY  POINT  000370 


storage  used:  code 1 1 > 0003775  o*ta(Oi  oooosoj  blank  commonmi  000000 

COHHUN  BLOCKS: 

0003  ARRAYS  IOOISI 
OOOR  PARANS  000073 
OOOS  GEL  I 000R2R 


EXTERNAL  REFERENCES  (BLOCK,  NAME) 


0006  PRESET 

0007  CELL 
OOtO  RESET 

0011  bnocel 

0012  NERR6S 

0013  NERR3S 


STORAGE  ASSIGNMENT  (BLOCK,  TYPE,  RELATIVE  LOCATION,  NAME) 


0001 

000026 

1 0 1 L 

0001 

000037 

I02L 

0001 

OOQUSI 

I03L 

0001 

000101 

10*L 

0001 

000I2S 

I07L 

0001 

00013* 

10*L 

0001 

000226 

I 1 3L 

0001 

000231 

HU 

0001 

0002R? 

l 1*L 

0001 

0003R2 

l l*L 

0001 

0003R* 

I20L 

0001 

000013 

|37g 

0003 

07673  R 

AFOB 

0003 

075*05 

ALN 

0003 

0127S2 

ahx 

0003 

075667 

BEN 

OOOR 

OCOOIR 

BETA 

OOOR 

I 

000003 

8N0 

0003 

10010* 

CD 

OOOR 

00003* 

CK 

OOOR 

•00032 

COMPEN 

OOOR 

000007 

DT 

OOOR 

000023 

OTCP 

ODOR 

000o2l 

dtdump 

0003 

07R7S7 

DXP 

0003 

R 

075272 

DY 

0003 

07SH7 

0 Y P 

0003 

l 

0*1235 

F 

oOOR 

I 

OUCOQR 

FAK 

0003 

0763R3 

FB 

0003 

07*115 

FL 

0003 

07*177 

FR 

0003 

07*2*1 

FT 

0003 

R 

025  7 2 R 

FY 

OOOR 

000010 

G 

coos 

000120 

GOT 

OOOR 

000055 

ICR 

0303 

077162 

ICRACk 

OOOS 

000230 

iPUMP 

OCOS 

000251 

UMAX 

COOR 

000060 

IKMAXP 

CG03 

0775  1 R 

lH  AS 

0000 

00001 R 

INJPS 

ocoo 

I 

CO000R 

IP 

OOOS 

0C023I 

I PLOT 

0000 

I 

ooooo* 

|2 

0000 

I 

000002 

J 

OOOR 

oooos* 

JCR 

OOOR 

0000R5 

JMAX 

OOOR 

0000R7 

JMAXM 

0000 

I 

OOOOOS 

JP 

0000 

l 

000003 

K 

OOOR 

OOOOS l 

kbar 

OOOR 

I 

oaou&2 

KBARM 

OOOR 

000070 

MMHAX 

OOuS 

00023R 

NAME 

OOOR 

OOOOSR 

NCYC 

OOOR 

l 

000005 

OB 

OOOR 

OOOOO* 

OBFUL 

0003 

053*50 

P 

OOOR 

000027 

PM  l N 

0CC3 

07701* 

POB 

0033 

07RS53 

R 

OOOR 

000012 

RhOZ 

0003 

07R*55 

RPL 

OOOR 

000033 

SHEN 

OOOS 

000252 

SMOM 

OOOR 

S0003R 

SPEN 

OOOR 

l 

000301 

SUR 

0003 

0R0*7* 

S13 

0003 

01*263 

533 

09  jS 

000227 

T 

OOOR 

000023 

1 &UMP 

uOJR 

003017 

tlast 

OOOR 

3UOj2* 

TP 

0003 

076632 

T 

w 00  3 

076673 

T33H 

0 0 0 3 

93J0CS 

U 

0001 

oooos* 

0001 

000IRS 

0001 

000250 

00q3 

077773 

OOOR 

000015 

OOOR 

00001* 

OOOR 

000072 

0001 

000025 

OOOR 

I 

000002 

0003 

0777R2 

OOOR 

I 

000000 

OOOR 

000013 

0005 

000232 

OOOR 

OOOORR 

OOOR 

0000*3 

0003 

077307 

OOOR 

oooo*R 

OOOR 

000050 

OOOR 

000053 

0000 

I 

000000 

OOOR 

I 

0000*2 

OOOR 

I 

000061 

OOOS 

000R2 1 

0003 

0755RR 

0003 

077*60 

0305 

000253 

10*»L  0001 

iiol  oaot 

I I 7L  0001 

AA  OOOS 

AP  000° 

BP  OOOR 

OELZZ  OOOS 

DTP 
EMP 
FF 

FULL 
HMU 
IED1T 
IMA* 

I SEP 
JCRACK 
JSEP 
KMAX 
NOUHP 

part 
REV 
SHALL 
SVEL 
TAU 

TT  OOOR 

UdUL  OOOR 


000067  IOSl 

oooisi  1 1 IL 
00Q2S5  | ML 
O00RI7  ACC 
OOOOll  AS 
00003S  BQ 
000R22  0|Sp 
07R 7 1 6 OX 
EPS 
FPAA 
FX 
I 

ijhax 
IMAXN 
ISTOP 
JMAS 
J2 

LMAX 
000067  NNHAX 
0001RR  PBUL 
076571  RHOVB 
000250  SHASS 
033311  Sll 
000022  TCP 
000026  TTOTAL 
O000R3  UCNaCK 


0003 
OOOR 
0003 
6003  R 
0000  1 
OOOR 
OOOR 
OOOS 
0003 
0000  I 
OOOS 
OOOR 
OOOS 
6003 
OOOS 
0003 
OOOR 


000031 

10OO2R 

020337 

000001 

000057 

0Q00R6 

000233 

077576 

000007 

000225 
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AN  E aS 


0003  077353  UOB 

0004  030030  VSCALE 

0003  075751  XB 

0003  R 074614  XPL 
0003  076033  YB 

0003  R Q 7 5 1 4 5 YPL 
0304  000071  ZZPRT 


00J3 

OwiS  J6S 

V 

03D3 

ILOOSS 

CCDS 

SCOOcO 

ABUL 

OOJR 

300037 

API 

0335 

0U0C62 

YBUL 

33JM 

OUOOR  1 

YP1 

or  js 

CC0335 

vbul 

*j  C 3 3 

13wii37 

V V V 

*CC3 

0 7 7 i 0 0 

ACT 

3034 

300040 

*P2 

0033 

076507 

YCT 

0004 

00C042 

YP2 

0033  076425  VFOB 

3305  000423  VZERO 

0030  R 300011  XF 
0004  300065  XSEP 

0000  « 000010  Y F 
0004  00006^  YSEP 


0003  077432  VOB 

0003  074512  X 

0003  R 066622  XK 
0003  075020  Y 

0003  R 071556  Y* 
0003  077711  Z2 


00101 
001  01 
00101 
00101 
00101 
00101 
00103 
00103 
00103 

00103 

00104 

00105 

00106 
00107 
001  10 
001  10 
001  10 
001  10 
001 10 
001  10 
001  10 
001  10 
00110 
00110 
001  10 
001  10 
001  10 
00110 
0011  1 
0011  I 
0011  I 
00111 
001  I 1 
0011  1 
0011  1 
0011  1 
001  I 1 
00112 
001  12 
00113 
00123 
00126 
00127 


2* 

3* 

4« 

5* 

6 • 

7 • 
B« 

*• 

9* 

?• 

9 • 
9* 
9^ 
9« 
9* 
9 • 
?• 
9^ 
9 • 
?• 
9« 
9* 
9» 
9 • 
9« 
9 • 
9* 
9« 
9 • 
9^ 
9^ 
9^ 
9^ 
99 
99 
99 
99 
99 
9 9 
99 


SUBROUTINE  AREAS 

•••••••••••••< 

THIS  ROUTINE  CALCULATES  AND  STORES  FRACTIONAL  AREAS* 


£••••••••• 


£«••##•••••••••••*••••••••••< 

INCLUDE  COM, LIST 


COM* 


r i c.  r%  nr  « ™ 3 ' 

COMMON/aRRATS/UIID.JD) 
•FX(IO,JO>  ,FY<|0,JD) 


••••  PRESET  FRACTIONAL  AREAS, 

PROC 

PARAMETER  1D»33  ,JD»8S  • KD'MSOO 

PARAMETER  LD* I 50  .NNDIH-2S  ,MMDIM«10  -w  . H uu. ■ M 

PARAMETER  NARR-I0*ID*JD*I I •|0*4»J0*I 7* I JD*2«KO*'*NNOln*nnoiM 

PARAMETER  NPAR"5» 

,V( 10, JOT 
,Sl I ( ID, J0> 

,F(  I0.JD) 

, R I ID) 

,DXP< 10) 

, DTP! JO) 

,XB(  I JO) 

,FT(  I JO) 

.RHOVB (10) 

, P 08 ( | JO) 
i UuB ( | JD  > 

, T T <nno 1 M ( 

, FF  A A INNO 1 M ) 


• S3  3 ( 10 , JO) 
•TK(KD) 

• RPL  < 10) 
•YPLT JO) 

• ALNI I JO) 

• FLI 1 JO) 

• VFOBt I JO  > 

• T 330  C 10) 
•ICRACKt JO) 

• 1MASC I JO  > 
•FF(RNOIM) 


,P(  lU.JO) 

,x< io> 

,ox(  i o t 

,0Y« JO) 
,8EN(  I JO) 
,FR(  | JO) 
,YCT( 1 JO) 

, AFO(j  ( | JO) 
.JCRaCM  10) 
, JMAS ( I JD) 

, AA(HNOIM) 


,NO»IZ  ,|J0-5O 


, AMX I lo  , JD) 
, S | 3 < ID. JO) 
.XKIKO) 

, XPL  1 1 0 ) 

, Y ( JO ) 
.TAUlIol 
,YBt I JO) 
,F8( I JO) 

, T 1 38 1 1 0 ) 
,XCT( I JD) 
,V08(  1 JO) 
.ZZlNNjiM) 
,V* (NNOIM) 


• C01NND  |M  ) • VW  iHhOIM) 

• oNO 

. F A X 

COMMON/PARAfIS/ 

FULL 

• SUR 

.EMP 

• 

• OB 

•obful 

* OT 

• G 

• AS 

• RHOZ 

.HKU 

i 

• BETA 

. AP 

• BP 

•TlAST 

• t Dump 

.OTOUMp 

• Tc  ^ 

• 

•OTCP 

• TP 

• OTP 

•ttotal 

• p h i n 

.VSCALE 

• EPS 

» 

•COMPEN 

,shen 

• SPEN 

• 8U 

• CK 

• xpi 

. X P 2 

• 

♦ YP  1 

• YR2 

•ucRack 

♦ 1MAX 

• JMaX 

, |MAXM 

• JMAXM 

• 

• KM  A X 

» KB  AK 

•KBARM 

.NOUMP 

• nc  y c 

• ICR 

• JC  R 

• 

•1JMAX 

• Y S E P 

• ikmaxp 

* NNMA A 

•small 
• MMM A X 

.REV 

•ZZPRT 

• 1SEP 
•OEl** 

• JSEP 

.XSEP 

• 

INTEGER 

F *0D 

• FULL 

.SUR 

.EMP 

• bNO 

• FAX 

• ,PAMT  .SHALL  ,KEV 

data  fjll/i /sur/n/emp/F/bnd/ )C/f»k/i 3/ub/i*/paRT/s/ 

DATA  RtV/l5/SMALL/n/ 

DEFINE  I NOE  X ( I ,J)«FLO(3, U,F ( ( ,J)  I 
DEFINE  Ha  I T ( NB  , «0  ) LO  ( 36-  , l,<*t>T 


oooooo 

000000 

600000 

oooooo 

OOOOOO 

oooooo 

oooooo 

oooooo 

OOOOOO 

oooooo 

oooooo 

OOOOOO 

oooooo 

OQOOOO 

ooOooo 

006000 

Oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

006000 

0000*0 

oooooo 

oooooo 

oooooo 

OOOOOO 

OOOOOO 

oooooo 

oooooo 

oooooo 

OOOOOO 

oooooo 

OQOOOO 

oooooo 

oooooo 

0000*0 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 
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00130 

00130 

00130 

00131 

00132 

00133 
00133 
00133 
00133 
00133 
00133 
00  131 
00131 
00135 

00135 

00136 
00136 
001M 
00112 
00  113 
OOH5 
OOH6 

00150 

00151 

00152 
00151 
00155 
00157 
00160 
00  1 62 
00163 
00161 
00166 
00167 
00167 
00171 
00171 

00176 

00177 
00200 
00201 
00202 
C0203 
00203 
002OH 
00201 
00205 
00207 
00207 
0021  1 
0021  2 
00212 
0C21 1 
00216 


9* 

9* 

9* 

9* 

9* 

9* 

9 • 
9* 

9 • 
f* 
9 • 
10* 
l !• 
12# 

1 3 • 
11* 

1 5 • 

1 6 • 
17* 

1 8 • 
t 9 • 
20» 

2 1 • 
22* 
23* 
21  • 
25t 
26* 
27  • 
28* 
29# 
30* 
3 1 • 
32* 
33* 
31  • 
35* 
36* 
37* 
38  • 
39* 
10* 
1|# 
12* 
13* 
11# 
15  • 
16® 
17  • 
18* 
19  • 
SO* 
5 1 • 
52* 


INCLUDE  (jEUCMH,LIST 

END 

GELCMN  PROC 

parameter  QLHAX«5u 

PARAMETER  N6EL»5*gLHAX*|24l1 

COMMON  /GEL  1 / XD^L 1 ^LMAx ) • T8UL 1 QlM AX ) ,PBUt < QLHAX ) f LMAX  , T » 
, 1 DUMP » 1 PLOT , lEplT , iSjOP.NAMt < 12)  .SmaSS , IKMaX 

• • $MOrt#UbUL(QLHAx) •VBUlIQLMAX) 

• .ACCiGOT tSVELiO ISP  ,V ZERO 


ENO 

CALL  PRESET 

FIND  I » J FOR  PARTICLE  NO  I • 

CALL  CELL ( I t Ji 1 ) 

LOOP  THROUGH  MARKER  PARTICLES. 

DO  120  K * 1 .KBARM 

[•••••«•#•  FIND  1P.JP  FoR  PARTICLE  NO  K*l 
1 P*  I 

jp*  j 

IF(XMK*I  1 .LT.XPLi  11  1G0  ro  1 02 

101  I P" 1 P* I 

1F<XK(K«I  I .Gl.XPH IP1 >G0  TO  101 
60  TO  103 

102  IP-IP-1 

IF1XK1K+I I .LT.XPUl I P » 160  TO  102 
IP-IP*1 

103  IF1YKU*!  1 .LT.YPLUIIGO  To  105 
101  JP«JP*1 

IF1TMK+1  I .GT.YPLlJPl  >60  TO  101 
GO  TO  105 

105  JP«JP-I 

IFITK<A*I  I .LT.YPLi JPI 1G0  TO  105 
jp» JP* I 

106  IF  1 I ABS ( I-IPI .6T. 1 .OK. 1 ASS  1 J-JP  » *«T  » 1 iKETjRNO 
c. ........  IF  | • | P . GO  TO  108.  OTHER"  I SE  SET  12.J2. 

107  IF ( IP-l 1 10V. 108 , I 10 
I0»  1F( J.EO.JPIGO  TO  1 20 

GO  TO  1|*1 
10V  12-1-1 
J2-J-I 
GO  TO  III 

110  I2«l 
j 2 ■ J 

c. ........  fino  y of  point  ghere  particle  string  crosses  cell  edge. 

111  YF-YK(K*l  )*CYIC(K)-YkIa*)  1 l/CXKIICI»XKlK*l  1 I • ( XPL  1 12)— XK(K*I  1 1 
c. ........  If  yf  IS  not  BETAEfN  top  ano  bottom  of  CELL  I.J  60  TO  1 i h 

1FIYF.6T.YPLU)  ) 6u  TO  1 | *4 
IF! YF.LT • YPL( J-l 1 160  TO  1 | H 

...»  CALCULATE  FRACTIONAL  AREA  OF  cell  E06E. 

F X ( |2,J)-FX( I2,jl-ABS<YPL( J2*-Yri/0T( JI 
lF<FXU2.Jl.LT.C.jlFA<12.J)»IX(|2,J)*t.O 

SET  I FOR  CELL  PARTIClE  SIRING  Ha5  CHOSSEO  UTO. 

IF  I IP.gT  . 1 IGO  TO  I 13 
1*1-1 


000000 

oooooo 

000000 

OOOOOO 

oooooo 

oooooo 

oooooo 

oooooo 

OoOoOO 

oooooo 

OoOoOO 

OOOOOO 

oooooo 
000001 
000001 
000005 
000006 
OOOOIA 
000016 
000020 
000026 
000031 
000035 
000037 
0000*12 
0000*16 
000051 
000056 
0Q006I 
000065 
00^067 
000072 
000076 
000|0l 
000101 
000 | 25 
000(31 
000  I 31 
000 | 36 
0001*10 
000|H3 
000115 
000116 
000|16 
006 1 5 1 
000151 
000|70 
000173 
000 1 73 
000177 
000206 
000206 
00021 S 
000221 
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A‘<fc  AS 


002  | 7 
0C220 
00220 
00221 
00221 
0C22M 
00226 
00227 

00230 

00231 

00232 

00233 
00233 
0023  4 
002  34 
0023S 
00237 
00237 
00241 
00  2 M 2 
002MM 
002  M 6 
002  M 7 

00250 

00251 
0025  I 

00252 
00252 
0025** 
0025*4 

00255 

00256 

00257 


S3* 


GO  f U 114 


54* 

55» 

56* 

5 7 • 

5 6* 
59  • 
60# 
61* 
62  • 
63# 

6 M • 
65* 
66  • 
67* 
68» 
69» 
70# 

7 I • 
7 2* 
73« 
7 M • 
75* 
7 6 • 
7 7* 
78  • 

7 9* 
80* 
81  • 
82  • 

8 3 • 
8 M • 
85  • 


C 

C 


c 

c 

c 


113 

114 
1 1 -> 
1 16 

117 


I 18 


1«IM 

••••  cohPahe  jp  To  J* 

IFC JP-JI 1 16. I IS,  » l 7 

••••  | f l«I P AND  J*JP  GO  TO  l 20 • 

IFCI.EU*1P>  GO  TO  1 20 

GO  TO  107 

j2mJm I 

I2-I 

GO  TO  118 
J2»J 


...I  CALCULATE  X OF  POINT  ahERE  STRING  CROSSES  CELL  TOP  OR  BOTTOM# 

XF«*MK*  l >*(XK«K)-XKilC  + J ) )/(  TK  (<CJ»YX  «K*n  l»  <TPL«  J2)-TK(KM  » ) 

....  IP  XF  IS  NOT  BETWEEN  RIGHT  AND  LEFT  CELL  EOOeS  60  TO  107# 
IFIXF.6T.XPLI  I )J6o  TO  107 
IFIXF.LT.XPLl  l-l  > )60  TO  t C 7 

>••••  CALCULATE  FRACTIONAL  ARtA  FOR  TOP  OR  BOTTOM  OF  Cl  l. 

FT < I . J2 I “FT I I i J2I-ABSI XPL l 1 7 » • • 2- A F • • 2 » / I XPL'l»».2-XPLII«l>  ••21 

IFIFYI1,J2I.LT.l*JIFTU.J2I»FT11.J2)*|.0 

IF(  JP.LT.JI60  TO  I l» 

J»  J*  I 


60  TO  107 

119  J«J-I 

GO  TO  107 

PROCEED  TO  NEXT  PARTICLE. 

120  CONTINUE 

*••••...  RESET  FRACTIONAL  AREAS  FOR  OB,  FaK 
CALL  RESET 

........  SET  U,  V AIIO  HASS  FOR  BND  CELLS. 

CALL  BNDCEL 
RETURN 


OR  EMP  CELLS. 


END 


000229 
000226 
000226 
00021 1 
000231 
00<>23S 
000290 
000292 
000299 
000296 
0002SO 
006251 
0002S1 
0062SS 
0002SS 
000279 
000277 
000277 
000303 
000322 
000331 
000335 
000390 
000392 
000399 
006399 
000397 
000397 
000397 
000397 
0003S1 
000353 
000376 


END  OF  COMPILATION; 


NO  0 I ALMOST IcS. 


0HD6 


AMMO 
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fcFOR.S  ARHO 

FOR  SE2C-09/19/75-09!3i:20  » 0 . » 


ARllO 


FUNCTION  ARHO  t H T R T POINT  OOOIG7 

STORAGE  USEO:  COOE(I)  OOOIIS;  DaTA(O)  OOOOl A:  BLANK  C0HM0N12)  oooooo 

common  blocks: 

0003  ARRAYS  1001SI 

0004  PARAMS  000073 

0005  GEL 1 000424 


EXTERNAL  REFERENCES  (BLOCK,  NAME) 
000 A NERR3* 


STORAGE  ASSIGNMENT  (BLOCK,  type,  relative  LOCATION,  NAME) 


0001 

OOOOSI 

1 0 I L 

0003 

075605 

ALN 

0003 

075667 

BEN 

0003 

100106 

CD 

0004 

000007 

DT 

0003 

074757 

OXP 

0003  I 

06)235 

F 

0003 

0761  IS 

FL 

0003 

025724 

FY 

0003 

077162 

! CRACK 

OOOS 

000251 

I KMAX 

0000 

000006 

1NJPS 

0003 

077307 

JCRACK 

0004 

OOOOSI 

KBAR 

OOOS 

000234 

NAME 

0004 

000006 

08FUU 

0003 

0770  1 A 

POB 

0003 

074ASS 

RPL 

0004 

000034 

5PEN 

0003 

046263 

S33 

0004 

000017 

tlast 

0003 

076673 

T 3 30 

0003 

00S3AS 

V 

0004 

000030 

VSCALE 

0003 

075751 

XB 

0004 

000037 

XPl 

OOOS 

000062 

YBUL 

0004 

CC0042 

TP2 

0001 

000073 

1 IOL 

0003 

R 

012752 

AMX 

0004 

000014 

BETA 

0004 

00003 A 

CK 

0004 

000023 

OTCP 

0003 

R 

075272 

OY 

0004 

I 

00000** 

FAK 

0003 

07A177 

FR 

0004 

000010 

G 

OOOS 

000230 

I DUMP 

0004 

OOOOAO 

IKHAXp 

OOOS 

00023) 

IPLOT 

0003 

07757A 

JhAS 

0004 

CGC052 

Kb  ARM 

0004 

00006** 

NCYC 

0003 

053650 

P 

0003 

074553 

R 

0004 

000033 

SHEN 

0004 

1 

ooooci 

SUR 

OOOS 

000227 

T 

0004 

000024 

TP 

0003 

oooooo 

U 

OOOS 

000336 

VBUL 

0003 

1 cooss 

W 

OOOS 

OOOOOO 

XbUL 

0004 

00004b 

XP2 

0003 

07A5Q7 

YCT 

00U4 

OC006 A 

YS£P 

0003 

077773 

AA 

0004 

OOOOli 

AP 

0004 

t 

000003 

BNO 

0004 

000032 

COHpEN 

0004 

000021 

OTDUMP 

0003 

075417 

DTP 

0003 

076343 

FB 

0093 

07A26I 

FT 

OOOS 

000420 

GOT 

OOOS 

000232 

1EDJT 

0003 

077514 

JHAS 

0094 

OOOUA3 

tSEP 

0004 

000045 

UMAX 

0004 

OOOOSo 

KM  A X 

0004 

OOOOS3 

NDUMP 

0090 

1 

000901 

PART 

0004 

1 

000062 

REV 

0004 

1 

0000 A 1 

small 

OOOS 

000421 

SVEL 

0003 

n 

07SS44 

TAU 

0003 

077660 

TT 

OOOS 

000253 

UBUL 

0000 

n 

000002 

VF 

0003 

100137 

VVV 

0093 

077100 

XCT 

0094 

000065 

XSEP 

9033 

07ISS6 

YK 

0003 

07771  l 

22 

OOOS 

000417 

ACC 

0000 

R 

oooooo 

ARHO 

0004 

0000 1 A 

BP 

0004 

000072 

DELZZ 

0004 

000025 

OTP 

0004 

1 

000002 

EMP 

0003 

077742 

FF 

0004 

1 

OOOOOO 

FULL 

0004 

000013 

HHU 

0000 

1 

000003 

I J 

0004 

000044 

| MAX 

OOOS 

000233 

ISTOP 

0004 

000047 

jmaxm 

0005 

000226 

lhax 

0004 

000067 

NNMAX 

OOOS 

000144 

PBUL 

0003 

076571 

RHOVB 

OOOS 

000250 

SMASS 

0003 

033311 

sii 

0004 

000022 

TCP 

0004 

000026 

TTOTAL 

0004 

000043 

ucrack 

0003 

R 

07442S 

yfob 

ooas 

000423 

V2ER0 

0003 

066622 

XK 

0003 

075020 

Y 

0003 

07S14S 

tPL 

0004 

000071 

Z2PRT 

0003 

076734 

afob 

0004 

00001 1 

AS 

0004 

000035 

BQ 

OOOS 

000422 

DlSp 

0003 

0747J* 

DX 

0004 

000031 

EPS 

0003 

100024 

ffaa 

0003 

020337 

rx 

0004 

000055 

ICR 

0004 

000057 

IJHaX 

0004 

00064* 

imaxm 

0004 

000056 

jc* 

0004 

000064 

JSCP 

0004 

000070 

MMMA* 

0004 

1 000005 

OB 

0004 

000027 

PM  1 N 

0004 

R 0000)2 

RHQZ 

OOOS 

000252 

SMOM 

0003 

040*7* 

S|3 

0004 

000020 

TdUmP 

0003 

07**32 

T 1 

0003 

077350 

UOB 

0003 

077432 

VOB 

0003 

074612 

X 

6003 

074* J 4 

XPL 

0003 

07*633 

yb 

0004 

000041 

YPI 
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ARrfO 


CD  I 0 I 
OOIOI 
00 1 Q I 
OOIOI 
OOIOI 
OOIOI 
OOIOI 
00103 
00103 
00103 
0010*4 

00105 

00106 
00107 
001  10 
001  |0 
001  10 
001  10 
001  10 
001  10 
001  10 
001  10 
00110 
001  10 
001  10 
001  10 
001  10 
001  10 
00 1 1 I 
001  I I 
001 1 I 
0011  I 
001  I I 
001  I I 
001  I I 
0011  I 
001  I I 

001  I 2 
00112 
001  13 
00 1 23 
00126 
00127 
00130 
00130 

00130 

00131 

00132 

00133 
00133 
00133 
00133 
30133 


I • 
2* 

3 • 

H • 
5* 

6 • 
7* 
8* 
?• 
9^ 
9^ 
9^ 
9* 
9* 

9 • 

9 • 
9* 
99 
9 • 
9* 
?• 
9* 
9* 
9* 
9* 
9* 
9* 
9^ 
9^ 
9* 
9* 
9^ 
9 • 
9® 
9 • 
9* 
9® 
9^ 
9 • 
9 • 
9 • 
9 • 
9 • 
9 • 
9 • 
9 • 
9* 
9* 
9^ 
9* 
9* 
9* 
9* 


,#••*•••#•••••••••*• 


FUHC  T ION  ARHO  « I , J i 

£••••«• •••*••••••••••••••••••••  ••••#••••••••• 

AKHO  CALCULATE  THE  DENSITY  FOR  CELL  l»J*  DEuS  ITY  IN  SUR 

c. ........  CELL  IS  CALCULATED  AS  IF  HASS  AAS  SPREAD  OVER  ENTIRE  CELL. 

£••••••• 

Q •••••• * 

include  com. list 


•«•••••••••• 

«••••••*•••• 


»•♦#**••••#•••••••••••* 


»•••••••••< 


<:•••* 

COM* 


PROC 

PARAMETER  ID-33  .JD-85 

parameter  LD-ISO  »NNDIM-2S 
parameter  narr-io*id*jd*ii* 


.KD-ISOD  , NO-12  . I JD*SO 

.HMD JM-IO 

ID*5*JD*17*IJ0*2*KD^7«NN0IM#MMDIM 


PARAMETER  npar-sv 

C0MH0M/ARRAYS/U( Id.JD) 

.VIIO.JDI 

. A M X I U • JD  ) 

•FX( ID. JD) 

i F Y 1 iD,  JD) 

,S  IK  ID.  JU  1 

• S I 3 C u.  JD) 

• S3  3 < ID. JD) 

.P ( Id. JD) 

,F 1 id.jdi 

•XK(KO) 

• YKUO) 

.X«  Iy) 

, R 1 ID) 

.XPL1  ID) 

• RPL II D ) 

• DX  « I 0 ) 

iD*PC  TO) 

, Y ( JO  ) 

•YPLI JD) 

,DY< JD) 

,DTP( JO) 

.TaUI ID) 

• ALN ( I JU ) 

. 8 E N ( UO) 

, Xd  < I Jl>  I 

» Y 9 I I JD) 

•FL< l JD) 

, F R I I JO) 

,FT  I I JD) 

.FBI  I JO) 

• V FOB ( I JD) 

,YCT( I JD) 

. RHOVB I I D 1 

VT|3B< ID) 

•T33BI ID) 

•AFOqI I JD) 

. POB  I | JO  1 

, XC  T | I JD ) 

• I CRACK { JD ) 

, JCRaCX( ID) 

• UUB<  I JD) 

. V OB  I 1 JO) 

• IMASI I JD) 

, JMASC I JD) 

.TTINNDIM) 

.22INNDIM) 

•FF(NNDIM) 

• AA(NNQIM) 

.FFAA(NND)M) 

.VVINNOIM) 

•C0INND1M)  , VVV(MMDIM) 

COMMON/P A RAMS/  FULL 

i SUR  .EHP 

• bND 

• OB 
•BETA 

• DTCP 
•COMPEN 
•YPl 

• KMAX 
•UMAX 

• YSEP 
INTEGER 


» O0FUL 

• AP 
.TP 

• shen 
. YP2 

• KBAR 

, IKMAXP 

.nnmax 
F .OH 


iOT 

• BP 
.OTP 
.SPEN 
.UCRACK 
iKBARM 
•SMALL 

» MMM  A X 

• FULL 


« G 

,TLAST 

.ttotal 

.BJ 
. I HA* 

.NOUrtP 

.REV 

.2ZPM 

.SUR 


• AS 
.TDuHP 
.PHIN 
. C A 
, JMaA 
.NCYC 

. IStP 

.OELZZ 

,EMP 


.dTDUMP 
. VSC ALE 

• XPI 

. I MAAM 

.ICR 
. JSEP 

.bnd 


FAX 

HMU 

TCP 

EPS 

XP2 

JHAXH 

JCR 

XSEP 

• FAX 


. .PART  .SHALL  ,REV 

DATA  FULL/l/SUS/H/EMP/7/BND/IO/f  AX/I3/UB/I6/PART/S/ 
data  rev/15/shall/i h/ 

DEFINE  INDEXC I . J)»FLOIO, I8.FC  I , J>  ) 

DEFINE  NBITINB.«Dj»FLD(36-NB.I»#DI 
INCLUDE  GELCHN.LIST 

END 

GELCHN  PROC 

PARAHETER  QLHAX-Sj 
PARAMETER  NGEL*5*WLHAX*|2»iV 

COMMON  /GEL  I / XoUlIQLMaX  I . YBOL ( GlMaX ) .PBUl lOLMAX ) ,LHAX  ,T  , 

. I DUMP, I PLOT, | Eu IT , |StOP,NaME(I2>  .SMaSS. IKHaX 
• , SM0M,U3UL«QLMAa» .vbulcolmaxi 

. .ACC.GDT.SVEL.uISP.VZCRo 


ooooos 

ooooos 

OOOOOS 

ooooos 

ooooos 

ooooos 

ooooos 

ooooos 

ooooos 

ooooos 

ooooos 

ooooos 

ooOoos 

ooooos 

ooOoos 

ooooos 

ooooos 

ooooos 

ooooos 

ooooos 

ooooos 

ooooos 

ooooos 

ooOoos 

ooooos 

ooooos 

ooooos 

OoOOOS 

OoOoos 

ooooos 

ooooos 

ooooos 

ooooos 

ooooos 

ooooos 

ogooos 

ooooos 

OOOOOS 

OOOOOS 

OOOOOS 

ooooos 

ooooos 

ooooos 

OOOOOS 

ooooos 

OOOOOS 

OoOoos 

ooooos 

OOOOOS 

OoOOOS 

OOOOOS 

OOOOOS 

OOOOOS 
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AKMO 


00133 
00139 
00139 
OOI3S 
CO  I 37 
00  I MO 
00192 
00  M3 
00M3 
00199 
00199 
00196 
00M7 
OOISI 
Q0IS2 


0HOO 


9» 

10* 
1 I • 
12 • 

I 3# 
19* 
15» 
16» 
17* 
Ifl» 

1 9 • 
20» 

2 | • 
22* 
23* 


END 

ARH0*0 • 0 

#•»«•••»•  FUR  ENP  OR  F*K  CELL.  DEN51TY«0#G. 

IFCNBiriEHPfFfl.JlMEQ.I.oHtNBITCFAKtMlijIMEtt-DCO  T0  110 

V F" I «0 

I F ( NB I T ( OB • F ( I i J ) » • Nt  • l ) 60  TO  101 
t J-INDEX IliJ) 

V F* VF  Ob ( I J) 

•••••»»..  IF  HASS  LESS  THAN  0«C.  DENSITY-O.U* 

101  IF  * AHX i I • J) »LE*0*OJ GO  To  110 
»••••••••  calculate  DENSITY# 

ARHO»AHX( 1 . J>/<TAU< I 1 •OY  C J I 9 VF I 

IF ( ABS( aRH0-RH02)/RHO2*lT.  I . E-6  ) ARhO«RMOZ 

110  RETURN 
END 


OOOOOS 

000005 

000005 

000006 

000032 

000039 

000093 

000096 

000096 

000051 

000051 

000053 

000061 

000073 

000119 


END  OF  COMPILATION: 


NO  DIAGNOSTICS. 


AVIS 


wfor.s  AVIS 

FOR  S£2C-09/l9/75-0?:36:22  <C.) 


AVJ5 


SUBWOUTIML  avis  ENTRY  POINT  C006U 


STORAGE  used:  COOEin  000*76;  DATA(O)  U00030:  SLARK  C0X«0N,2,  “OOOOO 

COMMON  blocks: 

0003  ARRAYS  I00IS1 
OOOM  PAR A MS  000073 
OOOS  GEL  1 000M2M 


EXTERNAL  REFERENCES  (BLOCK,  NAME) 

0006  RHO 

0007  ALOG 

0010  SWRT 

0011  NERR35 


** 

iQ 

(D 


BLOCK,  TYPE,  RELATIVE  LOC 


STORAGE  ASSIGNMENT  ( 


0001 

oooiss 

1 0 1 L 

0001 

000S03 

10*L 

0003 

07*731 

AFOB 

0003 

0756*7 

BEN 

0000 

R 

00000* 

C 

OOOS 

000122 

DISP 

0000 

R 

000001 

DU 

0003 

075117 

DYP 

0003 

07*313 

FB 

0003 

07*2*1 

FT 

OOOS 

000120 

gdt 

OOOS 

000232 

iedit 

0001 

000011 

1 MAX 

OOOS 

000233 

1ST0P 

0001 

000017 

JMAXM 

OOOS 

00022* 

LMAX 

0001 

0000*7 

nnmax 

OOOS 

ooom 

PBUL 

0000 

R 

00000 1 

RH 

0001 

000033 

5HEN 

0001 

1 

000001 

SUR 

OOOS 

000227 

T 

0001 

000017 

TLAST 

0003 

07**73 

T33B 

0000 

R 

000302 

UR 

0003 

077132 

Y0& 

0003 

100137 

vvv 

0003 

077100 

XCT 

0001 

0002|  1 

I02L 

0001 

000S33 

107L 

0003 

075*0S 

ALN 

0001 

000011 

BETA 

0003 

10010* 

CD 

0001 

000007 

DT 

0000 

R 

00001 1 

DV 

0001 

1 

0000C2 

EMP 

0003 

077712 

FF 

0001 

1 

000000 

full 

0001 

000313 

HMU 

0001 

0C0057 

UMAX 

0001 

00001* 

1NAXM 

0001 

00005* 

JCR 

0001 

000C*1 

JSEP 

0001 

000070 

MHMAX 

0001 

1 

OOOOQS 

OB 

0001 

0UO027 

PH  IN 

300* 

R 

000000 

RHO 

0001 

I 

0000*1 

SMALL 

OOOS 

000121 

SVEL 

0003 

075511 

TAU 

Q0O1 

000021 

TP 

0033 

R 

000000 

U 

0030 

R 

000007 

UT 

0000 

R 

000303 

VR 

OOOS 

C001 23 

V ZERO 

0003 

06**22 

X K 

aTION,  NAME) 


0001 

0002MI 

I03u 

0001 

00U60I 

1 10L 

0003 

012752 

AMX 

ocoi 

I 

000003 

BNO 

0001 

R 

000O3+ 

CK 

O0U1 

00CJ23 

DTCP 

0003 

0 7m  7 1 A 

DX 

0001 

000U3I 

EPS 

0033 

10UQ2M 

FF  A A 

0003 

020337 

FX 

3001 

ooouss 

ICR 

OOOS 

000251 

I KM  A X 

CC30 

COOOI5 

INJP* 

3003 

077 J07 

JCR  ACK 

0031 

OODOS 1 

KBAR 

OOOS 

00023*1 

NAME 

0001 

00000* 

OBFUL 

0003 

07701* 

POB 

0003 

076571 

RHOVB 

OOOS 

CQ02S0 

SMASS 

0003 

033311 

SI  1 

0001 

000022 

TCP 

0003 

077660 

TT 

OOOS 

0002&3 

UBUL 

0003 

R 

O0S36S 

V 

0001 

000 j3o 

VSCALE 

0033 

07h512 

X 

uC  33 

0 7 m o | M 

XPL 

0001 

000307 

10ML 

0003 

077773 

AA 

0001 

R 

OOOOIS 

AP 

0001 

R 

00001* 

BP 

0001 

000032 

COMPEN 

0001 

000021 

DTDUHP 

0003 

071757 

DXP 

0003 

1 

0* 1 23S 

F 

0003 

07*1  IS 

FL 

0003 

025721 

FY 

0003 

0771*2 

1 CRACK 

0001 

0000*0 

IKHAXP 

OOOS 

000231 

X PLOT 

0003 

077S7* 

JHAS 

0001 

000052 

KBARH 

0001 

0000S1 

NCYC 

0003 

053*50 

P 

0003 

0716S3 

R 

0001 

R 

000012 

RH02 

000* 

000252 

SHOW 

0003 

010*7* 

S 1 3 

0001 

000020 

TOUMP 

0001 

00002* 

ttotal 

0001 

000013 

UCR ACK 

000* 

000335 

VBUL 

OOoO 

R 

000010 

VT 

0003 

07S751 

X6 

0001 

000037 

XPi 

0001 

000H7 

lost 

0005 

000H7 

ACC 

0001 

000011 

AS 

0001 

R 

00Q03S 

II 

0001 

000072 

DELI? 

0001 

00002B 

DTP 

0003 

075272 

DT 

0001 

1 

oooooi 

FAK 

6003 

07*177 

FR 

0001 

000010 

G 

6005 

060230 

IDUMF 

0003 

077S11 

IRAS 

0001 

0000*3 

1 SEP 

0001 

OOOOIS 

JHAX 

0001 

oOoOso 

EMAX 

0001 

000053 

nduh* 

5000 

I 

OObOOO 

PA*T 

0001 

1 

0000*2 

REV 

0003 

071*55 

RPL 

6001 

000031 

SPEN 

6003 

0<*2*2 

533 

0000 

R 

000005 

th 

0003 

07**32 

T 1 3b 

0003 

077350 

UOB 

0003 

07*125 

VFO» 

0003 

100055 

VV 

OOOS 

000000 

XBUL 

0001 

000010 

XP2 
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A v 1 5 


oooh 

0003 

0003 


00101 

00101 

00101 

00101 

00101 

00101 

00101 

00101 

00101 

00103 

00103 

00103 

OOlOH 

00105 

00106 
00107 
001  10 
00110 
00110 
001  10 
00110 
001  10 
OOIIO 
00110 
00110 
OOIIO 
OOIIO 
OOIIO 
OOIIO 

00110 
0011  I 

00111 
001 1 1 
00111 
0011  I 
0011  I 
001  I I 
001 1 1 
001 1 1 
00112 
00 1 1 2 
00113 
00123 
00126 
00127 
00130 
0CI30 


000065  XSEP 
071556  yK 
077711  ll 


0003  075020  Y 

0003  Q75M5  YPL 

OOOH  0O0C71  2ZPRT 


0C33  076033  YB 

UOCH  OOOOHl  YPI 


0005  000062  YbUL 

OOOH  0000H2  YP2 


0003  076507  YCT 

OOOH  000066  Y SEP 


1 • 
2» 
3* 
<4* 
5* 
6* 
7® 

9* 

10* 

II* 

11* 

I I • 

I 1 • 
II* 

I I • 
11* 

1 I* 

1 I* 
l l* 
II* 
I l* 
l I* 
11* 
I I • 
II* 
1 I • 
II* 
I I * 
l l* 
It* 
ll* 
1 I* 
11* 
II* 
II* 
II* 
11* 
II* 
11* 
I 1 • 
11* 
11* 
It* 
I I • 
I I* 
I l* 


C*  ••• 
£•••• 

€•••• 

(•••• 

(«••• 


c.«' 

COM* 


SUBROUTINE  AV I S (QH  *QT . I , J ) 

.••••  THIS  ROUTINE  CALCULATES  THE  ARTIFICIAL  VISCOSITY  AT 

• ••••  THE  RIGHT  ED$E  <0*1  AND  TOP  * QT » OF  CELL  I . J.  ...... 





INCLUDE  COM, LIST  ...••••••••• 


common/aRRays/ui id. JO) 

• FX  I ID. JD ) .FYllD.JD) 


PR0C 

PARAMETER  1 D“33  .JD»85  >KD«ISOO  .ND«I2 

parameter  lo«iso  .nndim-zs  ,mmdim«io  u.IMiHI,.1h 

parameter  hahr«iu»io«jd*ii»io*5*jd«I7*ijd+2»kd*t#nndih*hmoim 

parameter  npar-sv 

.VIID.JD) 

.SI  I (ID.JOI 

•S33IID.JD)  .PIlD.JD)  .FIID.JDI 

• YK I KO ) .X  t I D » . R I 101 

• RPL(IO)  • 0 X ( ID)  iDXP(ID) 

•YPLIJDI  .OYIJO)  .DYP(JO) 

• ALNIIJOI  .BEN(IJD)  . X B I l JO  I 

•FL(IJD)  .FR(|JD)  .FTIIJO) 

•VFOB(IJO)  (YcTlIJOl  .RHOVBIIO) 

•T33BII0)  .AFObIIJD)  .PUBIIJD) 

• I CRACK  ( JO  ) .JCRaCMIOI  .UOB(IJO) 

• I MAS  I | JD  ) . JH AS ( I JD I .TTINNOIHI 

•FF(NNDIM)  .AAlNNDIM)  .FFAAINNDIM) 


. | UD”SO 


.AMXllo.jD) 
> S | 3 | I p • JD ) 
.XK(KD) 
.XPL(Id) 

. Y I JD I 
.TAUI  ID) 
•YBl I JD) 
.FBI  IJ0> 
,T|3B( IDI 
,XCT| I JD) 

• VOB ( I JD1 
.ZZINNpJM) 

• winndihi 


• CDINNDIM)  , V V V ( NMD  1 M | 

.0ND 

• fax 

COMMON/PAR AMS/ 

FULL 

• SUR 

• EMP 

• 

• 00 

, OBFUL 

• OT 

• G 

• AS 

.RHOZ 

• hmu 

• 

• BETA 

.AP 

• BP 

•tlast 

•TDUMP 

.dtdump 

• TCP 

• 

• OTCP 

.TP 

• DTP 

•TTOTAL 

• PM  I N 

.VSCALE 

• EPS 

1 

•COMPEN 

, SHEN 

• SPEN 

• BQ 

• CK 

• XPI 

• XP2 

l 

• YP  1 

. YP2 

•UCRACK 

. IMAX 

• JMAX 

ilHAXH 

• JMAXM 

1 

• kmax 

• KBAR 

•KBARH 

• NDUMP 

.NCYC 

.ICR 

• JC  R 

l 

• UMAX 

• Y SEP 

, IKMAXP 
t NNMAX 

•SMALL 

•MMMAX 

• REV 
•ZZPRT 

• 15EP 
•DEL** 

. jSEP 

1 XSEP 

# 

integer 

F .OB 

• FULL 

• SUR 

• EMP 

• BND 

• FAX 

. .PART  .SMALL  ,RfV  . 

DATA  FULL/  I/SUR/1/EMP/7/BN0/I0/FAK/I  3/OB/U/PaRT/S/ 

DATA  rev/is/shall/ir/ 

DEFINE  INDEX! I , J ) «FLD (0 , I 8 . F I I • J ) ) 

DEFINE  NB|TCNB.«D)-FLD(3*-NB,I  »RD  I 
INCLUDE  GELCMN.LIST 


END 


000000 

000000 

606000 

oooooo 

000000 

oooooo 

0Q6000 

oooooo 

oooooo 

oooooo 

oooooo 

OOOOOO 

oooooo 

oooooo 

oooooo 

OOOOOO 

006000 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

006000 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

OOOOOO 

OOOOOO 

oooooo 

OOOOOO 

oooooo 

00O000 

OOOOOO 

oooooo 

OOOOOO 

OOOOOO 

oooooo 

oooooo 

006000 

oooooo 

006000 


Page  115 


AVIS 


00130 
00 1 3 I 
CO  I 32 
00133 
CO  I 33 
00133 
00133 
00133 
00133 

00131 
00137 
00110 

00111 
00112 
00112 
00111 
00116 
00150 
00 1 50 

00150 

00152 

00153 

00151 

00155 

00156 

00157 
0O1S7 
00157 
00161 
00162 
00163 
00161 

00165 

00166 
00166 
00166 

00170 

00171 
00 1 72 
00173 
00173 
00171 
00175 
00177 
00177 

00200 
00200 
00202 
00202 

00201 
00205 
00207 
0021  I 
002|l 


1 1 • 

CELCHN  PROC 

000000 

1 1* 

PARAMETER  (ILMAX-So 

000000 

1 1 • 

PARAMETER  NGEL*5*hLMAX*i2* | 1 

000000 

1 1 • 

COMMON  /GEL  1 / X BUL  < WLM A x 1 . Y BUL  I 8L M A X 1 , PBUL  « «LM  A X 1 , L M A X , T , 

000000 

1 1 • 

. 1 DUMP  , 1 PLOT •|EulT,|STOP,NAHE(lt)  .ShaSJ.IKHAX 

oooooo 

l 1 • 

• . SMOH.UBULCQLMAx) .VBUL(OlHAX) 

000000 

1 1 • 

• .ACC.GOT.SVEL.OISP.VZERO 

000000 

1 1 • 

c 

oooooo 

1 1 • 

END 

oooooo 

1 2* 

OATA  BO/.  I/CK/1,0E*8/ 

900000 

13* 

QR*0«0 

000000 

IN* 

QT-0.0 

ooOoot 

IS* 

RETURN 

000006 

•diagnostic* 

CONTROL  CAN  NEVER  REaCH  Tme  nE*T  STATEMENT 

14* 

IFINBIT1EMP.FI 1 . J ) 1 *EQ • 1 (GO  TO  110 

OOOOl 1 

17* 

1F(NB|T(FAK  .F( I , J) I .EQ. | .OR.NBIT (BND.F1 1 . J> I >C9. 1 >60  TO  101 

000021 

18* 

1F(NBIT(FAK.F(  1*1 ,J1 1 «EQ. I.0R.NBIT1BND.FI ( 6 1 * J 1 I • £9 • 1 I GO  TO 

102 

000017 

I?* 

IF  INBIT (FULL. F( 1 .J) 1 ,NE, | . OR . NB I T ( FULL . F ( 1 ♦ I . Jl )»nE. 1 (60  TO 

ION 

000075 

20* 

C 

000075 

2|* 

C 

Q00075 

22* 

RH*«S*CRHOC 1 iJI*RhO(|*I i J ) ) 

000(15 

23* 

UR*.S* ( U I 1 . J)*U( I*|  .Jl  I 

000(35 

2N* 

VRa.5*IV< 1 .J)*V( 1.1 .J) 1 

OOOJ11 

25* 

OU*U<  1 , J ) -U ( 1 * 1 ,J| 

000|50 

24* 

GO  TO  103 

000|53 

27* 

101  IF(NB1T(FULL.F( 1*| . Jl) .NE. 1 IGO  TO  101 

000|55 

26* 

c 

OF 

000(55 

29* 

c 

000(51 

30* 

RH-RHOl 1*1 .31 

000(66 

3|* 

UR-UI 1*1.3) 

•00(76 

32* 

VR.Vl  1*1 .31 

000203 

33* 

0U*~2.0*UI 1*1.31 

000205 

3H* 

GO  TO  103 

000207 

35* 

102  IF(NB1T(FULL.F( 1 .jl 1 .NE. 1 IGO  TO  101 

0QO2( ( 

34* 

c 

•••••••••  CALCULATE  TOR  RIGHT  EOGE  OF  FULL  CELL  ADJACENT  TO  BND 

OR 

00021 1 

37* 

c 

000211 

38* 

RH-RH01 1.3) 

000222 

39* 

UR»U( 1.3) 

000227 

*0* 

VR-V (1.3) 

000231 

11* 

0US2 • 0*U ( 1.3) 

•00236 

M2* 

€ 

000236 

*♦3* 

103  TH*AL0G(RH/RH0Z) 

000211 

NN* 

IF(TM.LT.0.0)TH«0.0 

•00217 

n s* 

C»S8RT ( (AP*3«0*BR*TH**2)/Rh) 

•00253 

*4* 

c 

0* 

0OO2S3 

N7* 

1F(UR**2«V1**2.GT.CK)G0  To  101 

000267 

ie* 

c 

•00267 

N 9 • 

if(du.le*o.o)go  to  101 

000277 

so* 

c 

000277 

si* 

#R«BU*C*RH*OU 

000302 

52* 

101  IF(NBIT(FAK.F( I ,J> ) .EG. | .0R.NB1T (B>0.F( 1 fj) ) •£#» 1 )G0  TO  105 

000307 

S3* 

IFINBITIFAK.FI I(3*|)).E0.1,0R.NB1TIBN0.F(| .3*1 I)«EG.I >G0  TO 

104 

000311 

SN* 

1FCNB1T (FULL.F ( 1 • J) ) .NE. 1 . OR . Nb 1 T 1 FULL . F 1 1 . 3* 1 ) I .NE. 1 IGO  TO 

110 

000367 

55* 

c 

000367 
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00213 

Si* 

002 11 

57* 

00215 

St* 

0021* 

St* 

00217 

to* 

00220 

4|* 

00220 

42* 

00220 

43* 

00222 

4t* 

00223 

4S* 

00221 

44* 

00225 

47* 

0022* 

41* 

60227 

4t* 

00227 

70* 

00227 

71* 

00231 

72* 

00232 

73* 

00233 

7t* 

00231 

7S* 

00231 

74* 

00235 

77* 

0023* 

7i* 

00210 

7 1* 

00210 

to* 

00211 

• I* 

00211 

• 2* 

00213 

B3* 

00213 

it* 

00215 

t§* 

0021* 

44* 

00217 

87* 

RH"«5» IRHUI I • JI*RhQI I i J»l II 
ur-.b»<ui  i • j » c i ,j*m 
VT"»5» IVI  I i J)*V | 1 , J*l 1 1 
DV»V( I ,J)-V< I ,J*I » 

GO  TO  107 

ios  if(N5|T<full,f( t , j*i J I *ne. i »go  to  iio 

calculate  density,  velocity  and  OELTa-V  F«R  TOP  OF  SND  OR 

(•••••••••  fak  CELL  ADJACENT  to  full  CELL 4 

RH-RHOII • J*l » 

UT-Ut I |J*I  I 
VT-VII.JMJ  , , 

DV«»2.0»V1|»J*I  I 
60  TO  107 

10*  IF  |N51TIFULL,FC  1 1 jH»NE,l  >60  TO  lit  0_  . 

(•••••••••  CALCULATE  DENSITY,  VELOCITY  AND  DELTa*V  TOR  TOP  OF  FULL 

c CELL  ADJACENT  TO  FaK  OR  BND  CELL* 

RHaRHOI I , J» 

UT-UI I ,J> 

VT*V« I • J) 

DV«2,0*Vl I ,J> 

CALCULATE  SOUND  SPEEo ( c > • 

107  th-alogirh/rhozi 

if«  th«lt«o,oith*o.o 

IF  velocity  greater  than  vnin,  artificial  viscosity.o.o. 

IF ( UT**2* VT**2«GT ,CK) GO  TO  110 
(•••»•••••  IF  NOX  COMPRESSING,  QT*0,0» 

IF(0V,LE*0,0»60  TO  110 

CALCULATE  ARTIFICIAL  VISCOSITY  AT  TOP  OF  CELl« 

QTb>0*C*RH*DV 
IIO  RETURN 
END 


000107 

000127 

00013* 

000112 

000115 

000117 

000117 

000117 

0001*0 

000170 

000175 

000177 

000*01 

000503 

000503 

0005O3 

000511 

000521 

00052* 

000530 

•00130 

000533 

0O0511 

000515 

000515 

0005*1 

0005*1 

000571 

000571 

000(71 

000*01 

000*75 


END  OF  COMPILATION!  1 DIAGNOSTICS, 


BHDG 
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BFOR.S  BNDCEL 

FOR  SE2C-0V/t9/75-09:36:26  (Oil 


BNDCEL 


SUBROUTINE  BNDCEL  ENTRY  POINT  00023* 


STORAGE  USEO;  COOE I I ) 000251 | DATA(O)  000037 1 BLANK  C0MH0N|2)  OOOOOO 

COMMON  BLOCKS: 

0003  ARRAYS  1001 S t 
0001  PARAHS  000073 
0005  GEL  I 00012  <t 


EXTERNAL  REFERENCES  (BlOCKi  NAME) 
0004  NERR3S 


storage  assignment  iblocki  typei  Relative  location,  name) 


oooi 

OOOI1S 

102L 

0001 

000132 

101L 

OOOI 

•00219 

10HL 

0001 

000064 

150G 

oooi 

OOOI 10 

UHG 

OOOI 

000157 

205G 

0001 

074731 

AF  OB 

0003 

07540S 

ALN 

0003 

1 

012752 

AMX 

0001 

075467 

BEN 

0001 

000011 

BETA 

0009 

I 

00000) 

BND 

0001 

100104 

CO 

oooi 

000036 

CK 

0009 

•00032 

COHPEN 

OOOH 

000007 

OT 

0001 

000023 

OTCP 

0009 

000021 

OTDUMP 

0001 

071757 

DXP 

0003 

075272 

OY 

0003 

075917 

OYP 

0001 

I 061235 

F 

0001 

1 000009 

FAR 

0003 

07639) 

FB 

0001 

074115 

FI 

0003 

076177 

FR 

0003 

•74261 

FT 

0001 

025721 

EY 

0001 

000010 

G 

0005 

000920 

GDT 

OOOH 

000055 

ICR 

0003 

077162 

1 CRACK 

0005 

000230 

IDUpP 

ooos 

000251 

UMAX 

oooi 

000060 

IKMAXp 

0003 

077519 

I MAS 

0000 

000007 

1NJPS 

ooos 

000231 

I PLOT 

0009 

00004) 

1 SEP 

OOOH 

OOOOS6 

JCR 

0003 

077307 

JCR ACK 

0003 

077574 

JHAS 

OOOH 

000041 

JSCP 

oooi 

000051 

KBAR 

0009 

000052 

KB  ARM 

OOOH 

000070 

MHMAX 

0005 

000239 

nape 

0009 

000059 

NCYC 

OOOH 

I 000005 

OB 

U001 

000006 

08FUL 

0003 

053450 

P 

OOOH 

000027 

PM1N 

0003 

077016 

POB 

0003 

R 

079*53 

R 

OOOH 

000012 

RHOZ 

0003 

079655 

RPL 

0009 

000*33 

SHEN 

ooos 

000252 

5H0H 

0001 

000039 

SPEN 

0009 

I 

OOOOOl 

SUR 

0001 

010474 

Ski 

0003 

096243 

Sll 

0005 

000227 

T 

OOOH 

000020 

TOUHP 

0001 

000017 

Tt  AST 

0009 

000029 

TP 

0001 

074432 

TllB 

0003 

076673 

TUB 

0003 

R 

OOOOOO 

U 

0001 

077350 

UOB 

0003 

R 005365 

V 

0005 

000)3* 

VBUL 

OOOH 

000030 

YSCALE 

0003 

100055 

vv 

0003 

100137 

WY 

0001 

07S75I 

XB 

0005 

OOOOOO 

XBUL 

0003 

•77100 

XCT 

OOOH 

000037 

XPl 

0001 

000090 

XP2 

0009 

000065 

XSCP 

0005 

000062 

YBUL 

0003 

074507 

YCT 

0003 

07 1 556 

YK 

OOOH 

000012 

YP2 

oooi 

000066 

Y SEP 

0003 

07771  1 

zz 

OOOI 

000201 

lost 

0003 

077773 

aa 

0001 

000015 

AP 

0001 

000016 

BP 

0009 

000072 

DEL  ZZ 

0009 

000025 

OTP 

0009 

l 

000002 

EMP 

000) 

077792 

FF 

0009 

I 

OOOOOO 

FULL 

0009 

000013 

HMU 

0005 

000232 

IE01T 

0009 

I 

OOOOH 

(MAX 

0005 

0002)3 

1 STOP 

0009 

1 

000095 

JM  A X 

0009 

000050 

KM  AX 

0009 

000053 

NOUMP 

0000 

I 

OOOOOO 

PART 

0009 

1 

000062 

REV 

0009 

1 

000061 

SMAtL 

0005 

000921 

SVEl 

0003 

075519 

TAU 

0003 

077440 

TT 

000* 

00025) 

U6UL 

0003 

074925 

VFOB 

0005 

00092) 

VZCRO 

0003 

044422 

XK 

0003 

075020 

Y 

0003 

075195 

ypl 

0009 

000071 

ZZPRT 

OOOI 

000092 

I iSfi 

00Q5 

0009 1 7 

ACC 

0009 

ooooti 

AS 

0009 

0000)5 

BQ 

OOOB 

000122 

0 1 sp 

0OO3 

0t97|6 

ox 

0009 

000031 

CfS 

Ooos 

160029 

FFAA 

0003 

0203)7 

rx 

Oooo 

I 

000002 

l 

0009 

000057 

IJHaH 

0009 

I 

000094 

IMA** 

0000 

I 

OOOOOl 

J 

Oooi 

I 

000097 

JHArM 

0005 

000226 

LMAX 

Oooi 

060047 

nnmax 

0005 

000199 

PBUL 

6003 

074571 

rmqvb 

0005 

0002*0 

smass 

0003 

0)3311 

Ski 

0009 

000022 

TCP 

0009 

000024 

TTOTBL 

Oooi 

006693 

ucrack 

6003 

077432 

VOB 

0003 

079512 

X 

0003 

079419 

XPl 

6003 

076033 

T8 

0009 

000091 

TPI 

Page  118 


BhOCEL 


OOIOI 

00101 

00101 

00101 

00101 

00101 

00103 

00103 

00103 

00103 

00104 

boios 
00106 
00107 
00110 
00110 
00110 
Oono 
00110 
00110 
00110 
001  10 
001 10 
Ool  10 
00110 
oono 
001  10 
oono 
00111 
00111 
dot  1 1 
001 1 1 
00111 
001  1 1 
0011 1 
0011 1 
00111 
001  1 z 
00112 
00113 
00123 
00126 
00127 
00130 
00130 

00130 

00131 

00132 

00133 
00133 
CO  1 33 
CO  133 
00133 


1 • 

2* 

3* 

4® 

6* 

7* 

a» 

!• 

9® 
9® 
9® 
!• 
V 
!• 
9® 
9® 
!• 
9® 
f • 
9® 
9® 
?• 
»• 
9* 
9* 
9* 
94 
9* 
9* 
9» 
9 • 
9 • 
9® 
9* 
9® 
9® 
9® 
9 • 
!• 
9* 
9 • 
9® 
9 • 
9 • 
9 • 
9 • 
9* 
9® 
9® 
9® 
9® 
9 • 


SUBROUTINE  BNDCEL 

£••••• ••••••»••••• ••••••••••••••••••••••••••••••••••• ••••••••••••••• 

.•••••••••  BNOCEL  SETS  VELOCITY  AND  MASS  FOR  BNO  CELLS 

»«#»••«#•»#••••••*•••••••••••••••••*•••••••*••••••••••••••********** 

INCLUDE  COM, LIST 


•§«••••• 

•••••••• 


•••••••• 


CftM 

C®®®I 

COM® 


» I JDP*0 


rAnAntlLn  irrsM-ar 

common/aRRats/ui Id, joi 
• FXUDtJD)  , FT  ( I D • JO  I 


• •••  SET  BOUNDARY  VALUES  FOR  COLUMNS  I AND  IHa*« 

PARAMETER  ID-33  , JD-85  .KD-15B0  ,NO*ll 

PARAMETER  LD-ISO  »NNDIM"ZS  , MND 1 M- 1 0 

PARAMETER  NARR-IO-ID-JD-1 I-JD-5-JD-I7-I JD*2»KD*7»NND!M»HflD 

PARAMETER  NPAR-5*  . ... 

— • , V I 1 D , 0D ) ,AHX«lDVJO) 

.SIIIID.JD)  tSlJIlDiOOI 
, P I I D , JD ) , F I IDfjDI  , XK I KD  ) 

• X I 1 0 I .RHOI 

• OX  I I D i , DXP 1 1 D I ,Y(JDI 

,DYIJD»  , DTP ( JD I .TAUIID) 

.BENiIJD)  ,XBUJD»  ,YBIUD» 

,FRl|JD>  »FT  1 1 JO  I .FBlIJD) 

, YC  T | | JD  > , RHOVB t I D I ,T|3»«»D| 

.AFObUJDI  ,POB(|JD)  , XCT  1 1 JD ) 

.JCRaCXIID)  .UOBIIJDI 

, JMAS ( I JD ) .TTINNDIMI  .ZZINNdIM) 

, A A ( NND I H ) .FFAAINNDIM)  .VVINNoINI 


IM 


• S33I IDfJDt 
• YK ( KD ) 

• RPLUDI 
•YPLIJD) 
•ALNI I JDI 
•FLIIJDI 
•VFOBI I JD) 
•T33BI ID) 

• I CRACK ( JD I 

• 1MASI I JO) 
•FFINNDIM) 


• CD ( NND 1 M ) » V V V ( MMD I M ) 

,bnd 

• fa* 

COMMON/PARAMS/ 

full 

• SUR 

»EHP 

• OB 

■obful 

• DT 

1 G 

.AS 

. RHOZ 

l HMU 

• BETA 

, AP 

• BP 

•tlast 

, TDUMP 

,dtdump 

• TCP 

•DTCP 

, TP 

• DTP 

•TTOTAL 

« PM  | N 

, VSC ALE 

• EPS 

•COMPEN 

,shen 

• SPCN 

• BO 

,CK 

,XP» 

• X P 2 

• Y P l 

, YP2 

•UCRACK 

. IMAX 

, JMaX 

, | M A XH 

1 U M A X M 

• KMAX 

,KBAK 

•KBARM 

i NDUMP 

,NCYC 

, I CR 

• JCR 

• UMAX 

, IKMAXP 

•small 

• REV 

, 1SEP 

. jSEP 

• X5EP 

• Y5EP 
INTEGER 

,nnmax 
F .OB 

iMHMAx 
• FULL 

•Z2PRT 
• SUR 

.DELZZ 

.EMP 

,bnd 

• FAK 

• (PART  .SMALL  ,RtV  dT  . , 

DATA  FULL/  1/SUR/R/EMP/7/BND/I0/FAX/I3/0B/I6/PART/S/ 
data  REV/IS/SMALL/19/ 

DEFINE  INDEX! I , Jl-FLDIO, I 8, FI  I ,J> ) 

DEFINE  NBITINB,HD,"FLDI3A-NB,l ,WD) 

INCLUDE  CELCMN.LIST 

end 

SELCHN  PROC 

PARAMETER  QLMAX-So 
PARAMETER  NGEL-5«aLMAX*|2*lR 

COMMON  /GEL  I / XBULIOLMAX) .YBULIOLMAX) ,PBUL<®LMAX) .LMAX.T, 

, i dump, i plot, i edit, i stop, name  1 12) .smaSs, ixmax 

• , SMOM.UBULCQLHAX) (VBULIOLMAXI 
. ,ACC,GDT,SVEL,uISP,Vz£RO 


,rev 


000025 

000025 

000025 

000025 

00OOZ6 

000025 

000025 

000025 

000025 

080025 

000025 

000025 

000025 

00&02S 

000025 

0OOO25 

000025 

000025 

000025 

0O&O25 

000025 

000025 

006025 

Q06025 

006025 

000025 

$00025 

000025 

000025 

006025 

0O&O25 

000021 

006025 

Q0002S 

Q00025 

000025 

000025 

000025 

000025 

000025 

000025 

00OO2S 

000025 

Q0002S 

000025 

000025 

006025 

00602S 

600025 

000025 

000025 

000025 

000025 
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OOI33 
0013*4 
00137 
OOMO 
001*4  1 
001*42 
001*43 
001*4*4 

00  1 *4S 
001*45 

001*47 

00152 

00153 
0015*4 

00 1 55 

00154 
00157 
00140 
00140 

00142 

00143 

00144 

00144 

00170 

00172 

00173 
0017*4 
00175 
00177 
00200 
00201 

00203 
0020*4 
00207 
00207 
0021  1 
00213 
002 1 *4 
00215 
002|6 
00220 
00221 
00222 
0022*4 
00225 


?•  END 

10*  DO  100  J*  2 t JM A AM 

11*  U(| » J I ■•U  f 2 • J I 

| 2«  V4 1 * J ) * V 4 2 * J ) 

13*  AHX  4 1 § J 1 ■ AH  X C 2 » J ) 

m*  U ( JMAX, J)*-U4 IHAXMf J) 

15#  V ( IMAX*J>«V< IHAXH, J) 

I AHX< 1MAX  » J4-R1 1MAX4/R (1HAXM) •AMX ( 1HAXM , J) 

l 7 • 100  CONTINUE 

IS*  £•*••»••••  SET  BOUNDARY  VALUES  FOR  RO*S  1 AND  JmAX* 


It* 

20* 

21* 

22* 

23* 

2*4* 

25* 

24* 

27*  C 

28* 

2t* 

•DIAGNOSTIC* 

30* 

31* 

32* 

33* 

3*4* 

35* 

34* 

37* 

38* 


DO  101  1*2* I M AX M 
U I 1 • 1 ) *U( I » 2 ) 

Vlti 1 )**V( I |2) 

AH  X 4 I * 11*AHX( 1 *2) 

U( 1 * JHAX)»U(  I * JHAXH) 

V4 1 *JHAX)*-V< I , JMaXM) 

AHX ( I * JHAX ) * AHX ( l .JHAXH, 

101  CONTINUE 

••••••••  SET  VELOCITIES  FOR  BND  CELL  DIAGONAL  TO  SUR  CELL. 

1 ■ I 

THE°TEST2F0R2EQUAL!Tr  BETWEEN  NON-INTEGERS  Mi Y NOT  BE  meaningful. 

1F(U< 1 *J> .NE.O.G’OR*V( I * J) .NE.O.OIGO  FU  \ u 2 

IF (Nttl T (SUR *F 4 1 ♦ l , J*1 )) .NE. 14G0  TO  103 
U ( 1 * J)*-U4 1*1  * J*1 4 
V4 1 »J)*V( 1*1 . J*I  1 
GO  TO  102 

103  IF4NBIT(SUR*F( !♦! * J-I ) )#NE.l )G0  TO  102 
U(l,J)*-U4IM*J-i) 

V ( I * J ) ■ V 4 I ♦ I » J-l 1 

102  CONTINUE 


3t* 

*40* 

•DIAGNOSTIC* 

*»!• 

*42* 

*43* 

*4*4* 

*45* 

*44* 

*47  • 

*48* 

*4?* 

50* 


1 ■ 1 HA  X 

DO  10*4  J*2  * JHAXH 

The  test  for  EQUALITY  BETWEEN  NON-INTEGERS  hat  NOT  Be  meaningful# 

IF4U4  I • j)  .NE.0.0R.V4  I *J)  .NE.04G0  TO  40*4 
1F4NBIT15UR.F4 1-1 ,J*I 4 4.NE.I1G0  TO  105 
U( I ,J)»-U( I-l • j*l  I 
V< I fJt-V I J-l . J*I  » 

CO  TO  10. 

105  ir (NBITISUR.FJ J-l  , J-|  II  ,NE.  I ICO  To  ICM 
U< I ,J)--UC l-l  , J-l  I 
VI t .J)-*VC l-I . J-I  I 
10.  CONTINUE 

return 


st« 


ENO 


000025 
000025 
OO0OH2 
0000*0 
ooOo.s 
0000*17 
000051 
00005) 
006044 
000044 
000044 
000044 
000047 
000071 
00007) 
000075 
600077 
000102 
0Q0J02 
000| 02 
00010*1 

000| 10 
000| 17 
000| 21 
000 | 24 
000|)0 
0001)2 
000|10 
000(12 
006)14 
000)14 
000)50 

000)57 
000)44 
000| 7 ) 
000 | 75 
000)77 
000201 
000207 
000211 
000215 
000215 
000250 


end  OF  COMPILATION!  2 oiacnostics. 
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BFOR,S  BNOSTR 

FOR  S£2C"09/l»/75-0?:3*:29  <G,i 


BNOSTR 


SOBROUT 

1NE  BNOSTR  ENTRY  POI 

STORAGE 

USEO:  CODE ( 1 1 000113; 

COMMON 

blocks: 

0003 

arrays  iooisi 

0009 

PARAMS  000073 

0005 

GEL  1 000929 

NT  0001 09 

OaTA(O)  000026:  BLANK  C0MM0N(2) 


oooooo 


EXTERNAL  REFERENCES  (BLOCK,  NAME) 

0006  NERR3I 

STORAGE  ASSIGNMENT  (BLOCK,  T TPE , RELATIVE  LOCATION,  NAME) 


0001 

000021 

1 37g 

300  1 

000053 

15*4G 

0003 

077773 

AA 

0003 

075605 

ALN 

0003 

012752 

AMX 

0009 

000015 

AP 

000*4 

00001*4 

beta 

0009 

1 

000003 

BNO 

0009 

000016 

B P 

000*4 

000036 

CK 

0009 

000932 

COMPEn 

0009 

000072 

OELZZ 

000*4 

000023 

OTCP 

0009 

000021 

DTDUMP 

0009 

000025 

OTP 

0003 

075272 

DY 

0003 

075917 

OYP 

0009 

I 

000002 

EMP 

000*4 

I 

00000*4 

FAK 

0003 

076393 

FB 

0003 

077792 

FF 

0003 

076177 

FR 

0003 

076261 

FT 

0009 

1 

OOOOOO 

FULL 

000*4 

000010 

G 

0005 

000920 

COT 

0009 

000013 

HMU 

0003 

077162 

I CRACK 

0005 

000230 

1 DUMP 

0005 

000232 

1 EO  1 T 

000*4 

000060 

1KHAXP 

0003 

077519 

imas 

0009 

1 

000099 

1 MAX 

ooos 

000231 

iplot 

0009 

000063 

1 SEP 

0005 

000233 

1 STOP 

0000 

I 

000003 

J 

0009 

000056 

JCR 

0003 

077307 

JCRACK 

000*4 

I 

0000*47 

jmaxh 

0009 

000069 

JSEP 

0000 

1 

000009 

Jl 

000*4 

000052 

kbarh 

9009 

000050 

kmax 

0005 

000226  LMAX 

000*4 

00005*4 

ncyc 

0009 

000053 

NOUHP 

0009 

00006/ 

NNHA  A 

0003 

053650 

p 

0000 

1 

OOOOOO 

PART 

0005 

000199 

PBUL 

0003 

07*4553 

R 

0009 

I 

000062 

REV 

0003 

076571 

RHOVB 

000*4 

000033 

SHEN 

0009 

l 

000061 

SHALL 

0005 

000250 

SMASS 

000*4 

I 

000001 

SUR 

0005 

000921 

SVEL 

0003 

n 

03331 1 

SI  1 

0005 

000227 

T 

0003 

075599 

TAU 

0009 

000022 

TCP 

000*4 

00002*4 

TP 

0003 

077660 

TT 

0009 

000026 

TTOTAL 

0003 

OOOOOO 

U 

0005 

000253 

UBUL 

0009 

000093 

UCRACK 

0005 

000335 

VBUL 

0003 

076925 

VFOB 

0003 

077932 

VOB 

0003 

100137 

VV  V 

0005 

000923 

VZERO 

0003 

079512 

X 

0003 

077100 

XCT 

0003 

066622 

XK 

0003 

079619 

XPL 

000*4 

000065 

XSEP 

0003 

075020 

Y 

0003 

076033 

YB 

0003 

0 7 1 5 S 6 

YK 

OC03 

075195 

ypl 

0009 

000091 

YP  1 

0003 

077711 

ZZ 

0009 

000071 

ZZPRT 

0005 

000917 

ACC 

0009 

00001 1 

AS 

0009 

000035 

BQ 

0005 

000922 

01SP 

0003 

0797 | 6 

DX 

0009 

000031 

EPS 

0003 

100029 

FF  A A 

0003 

020337 

FX 

0000 

I 

000006 

1 

0009 

000057 

UMAX 

0009 

1 

000096 

JMAXH 

0000 

1 

oooool 

11 

0003 

077576 

JHAS 

0000 

I 

000005 

J2 

0009 

000070 

hhhax 

0009 

1 

000005 

OB 

0009 

000027 

PH  l N 

0009 

000012 

RHOZ 

0005 

000252 

SMOM 

0003 

R 

090676 

S 1 3 

0009 

000020 

TOUMP 

0003 

076632 

T 1 3d 

0003 

077350 

U08 

0009 

000030 

VSCALE 

0003 

075751 

XB 

0009 

000037 

XP1 

0005 

000062 

ybul 

0009 

000092 

YP2 

0003 

076739 

AfO» 

0003 

076647 

BEN 

0003 

lOOi 06 

CO 

0009 

000007 

or 

6003 

0?4?&7 

OXP 

0003 

1 

061233 

p 

6003 

0761  IS 

n 

0003 

025729 

ft 

6069 

000055 

ICR 

0005 

000261 

IKHaX 

0000 

00001 1 

IN 

0000 

1 

000002 

12 

0009 

J 

060695 

JHAX 

6009 

000651 

KBAR 

0005 

000239 

nane 

0009 

000006 

obful 

0003 

077016 

POB 

0003 

079655 

RPL 

0009 

000039 

SPCN 

6003 

R 

094243 

S3) 

0009 

000017 

HAST 

6003 

0?6i73 

T33B 

0003 

005345 

V 

0003 

100053 

VV 

0005 

OOOOQO 

XSUL 

0009 

OOOOOO 

XP  2 

0003 

074507 

TCt 

0009 

000064 

YSEP 

V 


bmjstr 


ooioi 
00101 
00101 
OOIOI 
OOIOI 
OOIOI 
00103 
00103 
00103 
OOIOI 
00105 
0010* 
00107 
001 10 
001 10 
001  10 
001 10 
001 10 
001 10 
00110 
ooiio 
001 10 
OOIIO 
OOIIO 
0*  OOIIO 
'g  OOIIO 

00110 
K>  001 1 I 
e 001 1 1 

001 1 1 
001 1 1 
00111 

00111 
001 1 1 
001 1 1 
001 1 1 

00112 
00112 
00113 
00123 
00125 
00127 
00130 
00130 

00130 

00131 

00132 

00133 
00133 
00133 
00133 
00133 
00133 


1* 

2 • 
3- 
H • 

8* 

7 • 
»• 
8* 
8* 
8* 

8 • 
8* 

8 • 

8 • 
8* 
8* 
8* 
8» 
8 • 

8 • 
8 • 

8 • 
8 • 
8» 
8 • 
8* 
8* 
8 • 
8* 
8* 
8* 
8« 
8® 
8 • 
8« 
8 • 
8 • 
8 • 

8« 
8* 
8* 
8* 
8* 
8 • 
8* 
8* 
8 • 
8* 
6 • 

8 • 


SUBROUTINE,  bnostk 


£••••••••••••♦• 


• ••••••••••*«***M**«*9t****<9*1 


bndstr  sets  deviator  stresses  in  bnd  CELLS.  




INCLUDE  COM, LIST 


c*.*< 

COM* 


COHMON/ARRATS/Ul ID, JDI 

• F X I ID , JD ) , FT ( | D , JD ) 


PROC 

parameter  id*33  i ,ko-I5oo 
PARAMETER  LD-ISo  .NNDIM-2S  .mmdim-10 

PARAMETER  NARR»10*1D*JD*I1*|D*5»JD*I7« I JD*2»KD*7»NNDIM»MND 
PARAMETER  NPAR-5? 

I V ( ID.JD) 

,SI  1 ( ID,Jl>) 

.FIID.JD) 

,R( 101 
,DXPI  id) 

,DYP( JD) 

,xa< I joi 
, F T ( I JO  I 
•RHOVkl ID) 

, POB ( | JD 1 
,UOB( IJDI 
.TTINNDIM) 

.FFAAINNDIM) 


•S33 ( ID, JD) 
•YKIKD) 

• RPL ( ID) 

• YPLI  JD) 

• ALNI  1 JD) 

• FL  < I JD) 
•VFOBI 1 JD) 

• T33B ( ID) 
•ICRACKI JD) 

• I MAS ( I JD ) 
•FF(NNDIM) 


• PC  ID,  JD) 
,X( 1 U 1 
•OXl 10) 

,DYl JD) 

, BEN ( 1 JD) 

, F R I 1 JD) 
,YCT( 1 JO) 
,AFOtt( 1 JD) 
.JCRaCM  ID) 
, JHASI I JD) 

, A A I NND  I M ) 


, ND- I 2 , | JD*50 


,AM*Uo.JD) 
, 5 1 3 1 lo,JD) 
•XK(KO) 
,XPLI ID) 

,Y ( JD) 
.TAUIlD) 
,YB( 1JD) 
•FB(I JD) 
,T|3BI ID) 
iXCTI  1JD) 

, V08 I 1 JD ) 

•ZZINNolM) 

(VVINNOIM) 


1M 


COMMON/PARAMS/ 

FULL 

• SUR 

• ENP 

• BND 

• RHOZ 

• OB 

•OBFUL 

• DT 

• G 

• AS 

•beta 

• AP 

• BP 

•tlast 

•TOUhP 

•OTOUMP 

• DTCP 

• TP 

• OTP 

•TTOTAL 

• PHIN 

• VSCALE 

•COMPEN 

• SHEN 

• SPEN 

• BQ 

.CK 

• X P 1 

• YPI 

• YP2 

•UCRACK 

• ihax 

• JHaX 

1 J H A X H 

• KHAX 

» KB  AP 

•KBARH 

•NPUHP 

• ncyc 

• ICR 

•IJHAX 

, IKMAXP 

•SHALL 

• REV 

, ISEP 

• JSEP 

• YSEP 
INTEGER 

•NNNAX 

r » ob 

• MMHAX 
• FULL 

•ZZPRY 
• SUR 

•del** 

• EHP 

• BND 

FaK 

HMU 

TCP 

EPS 

XP2 

JMAXM 

JCR 

XSEP 

• FAR 


• , P AHT  (SHALL  ."tv  __  . 

DATA  FULL/I/SUR/H/EMP/7/BND/I0/FAK/13/08/16/PART/S/ 

DATA  REV/IS/SMALL/I1*/ 

DEFINE  INDEX! 1 , J ) -FLO  I 0 , 1 8 , F I I . J ) ) 

0EF1NE  NBIT(NB,H0j-FLDI3*»N8,  I ,*D ) 

INCLUDE  GELCMN.LIST 

END 

GELCHN  PROC 

PARAMETER  9LMAX-50 
PARAMETER  NGEL-5*ULMAX*|2*l*t 

COMMON  /GEL  I / XOUL 1 «LM A X ) . YBU|. I QLM A X ) ,P8UL < M A X ) , LM A X , T , 
, I DUMP, IPLOT, 1ED1T, I STOP,  NAME! 12) (SMASS, |KMaX 

• , smom.ubuliqlhax) , vbuliulmaX) 

• ,ACC,GDT (SVEL , D I 5P , V ZERO 

c 

END 


, Rev 


000005 

000005 

000005 

000005 

OOOOOS 

000005 

000005 

000005 

000005 

000005 

000005 

00&005 

000005 

000005 

000005 

000005 

000005 

000005 

000005 

600005 

000005 

000005 

000005 

000005 

000005 

000005 

000005 

000005 

0Q0005 

000005 

000005 

000005 

000005 

000005 

000005 

000005 

000005 

000005 

000005 

000005 

000005 

000005 

000005 

ooDoos 

000005 

000005 

000005 

oodoos 

000005 

ooOoos 

000005 

000005 

000005 
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BNDSTR 


OQOOOS 


0013* 

9* 

11*1 

000007 

30135 

10« 

1 2* 1 MAX 

000007 

90135 

1 {• 

>••••  SET  SRESSES  »N  COLUMNS  1 AND  IMAa. 

000012 

00136 

1 2 • 

DO  100  J* 2 # JH A X M 

000021 

aom 

13* 

S!  1 ( I2,J)-S! 1 II2-I.JI 

000022 

001H2 

1*»* 

S33  ( I2.J)-S33< 12-1 » J» 

000021 

00 1 **3 

15« 

S 1 3 ( I2« JI--S13C 12-1 » J) 

00002* 

001‘H 

16* 

SI  1 C 1 1 t J»"Sll U 1*1 » J> 

000030 

00  1 *45 

17* 

S33 ( I 1 , JI«S33( I t ♦ 1 » J) 

000032 

00M6 

1 8 • 

SI  3 1 1 1 , J1--SI 3 1 1 1*1 • Jl 

00003S 

00M7 

If* 

100 

CONTINUE 

000030 

00151 

20# 

Jl-I 

000037 

00152 

2 1 • 

J2* JNAX 

000037 

00152 

22* 

C#M#< 

»••••  SET  STRESSES  IN  ROWS  1 AND  JMAX. 

000013 

00153 

23* 

DO  101  l^ilHAXH 

0O0OS3 

00156 

2*1* 

S33( 1 ,JI I-S33I 1 , J 1 ♦ 1 » 

000051 

00157 

25* 

S|l(l,JI)*S|m.J|*l> 

000054 

00160 

26* 

SI3I1|JI>—  SI3I|.J»*I» 

000040 

00161 

27» 

S33I I . J2I-S33I 1 , J2-I  » 

000042 

00162 

2 8 • 

SI  1 ( 1 .J2I-5I  Ml  ,J2-I  1 

000041 

00163 

29* 

SI3t*,J2»--Sl3Cl • J2-1 1 

000047 

0016<4 

30* 

101 

CONTINUE 

000047 

00166 

31* 

RETURN 

000112 

00167 

32  • 

END 

end  of  compilation; 


NO  DIAGNOSTICS# 


0HDG 


BOUNDS 
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BF OR  #5  bOUNJS 

FOR  SE2C-09/ l 9/7b-09 : 36: 31  (0.) 


BOUNDS 


SUBROUTINE  BOUNDS  ENTRY  POINT  UOOGA<! 


STORAGE  USED:  CODEC i > C0C066;  DATA(C)  Q00017;  BLANK  C0HM0N(2)  000000 

COMMON  BLOCKS: 

0003  ARRAYS  1001S1 
ODOM  PARAMS  000073 
0005  GEL  1 OOOM2H 


EXTERNAL  REFERENCES  (BLOCK,  NAME) 

0006  ADF 

0007  DRG 

0010  S B L 1)4 

0011  SLLlN 

0012  LINEUV 

0013  PR l NT V 
00 1 M NERR3S 


STORAGE  ASSIGNMENT  ( BLOCK  t TYPE,  RELATIVE  LOCATION,  NAME) 


0001 

000024 

1 4 2G 

0003 

077773 

AA 

0005 

000417 

ACC 

0003 

012752 

AM  X 

0004 

000015 

AP 

000** 

OOOOI 1 

AS 

0004 

1 000003 

BND 

000** 

000016 

BP 

000** 

000035 

BQ 

0004 

000032 

COMPEn 

000** 

000072 

oelzz 

0005 

00C422 

DI5P 

0004 

000021 

DTDUMP 

000** 

000025 

DTP 

0003 

074716 

DX 

0003 

075417 

OYP 

ooo** 

l 

000002 

EMP 

000** 

000031 

EPS 

0003 

076343 

FB 

0003 

077  7*t2 

FF 

0033 

100024 

ffaa 

0003 

076261 

ft 

000** 

I 

000000 

full 

0003 

020337 

FX 

0005 

000420 

GDT 

000** 

000013 

H MU 

0034 

ooooss 

1 C R 

0005 

000232 

1 ED  1 T 

000** 

000057 

UMAX 

0005 

000251 

I K M A X 

0004 

000044 

I MA  X 

000** 

000046 

imaxm 

0000 

OOOOI 1 

JNJPS 

0005 

000233 

ISTOP 

000** 

000056 

JCR 

0003 

077307 

J C R A C K 

0004 

000047 

JMAXN 

000** 

00006** 

JSEP 

000** 

000051 

KBAR 

0000 

t 000002 

L 

000s 

1 

000226 

LMAX 

0030 

1 000001 

L M A X M 

0004 

000054 

NC  Y C 

000** 

000053 

NDUMP 

000** 

000067 

NNMaX 

0003 

053450 

P 

0000 

I 

OOOOCO 

PART 

0005 

000144 

PBUL 

0003 

0 7 H 5 5 3 

R 

000** 

I 

000062 

REV 

0003 

076571 

RHOVB 

0004 

000033 

SHEN 

000** 

1 

000061 

SMALL 

0005 

000250 

SM  ASS 

0004 

I 000001 

SUR 

0005 

000*421 

SVEL 

0003 

033311 

SI  1 

0005 

000227 

T 

0003 

075544 

TAU 

000** 

000022 

TCP 

0004 

000024 

TP 

0003 

077660 

TT 

000** 

000026 

TTOTAL 

0003 

000000 

U 

GOOS 

000253 

UBUL 

OCO** 

000043 

UCR ACK 

0005 

000335 

VBUL 

0CJ3 

076M2S 

V FOB 

0033 

077432 

VOB 

0003 

100137 

vvv 

0005 

000423 

V ZERO 

GC33 

07  hS 1 2 

X 

0003 

077100 

XCT 

DC03 

066622 

XK 

03^3 

07h® 1 4 

X PL 

f 


0003 

076734 

0003 

075667 

0003 

10010* 

0004 

000007 

0003 

074757 

0003 

I 061235 

0003 

07 6 | 1 S 

0003 

02572** 

0003 

077162 

0004 

000060 

ooos 

000231 

0003 

077576 

000** 

000052 

0004 

000070 

0004 

1 000005 

000** 

000027 

0004 

000012 

000& 

000252 

0003 

04067* 

0004 

000020 

0003 

076632 

0003 

077350 

0004 

000030 

0003 

075751 

0004 

000037 

AFOB 

0003 

BEN 

0004 

CO 

0004 

DT 

0004 

DXP 

0003 

F 

0004 

fl 

0003 

FY 

0004 

1 CRACK 

ooos 

1KMAXP 

0003 

1 plot 

0004 

DMAS 

0004 

kbaRh 

0004 

MMMAX 

0005 

OB 

0004 

PM  | N 

0003 

RHOZ 

0003 

shom 

0004 

S 1 3 

0003 

TDUMP 

0004 

T13B 

0003 

UOB 

0003 

VSCALE 

6003 

XB 

0005 

XP1 

0004 

07S40S  ALN 
0000 1 M BETA 
000034  CK 
000023  OTCP 
075272  DY 
| 000004  FAK 
074177  FR 
000010  4 
000230  IOUmP 
07  75 1 M |mAS 
000043  1SEP 
00Q0M5  UMAX 
000050  KHAX 
I 0002JM  HAHE 
000004  OBfUL 
0770]4  POB 
07M4S5  RPL 
000034  SPCN 
044243  S33 
0000^7  TLAST 
074473  T33| 
00534S  V 
100055  VV 
R 000000  XBUL 
OOOOMO  XP2 
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BOUNDS 


0004  00006S  XSEP 

0003  071556  TK 

0003  077711  ZZ 


0003  07502U  Y 

0003  075145  YPL 

0004  000071  ZZPRT 


0003  076033  YB 

00 OH  000041  YPI 


0005  R 000062  YBUL 
00  J4  000042  YP2 


0003  076S07 

0004  0000^6 


00101 

00101 

00101 

OOlOl 

00101 

00101 

00103 

00103 

00103 

00104 

00 105 

00106 
00107 
001  10 
001  10 

, oono 
001 10 
oono 
00110 
001  10 
00110 
001 10 
oono 
00110 
001  10 

001  10 
00110 
0011  1 
0011  1 
001  I I 
0011  1 
001 1 1 

00  in 

001 1 I 
0011 1 

001  I 1 
00112 
00112 
001  13 
00123 
00126 
00127 
00130 
00130 

00130 

00131 

00132 


1 • 
£• 
3® 

4 • 
5* 
6* 

7 • 

8 • 
M 
6* 
8* 
8* 
8* 
8» 
8* 
8« 
8* 
8 • 
8* 
8 • 
8 • 

8» 
8* 
8 • 

8* 
8* 
8* 
8 • 
8® 
8* 
8* 
8* 
8* 
8 • 
8 • 
8* 
8* 
8« 
8 • 
8* 
8® 
8* 
8® 
8 • 
8* 
8 • 


SUBROUTINE  BOUNDS 






BOUNDS  DRAWS  BOUNDARIES  FOR  PLOTS  *ND  tABELS  GRID. 


COM* 


COMMON/ ARRAYS/U( ID. JD) 
•FX( ID, JD)  *P Y 1 |D, JD) 


INCLUDE  COM i L l ST 
PROC 

PARAMETER  ID-33  tJD-85  .KD-I500  ,ND«12 

PARAMETER  LD-150  # NND l M- § 5 .MMDIM-10  

parameter  narr-io* id*jd*i i#td*5»jd^i7*i jo*2*kd*7*nndim*mmdim 

PARAMETER  NPAR-59 

• v(  ID,  JD) 

• sm  id,  jo) 

*P(  IPtJO)  ,F(  ID, JD) 

,X(l0)  • R ( 1 D I 

,DX(|D)  iDXP(lD) 

.OYCJD)  .DYP1JD) 

,BEN( 1 JD)  ,XB( I JD) 

i FR  < I JD ) t FT  C I JD 1 

,YCT( I JD)  ,RH0V|IID) 

tAFObi 1 JD)  # POB ( I JO) 

• JCRaCK(ID)  , UOB ( I JD ) 

,JMAS(I JD)  .TTCNND1M) 

,AAINNDIM)  .FFAA(NNDIM) 

VW(MMDIM) 


•S331 ID, JD) 
•YKCKD) 

•RPL ( ID) 

•YPL( JD) 

• ALN( 1 JO) 

•FL ( I JD) 

•VFOBI I JD) 

• T33BUD) 
•1CRACK1 JD) 
•IMASC l JD) 
•FF(NNDIM) 
•CD(NNDIM) 

COMMON/PARAMS/ 

• OB 

• BETA 


, I JD»SO 


, AMX| ID, JD) 
,S I 3 n D # UD ) 
, XK ( XD ) 
.XPLC ID) 

,r iJD) 

,TAU( Id) 
iYBIIJD) 
iFBUJD) 

, T 1 3B I t 0 ) 
iXCTCUD) 
,V0B( IjD) 
•ZZ(NNDlM) 
,VV1NNdIM) 


• DTCP 
•COMPEN 

• YPI 

• KM  AX 

• 1 JM A X 

• YSEP 
INTEGER 

.PART 


,OBFUL 

• AP 

• TP 
i SHEN 
,YP2 
,KBAR 
, IKMAXP 

•nnmax 
F .00 
•small 


FULL 
.DT 
.BP 

.DTP 
.SPEN 
.UCRACK 
.KBARM 
•SMALL 
.MMMAX 
• FULL 

.REV 


, SUR 

.6 

, TL AS Y 
.TTOTAL 
, BQ 
. IMAX 
.NDUMP 
, RE  V 
■ ZZPRT 
, SUR 


, EMP 
, A S 

.TDUMP 
• PM  I N 
. CK 
, JMaX 
,NCYC 
, I SEP 
•DCL22 
■ EMP 


,BND 

• RHOZ 

,dtdump 

•VSCALE 

• XP1 

• imaxm 

• ICR 

• JSEP 

• BNO 


DATA  FULL/ I /SUR/M/EMP/7/BND/I0/FAK/ 13/06/ I 4/PART/S/ 
DATA  REV/IS/SHALU/IN/ 

OEFINE  |ND£X(IiJ)»FL0(O,I8,F«I.J)> 

DEFINE  NBl T CNB  »W0 ) »FLD ( 36-N8 ■ I *WD) 

INCLUDE  GELCHNiLIST 

END 

6ELCMN  PROC 

parameter  olmax-Sj 
PARAMETER  NGEL»'>,gLMAX'M2*l1t 


FAK 

hmu 

TCP 

EPS 

XPl 

JMAXM 

JCR 

XSEP 

,F  AK 


000000 

000000 

000000 

oooooo 

000000 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

006000 

OOOOOO 

OOOOOO 

00O000 

oooooo 

OOOOOO 

OOOOOO 

Oooooo 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

Oooooo 

oooooo 

oooooo 

oooooo 

OOOOOO 

oooooo 

oooooo 

00O000 

oooooo 

oooooo 

oooooo 

oooooo 

006000 

00O000 

oooooo 

00O000 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 


YCT 

YSEP 


BOUNDS 


00133 

8 • 

COMMON  /UIL1/  XBUlI  OLMAX  ) , tliUL  l OLMAX  ) ,P8Ul  1 OLMAA  ) ,LMAX  t T , 

oooooo 

000000 

CO  1 3 3 

A* 

. I DUMP. I PLOT , IEuI T , lSTO^.NAML ( 1 7)  .ShmSS  , K^AX 

ocoooo 

00133 

8 • 

• , SMOh.UBULlQLMAA)  .VBUUQlMAX) 

090000 

00133 

b* 

• ,ACC,ODT •SVEL.OlSP.VZLRO 

oooooo 

00133 

8 • 

c 

oooooo 

00133 

8 • 

END 

oooooo 

0013H 

9 • 

CALL  A OF 

oooooi 

0013S 

10* 

CALL  DKG  1 l»l> 

000005 

00136 

11* 

call  sblini 1.91 

00001 1 

00137 

1 2* 

CALL  SLLINI 1 »9) 

000015 

OOISO 

1 3* 

LMAXM-lMAX-1 

000020 

OOM1 

1 M* 

00  100  L-l iLMAXM 

00&024 

OOI*H 

IS* 

call  LINEUVlXBULlL)  .YBUl(l)  .XBUL<L*1)  iYBUL<LM)  1 

0000*t2 

ooms 

16* 

100  CONTINUE 

0000H2 

001H7 

17* 

CALL  PRiNTV<72»NAMEi 123,23) 

000050 

001S0 

18* 

RETURN 

000055 

001S1 

19* 

END 

END  OF  COMPILATION:  NO  diagnostics. 


p* 

IQ 


ro 

Ln 
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COT 

bfon.s  cot 

FOR  SE2C"04/I4/75-o9!36:33 


SUBROUTINE  COT  ENTRT  point  00027(j 


STORAGE  USED!  CODE!  I ) 0003011  OaTA(O)  000047;  BLANK  C0HM0N(2I  OOOOOO 

COMMON  BLOCKS; 

0003  ARRAYS  IOOISI 

0004  PARAHS  000073 

0005  6ELI  030424 


EXTERNAL  REFERENCES  (BLOCK,  NAME) 


000* 

RHO 

0007 

ALOG 

0010 

5WRT 

001  1 

NERR6S 

0012 

NERR3S 

STORAGE  ASSIGNMENT  (BLOCK,  TYPE,  RELATIVE  LOCATION,  NAME) 


0001 

000127 

10’L 

0031 

0002c* 

1 IOL 

0001 

00000* 

1 HO  w 

0005 

OOOH 1 7 

ACC 

0000 

R 

00001 1 

AF 

0003 

n 

07*734 

AFOB 

OOOH 

R 

00001s 

AP 

0004 

00001 1 

AS 

0003 

075**7 

BEN 

oooh 

R 

000016 

BP 

0004 

00003S 

BQ 

0000 

n 

OOOOlO 

C 

OOOH 

000032 

compen 

OCJO 

R 

OOOOOS 

DELX 

0004 

000071 

DEL22 

OOOH 

R 

000007 

OT 

0004 

0C0023 

DTCP 

0004 

000021 

OTOUMP 

000  H 

00002S 

OTP 

0000 

R 

000017 

OTU 

0000 

R 

000020 

OT  V 

0003 

R 

075272 

DY 

0003 

0754(7 

OYP 

0004 

1 

000002 

EMP 

0003 

061235 

F 

0000 

R 

OOOOOI 

FACT 

0004 

I 

000004 

FAK 

0003 

10002H 

FT  A A 

0003 

07*115 

FL 

0003 

376177 

FR 

0003 

020337 

FX 

0003 

025724 

FY 

0004 

000010 

G 

oooo 

I 

ooooqh 

1 

0004 

00005S 

ICR 

3003 

0771*2 

ICRACK 

0000 

I 

000012 

1 J 

0034 

000057 

UMAX 

0035 

000251 

ikmax 

OOOH 

OOOOHH 

1MAX 

0034 

l 

00004* 

IMAXM 

3030 

00002* 

INJP* 

0005 

000233 

ISTOP 

'3000 

1 

000003 

J 

0004 

00005* 

JCR 

OOOH 

0000H5 

JM  A X 

0004 

I 

000047 

JMAXM 

0004 

0000*4 

JSEP 

OOOH 

000050 

KM  AX 

0005 

00022* 

UMAX 

0004 

000070 

M H M A X 

OOOH 

000053 

NOOMP 

03J4 

0000*7 

HU  MAX 

0004 

I 

OOOOOS 

OB 

0000 

1 

OOOOOO 

PART 

0035 

000144 

PBUL 

0034 

300027 

PM  1 N 

OOOH 

I 

000062 

REV 

0000 

R 

00000* 

RH 

000* 

R 

OOOOOO 

RHO 

0003 

07  H 655 

RPL 

0000 

R 

0000(3 

SC 

0004 

000333 

5HEN 

0005 

000252 

SMOM 

0004 

030334 

SPEN 

0004 

I 

OOOOOI 

SUR 

0003 

0H0676 

513 

0003 

04*2*3 

S33 

0005 

R 

000227 

T 

OOOH 

R 

000020 

TOOMP 

0000 

R 

00000/ 

th 

3004 

000017 

TLAST 

OOOH 

000026 

TTOTAL 

0C03 

07*632 

T l 3B 

3033 

076*73 

T33b 

OOOH 

0000H3 

UCRACK 

0333 

077350 

UOB 

0003 

H 

0CSJ6S 

V 

0003 

0 7 7 H 32 

VO  B 

0304 

330033 

^SC ALE 

0303 

1C335S 

W 

0001 

000024 

0003 

075*05 

0004 

000014 

0003 

10010* 

0000 

R 

000015 

0000 

R 

00001* 

0003 

R 

07471* 

0000 

R 

000014 

0003 

07*343 

0003 

07*2*1 

ooos 

000420 

0005 

000230 

0004 

0000*0 

0005 

000231 

0003 

077307 

0004 

000051 

ooos 

000234 

0004 

00000* 

0003 

07701* 

0003 

07*571 

0004 

1 

0000*! 

0005 

000421 

0003 

07SS44 

0004 

R 

000024 

0033 

R 

OOOOOO 

0005 

000335 

0003 

100137 

1H3G 

0003 

ALN 

0003 

BETA 

0004 

CO 

0004 

OENOM 

0005 

OTU 

0000 

OX 

0003 

ENUH 

0004 

FB 

0003 

FT 

0004 

GOT 

0004 

10UMP 

0005 

IKMAXP 

0003 

iplot 

0004 

JCR ACK 

0003 

kbar 

0004 

NAME 

0004 

OBFUL 

0003 

POB 

0003 

RMOVB 

0004 

small 

0005 

SVEL 

0003 

TAU 

0004 

TP 

0003 

U 

0005 

VBUL 

0003 

VVV 

OOOS 

077773  AA 
012752  AM* 

| 000003  IND 
00003*  CK 
000422  0|SP 
H 000002  OTM| N 
074757  DXP 
000031  EPS 
077742  rr 
I OOOOOO  FULL 
0O00| 3 HMU 
000232  IED(T 
077544  IM*S 
0000*3  ISCP 
07757*  JMAS 
000052  K5ARM 
000054  MCTC 
053*50  P 
074553  R 
p 0000)2  RH02 
000250  SHASS 
033311  Sll 

n 000022  Ter 
077**0  TT 
000253  UBUL 
07*425  VF08 
000423  VZERO 


COT 


0003 

07*4512 

X 

03J3 

n7S7bl 

A b 

CC  JS 

0CCJ03 

XBUL 

OOu  3 

077100 

XCT 

0003 

0**622 

XK 

0003 

07<»*l*» 

X PL 

JGJH 

003C37 

XP  1 

OGOH 

DCdOHO 

XP2 

000*4 

000065 

XSEP 

0003 

07S020 

Y 

0003 

07*033 

YB 

OCv  s 

0o0C62 

TBUL 

G0J3 

07  6bQ  7 

YCT 

0003 

071556 

YK 

0003 

0751*45 

YPL 

000*1 

OOOOHl 

YP  1 

o njH 

3 JOG  M 2 

Y P 2 

GOjH 

030366 

YSEP 

0003 

077711 

ZZ 

000*4 

00007 1 

zzprt 

OOIOI 

00101 

ooioi 

OOIOI 


*0 

a 

a 


K) 


SUBROUTINE  COT 


COT  CALCULATES  THE  TIHE  STEP  (DTI* 


OOIOI 

$• 

OOIOI 

4 • 

(;•••« 

00103 

7 • 

INCLUDE  C0M.L15T 

00103 

8 • 

<:•••« 

00103 

8* 

COM  • 

PROC 

,N0»I2  ,IJD»S0 

0010*! 

8 • 

PARAMETER  10*33  .J0-8S 

.K0-I500 

00105 

8* 

PARAHETER  LD-ISo  • NNO 1 H» 25 

. MhD ! m* 1 0 

00106 

8 • 

PARAMETER  hARR*lO»ID*JD*llMD  + S«JD*17» 

1 JO*2*XO*7«hNOIM* 

MMDlh 

00107 

8 • 

parameter  npar-s? 

001  10 

8 • 

COMMON/aRRAYS/U( Iu.JD) 

• V( ID. JD) 

.AMX<  U.JOI 

• 

001  10 

• FX  1 1 D • JO  I ,FYI|D,JO> 

»sm  i d i Jo 

| . S 1 3 ( I 0 • JO  I 

1 

001  10 

•S33II0.J0)  iP(lOiJD) 

•Ft 1D.JD1 

,XK(KD| 

» 

001 10 

a* 

•YKIKOI  .Xllul 

•R( ID) 

. XPL 1 1 0 1 

» 

001  10 

8* 

• RPLUD)  iOXl|OI 

. DXP ( ID) 

• ▼ ( JO) 

• 

001 10 

8» 

• YPL  ( JO  1 iBTUDI 

•DYP(JD) 

( taut  1 o ) 

• 

001  10 

8 • 

•ALN(IJD)  iBEN(IJD) 

• Xb ( I JD 1 

,TBI 1 JDI 

• 

001 10 

8 • 

• FLUJD)  # FR  1 I JO  1 

• FT  < 1 JD) 

•FB ( IJo 1 

» 

Ooi  10 

8 • 

• VFOBUJO)  . YCT ( I JD  1 

•RH0V8I ID) 

» T 1 38 ( 10) 

• 

001  10 

8* 

• T33B  < I D ) lAFOallJD) 

• POD ( 1 JD) 

. XcTI 1 jD ) 

t 

OOI  10 

8* 

• 1 CRACK ( JO  1 . JCR aCK ( I 0 | 

• UOB  ( 1 JD) 

. VOB  < IJO) 

1 

OOI  10 

• • 

• IHASUJDI  •JHASUJDI 

•TTCNNDJH) 

.ZZtNNolHI 

» 

OOI  10 

8 • 

• FF(NNDIM)  • A A 1 NNO 1 M 1 

•FFAA(NND) 

Hi  .VVINNOIMI 

I 

001  10 

8 • 

•CDINNOIHI  .VVV(MHOIH) 

OOI  1 1 

8» 

common/params/  full 

• SUR 

.EMP  .6NB 

• FaK  • 

OOI  1 1 

8 • 

•OB  lOBTUL  iUT 

t G 

■AS  tRHOZ 

• HMU  , 

00111 

8* 

•BETA  iAP  iBP 

•TLASY 

■ TOUMP  . 0 T DUMP 

• TCP  • 

00 1 1 1 

8 • 

•DTCP  .TP  .OTP 

•ttotal 

■ PM  1 N . VSC  ALE 

• EPS  , 

OOI  1 1 

8* 

•COMPEN  .ShEN  .SPEH 

• BO 

>CK  .XPI 

t XP 2 • 

OOI  1 1 

8* 

• YP 1 . YP2  .UCRACK 

• 1 M A A 

■JHAX  . | HAXH 

•JMAXM  f 

OOI  1 1 

8 • 

• KHaX  .kbaR  .KBARh 

•NOUMP 

,NCTC  .ICR 

• JCR  • 

OOI  1 1 

8* 

• UMAX  .ikhaxp  .small 

• REV 

i 1 SEP  » jSEP 

•XSEP  • 

OOI  1 1 

8 • 

•YSEP  .NNHAX  .MMMAX 

•ZZPRT 

.DELZZ 

00112 

8 • 

integer  f .ob  .full 

• SUR 

.EMP  .aND 

• fak 

OOI  12 

8 • 

• .part  .shall  .rev 

00113 

8* 

DATA  FULL/I/SUR/B/EHP/7/BN0/I0/FAX/13/UB/16/FART/5/ 

00123 

8 • 

DATA  REV/I5/SMALL/1H/ 

0012* 

8 • 

DEFINE  INDEX l 1 . J) •FLOIO. 1 0 .F  l 1 . J)  1 

00127 

8« 

OEFINE  NBIT<NB.r/0|*FL0(3*-NB 

• 1 *180) 

00130 

8 • 

INCLUDc.  GELCHN.LtST 

00130 

8* 

END 

00130 

8* 

GLLCMN  PROC 

000000 

000000 

OQOOOO 

000000 

oooooo 

ooOooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

OOOOOO 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

OOOOOO 

oooooo 

oooooo 

OOOOOO 

OQOOOO 

OOOOOO 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

OOOOOO 

OOOOOO 

OOOOOO 

oooooo 

oooooo 

OOOOOO 

oooooo 

OOOOOO 

oooooo 

oooooo 
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COT 


00132 

8« 

00133 

8« 

00133 

8« 

00133 

8« 

00133 

«• 

00133 

8 • 

00133 

8« 

0013*4 

00136 

10* 

00136 

1 !• 

00137 

12« 

00  1 *4  2 

13* 

001*45 

\H^ 

001*47 

15* 

001*47 

16* 

00151 

17# 

00152 

i 8 • 

00153 

!?• 

0015*4 

20« 

00156 

2 1 • 

GO  1 57 

22  • 

00160 

2 3 • 

00162 

2 *4  • 

00163 

25» 

0016*4 

26  • 

00165 

27  • 

00166 

28  • 

00166 

29* 

00167 

30# 

00167 

3 1 • 

00 1 70 

32* 

00170 

33* 

00172 

3 *4  • 

00173 

35* 

00173 

36* 

0017*4 

37  • 

00176 

38  • 

00200 

39  • 

00200 

*40® 

00203 

*♦  1 • 

00203 

*42* 

0020*4 

*43® 

00206 

002|0 

*45« 

002|2 

*4  6# 

002  | *4 

*4  7* 

00215 

*48« 

end  OF 

PARAMETER  NGEL«5»JUMAX*|2*IS 

COMMON  /GEtl/  XBUl<QLMAX) .TBULIQLMAXI ,M8Ul«'JUNAXI .LMAX.T, 

. lOOrtP . I PLOT . lEoIT , l STOP .NAME! I2).SMaSS,IKHaX 

• , SMOH.UBULCQLMAx) .VBUlCQLMAXI 

• ,ACC,60T»5VEL.0lSP,VZE«0 

END 

OATA  FACT/. 6/ 

0TMIN.I«E*20 

.........  LOOP  THROUGH  CELLS 

DO  I 10  J"2 . JHAXH 
DO  110  1 "2 i I MAXH 

IFINBIT ( FULL i F ( I i J I ) • NE  . I iGO  TO  110 
IFCNBITCSHALL.F ( I i J) ) « EQ  • 1 )60  TO  I 10 

calculate  parameters  needed 

DELX-AHINI  CDXU)  tt>T(J)  I 
RH«RHOI 1 i J) 

TH-ALOGCRH/RHOZ) 

IFCTH.LT.O.OITH.O.O 

C.S9RTC <AP*3»0»BP»TH»«2)/RHI 
AF-1  .0 

IFCNB  IT (OBiFI 1 . J> t »NE.  I )Go  TO  10? 

IJ. INDEX! I ■ J* 

AF-AFOBH  J> 

10?  SC-FACT 

ENUM«OX< I )»DT( J) 

DENOM«DXl |)*ABS(V(1 , J) I.DY  < J»»ABSCUC 1 ,J) )*0ELX*C 
CALCULATE  TIME  STEP  FOR  CELL  1 . J. 

DT  I J»SC*£NUM/DEN0m 

save  minimum  time  step* 

IFIDTIJ.LT.DTMINIdTMIN-DTI  J 
c. ........  CALCULATE  ACCURACY  criterion. 

DTU-* I *0X ( I )/( ABS(U( I » J) 1*1 .E-6) 
DTV-.l»DT«J>/'fABS|V<I.J))*|.E-*» 

c. ........  IF  aCCURACT  time  step  less  than  stable  TIME  step*  save. 

IF t OTU.LT. OTHINIDTH IN. DTU 
IFCDTV.LT.OTMINIOTMIN.DTV 
IIG  CONTINUE 

c. ........  SET  TIME  STEP  TO  M|N|mUM  REflUlRED. 

c.....°I..Tmake  time  c^actly  correspond  to  print,  plot  or  dump  time* 
ifct.dt.gt.tcpidt.tcp-t 
IFIT*DT.GT.TP)DT-TP-T 
IFCT.DT.GT.TDUMP)DT.TDUmP-T 
ifcdt.le.o.oireturno 

RETURN 

end 


compilation;  no  diagnostics. 


000000 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
000001 
000021 
000027 
00003* 
00003* 
00001* 
0000*3 
0000*0 
0000** 
000072 
000|0* 
OOOl 10 
000120 
000121 
000 | 27 
000 | 30 
000|33 
000133 
000|11 
000(11 
000(17 
000(17 
000(5* 
000(*3 
0001*3 
000(71 
000177 
0002(2 
0002(2 
000212 
0002(2 
000211 
000221 
000231 
000211 
000251 
000)00 


UHDG 


CLLL 
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MFOk.S  CELL 

FOR  SE2C-0?/|?/7S-09:3*:36  < 3 » > 


CELL 


SUBROUTINE  CELL  ENTRT  POINT  JOu  1 3 o 


STORAGE  USED ; CODE  I 1 > 000172;  OATAIO)  OCOOIO;  BLANK  C0HM0N(2)  OOOOOO 
COMMON  BLOCKS: 

0003  arrays  iooisi 
0001  PARAHS  000073 
OOOS  GELl  000S2H 


EXTERNAL  REFERENCES  (BLOCK,  NAME) 


0006 

STORAGE 

NERR3* 

ASSIGNMENT  (BLOCK,  TYPE 

, RELATIVE  LOCATION,  NAME) 

0001 

0000S2 

k 0 1 L 

SOU  1 

000063 

10  ZL 

0001 

000i)75 

103L 

0001 

C0012S 

I3*L 

0303 

077773 

AA 

0005 

OOOS 17 

acc 

0003 

0I27S2 

A MX 

OOOS 

000016 

AP 

ooos 

00001 1 

AS 

0005  1 

000003 

bNO 

OOOS 

000016 

BP 

ooos 

000035 

BQ 

OOOS 

000032 

COhPEN 

OOOS 

000072 

OELZZ 

0005 

000S22 

D1SP 

OOOS 

000021 

OTDUHp 

OOOS 

000026 

DTP 

0003 

07S7I6 

DX 

0003 

07SS17 

OYP 

OOOS 

1 

000002 

EMP 

ooos 

000031 

EPS 

0003 

D763S3 

f B 

0003 

0777S2 

FF 

0033 

100025 

ffaa 

0003 

076261 

FT 

OOOS 

t 

OOOOOO 

FULL 

0003 

020337 

fx 

OOOS 

000S20 

GOT 

OOOS 

000013 

H MU 

OOOS 

000055 

ICR 

OOOS 

000232 

icon 

ooos 

000067 

l JHAX 

0005 

000251 

IKHaX 

OOOS 

ooooss 

I M A X 

OOOS 

t 

OOOOS  6 

IMAXM 

0000 

000001 

INJP* 

OOOS 

000233 

ISTOP 

ooos 

300056 

JCR 

0033 

077307 

JCPACX 

OOOS  I 

OOOOS7 

JttAXh 

ooos 

0C006S 

JSEP 

OOOS 

000051 

KB  AR 

OOOS 

000226 

L M A X 

OOOS 

000070 

HHHAX 

0005 

000235 

name 

OOOS 

000067 

NNHAX 

OOOS 

I 

000C06 

06 

OOOS 

000006 

OBFUL 

OOOS 

oooiss 

PBUL 

ooos 

000027 

PMIN 

0003 

077016 

P08 

0003 

07657  1 

RHOVB 

ooos 

000012 

RHOZ 

0003 

37S655 

RPL 

OOOS 

000250 

SHASS 

0006 

000252 

SMOM 

OOOS 

000035 

SPEn 

0003 

033311 

SI  1 

0003 

0S0676 

S 1 3 

0003 

0S6263 

S33 

OOOS 

000022 

TCP 

ooos 

000020 

T DUMP 

ooos 

000017 

TL  AST 

OOOS 

000026 

TTOTAL 

0003 

076632 

T13B 

0003 

076»73 

T33B 

OOOS 

OOOOS3 

UCRACK 

0003 

077350 

UOB 

0003 

005365 

V 

0003 

077S32 

VOB 

ooos 

000030 

V SC ALE 

0003 

100055 

W 

0003 

07SS12 

X 

0003 

075751 

XB 

0005 

OOOOOO 

XBUL 

0003  R 

0 7 •)  6 | S 

XPL 

ooos 

000037 

XP1 

OOOS 

OOOOSO 

XP2 

0003 

076033 

YB 

ooos 

000062 

YBUL 

0003 

076507 

YCT 

OOOS 

OOOQS 1 

YPl 

ooos 

0*iCOS2 

Yp2 

OOOS 

000066 

YSEP 

000  I 

000102 

loU 

0001 

000143 

105l 

0003 

076735 

AFOB 

0003 

07S40S 

aln 

0003 

075667 

BEN 

6oos 

00001S 

beta 

0003 

100106 

CD 

Ooos 

000036 

CK 

000*1 

000007 

DT 

Ooos 

060023 

DTCP 

0003 

075757 

DXP 

0003 

07S272 

OY 

0003 

I 

061235 

F 

OOOS 

1 

ooooos 

0003 

0761  IS 

fl 

0003 

074177 

fr 

0003 

025725 

FY 

0005 

ooooio 

€ 

0003 

077162 

1 CRACK 

0005 

000230 

IDUhP 

000*4 

000060 

IKMAXP 

0003 

Of7SJ1 

1 HAS 

0005 

000231 

I PLOT 

0005 

000063 

1 SEP 

0003 

077576 

JHAS 

OOOS 

oOooss 

JHAX 

000*4 

000052 

KBARH 

OOOS 

OOOOSO 

KHAX 

000*4 

000055 

NCYC 

ooos 

060053 

nquhp 

0003 

053650 

P 

0000 

1 

OOOOOO 

PART 

0003 

075553 

R 

ooos 

i 

000042 

REV 

000*4 

000033 

SHEN 

ooos 

1 

000061 

shall 

000*4 

I 

000001 

SUR 

000$ 

000521 

svel 

0005 

000227 

T 

0003 

07S5SS 

TAU 

000*4 

000025 

TP 

0003 

077440 

TT 

0003 

OOOOOO 

U 

000$ 

000253 

UBUL 

ooos 

000335 

VBUL 

0003 

076S25 

VPOB 

0003 

IOOI37 

VVV 

000$ 

0005*3 

VZERO 

0003 

077100 

XCT 

0003 

R 

064422 

XK 

000*4 

00006S 

X5EP 

0003 

075020 

Y 

0003 

R 

071556 

yk 

0003 

R 

0751S5 

YPL 

00G3 

077711 

ZZ 

OOOS 

000071 

X2PRT 
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CELL 


00101 

00101 

OOIOI 

OOIOI 

OOIOI 

OOIOI 

00103 

00103 

00103 

00103 
0010*1 
00105 
00105 
00107 
00110 
00110 
001 10 
001  10 
001  10 

001 10 

ooi  io 
001 10 
OOI  10 
Ooi  to 
ooi  io 
OOI  10 
Ooi  10 
OOI  10 
OOI  1 1 
OOI  1 1 
OOI  1 1 
001  1 1 
OOI  1 1 
OOI  1 1 

0011 1 
OOI  1 1 
OOI  II 
00112 
OOI  |2 
00113 
00123 
00125 
00127 
00130 
00130 

00130 

00131 

00132 

00133 
00133 
00133 
00133 
00133 


I* 

2* 

3* 

1* 

S* 

5* 

7* 

B* 

9* 

9* 

9* 

9* 

9* 

9* 

9* 

9* 

9* 

9* 

?• 

9* 

9* 

9* 

9* 

9* 

9* 

9* 

9* 

»• 

9* 

9* 

9* 

9* 

9* 

9* 

9* 

9* 

9* 

»• 

9* 

9* 

9* 

9* 

9* 

9* 

9* 

»• 

9* 

9* 

9* 


SUBROUTINE  CELL!  1 , J ,K  I 



£«•••••••••••••♦•••••••••••••••••••♦•••••••••••••* *************** 

(•••••••••  CELL  OETERMInES  Rh|Ch  CELL  II. Jl  CONTAINS  PARTICLE  NO  K. 

£•••»•••••••••••••••••••••••••••••••••••••••••••••*••**••***************  * 



INCLUDE  CON, LIST  ........ 


C***« 

c***« 

CON* 


OF  RANSE.  SET  TO  CENTER  Or  MESh* 

• NO* I 2 , | JD*50 


>•••••  |F  I OR  J OUT 
PROC 

PARANETER  10*33  . J0*8s  ,KO*IIOO 

PARANETER  LO*ISo  »NNO  I N*2S  .NHOIR«tO 

PARANETER  NARR*|0.|0*JO*I I*10*5*JO*I7*IJO*2*KO*7*NNOI"*NNO 
PARANETER  NPAR-S9 

CONNON/ARRATS/U( lu. JOI  , V I I 0 , JO  I 

• FXIIO.JOI  ,FY( 1 0 i JO ) .SI  ■ C 10. JOI 

•S33IID.J0I  ,P(l0iJO>  »FIID,JO> 

• YK(KO)  • X « I u I . R I 101 

•RPLIID)  ,0X1 10>  .OXPIIDI 

•TPLIJOI  ,OYljO)  .OYPlJOl 

•ALNIIJJI  .OENilUD)  iXBlIJO) 

•FLIIJOI  ,FR(|JDI  tFTllJO) 

• VFOB ( I JO  I ,YCT(|JOI  , RHOVB 1 1 0 I 

•T33BIIO)  ,ArObl I JO)  ,POB 1 1 JO ) 

• I CRACK (JO ) .JCRaCKIIO)  .UOBllJO) 

• I NAS  I I JO  I (JHABIIJO)  , T T I NNDI H I 

• FFINNOIN)  tAAlNNOIH)  , FF  A A I NNO I N I 


IN 


,AH*I 10. JO) 
, S 1 3 < Io, JO) 
,Xl(KO) 

, XpL I 101 
, Y ( JO  I 
,TaUI 1 D I 
,YB< IJOl 
,FB 1 I JO  > 
,T|3BC ID) 

, XCT ( I jOI 
• VOBI I JO) 
,ZZINNoINI 
.VVINNOIHI 


• CD  1 NNDI N I , VV V ( NNOI N ) 

iBNO 

• Fax 

COMMON/PARAMS/ 

FULL 

• SUR 

*EMP 

• OB 

•OBFUL 

lOT 

• AS 

*rhoz 

1 MHU 

• BETA 

iAP 

• BP 

•tlast 

tTOUhP 

•OTOUMP 

• TCP 

• DTCP 

iTP 

1 OTP 

iTTOTAL 

|PH|N 

tYSCALE 

• EPS 

• XP2 

•COMPEN 

• shen 

• SPEN 

iM 

• CK 

tXPl 

• YPI 

t YP2 

•UCRACK 

»IMX 

• JHAX 

• 1MAXM 

1 JHAXH 

• KMaX 

9 KB  AR 

oKBARm 

• NOUHP 

• ncyc 

• ICR 

1 JCR 

•1 JHAX 

9 IKMAXP 

• shall 

• REV 

• 1 SEP 

• JSEP 

• XSEP 

• YSEP 
INTEGER 

•NNHAX 

f • ob 

# MNM A X 

• FULL 

•22PRT 
• SUR 

•OClZZ 

• EHP 

>bno 

• fax 

END 

OELCHN  PROC 


. .PART  , SHALL  ,REV 

OATA  FULL/I/SUR/9/EHP/7/BN0/I0/FAX/I3/0B/I5/PART/5/ 

DATA  REV/IS/SHALL/l*!/ 

DEFINE  1N0EXI I • J I *FLO ( 0 , 1 • ,F 1 I .Jl I 
DEFINE  NB|TINB,*0|*FL0I35«NB,I »*DI 
INCLUOE  6ELCNN,LIST 


PARANETER  «LHAX*So 
PARANETER  NGEL*S*ULNAX»|2»I« 

CONNON  /(.ELI/  XBUlIOLNAX) .YBULIOLNAXI ,PBUl«QLNAX) .LNAX.T  , 

, IOONP, I PLOT , |EulT, ISTOP .NANEI 12) ,SmaSS,1KNaX 
• , SHON.UBULIQLHAX) .VBULIQLNAX) 

. ,ACC,50T,SVEL.uISP,VzErO 


000000 

000000 

000000 

oooooo 

000000 

OOOOOO 

oooooo 

OQOOOO 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

OOOOOO 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

ooOooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

006000 

OOOOOO 

oooooo 

oooooo 

oooooo 

oooooo 


* 


Page 


cell 


30133 

00131 

00134 

00134 

00110 

00112 

00113 
00115 

00114 
00117 
00ISI 

00151 

00152 
00151 
00155 
00157 

00140 

00141 
00143 
00141 
00145 


BHOG 


9* 

END 

10* 

|F<1»LT.2.0R. I «gT. IHAXHI | ■ 1 H A A h / 2 

1 1 • 

1 F ( J.LT  o2.0R. J.GT, JHAXM ) J.JMAXM/2 

12* 

£••••« 

13* 

IF  1 AK(  K. ) «LT  .APL  ( 1 | IGO  To  102 

19* 

101 

1-1*1 

IS* 

IFlAKUJ.GT.XPLdl  ISO  To  ICl 

14* 

GO  TO  103 

17* 

102 

l-l-l 

18* 

IF  I XK I K) •LT»XPL( 1 ) IGO  To  102 

I ? • 

1-1*1 

20* 

€••••« 

2 I • 

103 

IF! YKCKI oLToYPLC J) )G0  To  10* 

22* 

109 

J*J*I 

23* 

I F < Y K ( K ) oGToTPL(J|  IGO  To  104* 

29* 

GO  TO  106 

25* 

ICS 

J*  J-  1 

24* 

IF(TKCK)  oLToTPLCJ)  160  To  IQS 

27* 

J*J+I 

28* 

106 

RETURN 

29* 

END 

000000 

000000 

000021 

000021 

000011 

000052 

000051 

000041 

000043 

000045 

000072 

000072 

000075 

000(02 

000(01 

000(11 

000(13 

000(15 

000(22 

000(25 

000(71 


END  OF  COHP|LaT|ONi  NO  DIAoNOSTICS. 
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OFOR.S  CELVOL 

FOR  SE2C"0’/ • 9/75-0? S 3* 1 38  <0,1 


CELVOL 


SUBROUTINE  CELVOL  ENTRY  POINT  2C0314 

STORAGE  used;  CODE!!)  0003271  OATA(O)  000047 j blank  COMMON  1 2 1 000000 

common  blocks: 

0003  ARRAYS  I00IS1 

0004  PARAMS  000073 

0005  GEL  1 000424 

0006  VOLCOM  000321 


EXTERNAL  REFERENCES  (BLOCK,  NAME) 


0007 

NERR2* 

0010 

NERR3S 

STORAGE 

assignment  1 

[BLOCK,  TYPE 

, relative  location,  namei 

0001 

000147 

100L 

0001 

000120 

1 0 1 L 

0001 

000126 

102L 

0001 

000255 

10SL 

0001 

000265 

106L 

0001 

000274 

!07l 

ooot 

000021 

1 2 1 L 

0001 

000031 

1 22L 

0001 

000041 

1 23l 

0001 

000171 

2 1 66 

0033 

077773 

AA 

OOOS 

000417 

acc 

0003 

012752 

AMX 

0004 

000015 

AP 

0000 

r 

000013 

ar 

0003 

075**7 

BEN 

0004 

000014 

BETA 

0004 

i 

000003 

BND 

0003 

100106 

CO 

0004 

000036 

CK 

0004 

000032 

COMPEN 

OOOS 

000422 

OISP 

0004 

000007 

OT 

0004 

000023 

OTCP 

0003 

07471* 

DX 

0003 

074757 

DXP 

C003 

R 

075272 

OY 

OOOS 

000031 

EPS 

0003 

1 

061235 

F 

0034 

1 

030004 

FAX 

0003 

100024 

FF  AA 

0003 

07*115 

FL 

0003 

07*177 

FR 

0003 

020337 

rx 

9003 

025724 

FT 

0004 

OOOOIO 

G 

0006  I 

000313 

| 

0C04 

000055 

ICR 

0093 

0771*2 

icrac* 

OOOS 

000057 

1JMAX 

0905 

000251 

UMAX 

0C34 

000060 

1 KHaXP 

OOOS 

000046 

IMAXM 

0000 

900324 

1NJPS 

0005 

009231 

IPtOT 

0006  1 

000314 

J 

0004 

000056 

JCR 

00C3 

077307 

JCRAC* 

OOOS 

000047 

JMAXM 

0004 

000064 

JSEP 

0004 

000051 

KBAR 

OOOS 

00022* 

lmax 

0904 

C00370 

MMMAX 

0000 

I 

000003 

N 

OOOS 

000053 

NOUMP 

0000 

I 

000004 

NN 

0004 

0000*7 

NNM  A X 

0000  | 

000001 

npts 

000* 

1 

OOOOOl 

Nl 

000* 

I 

000002 

N2 

OOOS 

000006 

obful 

0003 

053*50 

P 

0000 

I 

000000 

PART 

0003 

07701* 

POB 

0903 

074553 

R 

0004 

1 

000062 

REV 

0003 

074*55 

RPL 

0006 

R 

00031* 

SAREA 

0004 

000033 

SHEN 

OOOS 

000252 

SMOM 

0004 

000034 

SPEN 

0000 

R 

000006 

SUM  A 

OOOS  I 

000001 

SUR 

0005 

030421 

SVEL 

000* 

n 

000315 

S VOL 

0003 

04*2*3 

S 3 3 

0005 

000227 

T 

0003 

R 

076544 

TAU 

OOOS 

000017 

tlast 

0004 

000024 

TP 

0003 

0776*0 

TT 

0003 

07**73 

T 3 36 

0003 

C09000 

U 

0035 

000253 

UBUL 

0003 

005365 

V 

0005 

030335 

VBUL 

0003 

07o425 

vfob 

0001 

000134 

0001 

000060 

0001 

000051 

0003 

07*734 

0004 

00001 1 

0004 

000016 

0000 

R 

000017 

0004 

000021 

0003 

075417 

0003 

076343 

0003 

0762*1 

0005 

000420 

0005 

000230 

0003 

077514 

0004 

0000*3 

0903 

07757* 

0004 

000052 

0005 

000234 

0000 

1 

000005 

0000 

1 

000002 

0005 

000144 

0003 

076571 

0004 

I 

000061 

OOoO 

R 

000007 

0003 

033311 

0034 

000022 

0004 

000026 

0004 

000043 

ooas 

077432 

IOJL 

0001 

I10L 

ooot 

1 2SL 

0001 

AFOB 

6003 

AS 

0000 

BP 

0004 

C VOL 

0004 

DTDUMP 

0004 

OYP 

000'4 

FB 

0003 

FT 

0004 

GOT 

0004 

IDUMP 

0005 

IMAS 

0004 

I SEP 

0005 

JMAS 

0004 

KB  ARM 

0004 

name 

0004 

NNN 

0006 

N3 

0004 

PBUL 

&004 

RHOVB 

0004 

SMALL 

0005 

SUM  A X 

OOOQ 

SI  I 

0003 

TCP 

0004 

ttotal 

0003 

UCRACK 

0003 

VOB 

0004 

000142  |04l 
000IS1  IIIL 
000075  1*46 
075*05  ALN 
d 000014  AT 
000030  BQ 
000072  0EL2* 
000025  DTP 
I 000002  CMP 
077742  rp 
I 000000  PULL 
0000)3  HMU 
000232  ICDlT 
000044  IHAX 
000233  ISTOP 
000045  JHAX 
000050  KM Ax 
000054  NCTC 
I 000000  NPT 
| 000005  OB 
000027  PM J N 
000012  RHOZ 
000250  SM ASS 
p OOOOIO  SUMaT 
040i7*  S| 3 
000020  TOUHP 
07**32  T I 3b 
077350  UOB 
000030  VSCa>-E 


CELVOL 


0003  I0005S  VV 

0000  R 000011  X8ARR 

0003  066622  XK 

DOOM  030065  XSEP 

0005  000062  YgUL 

0006  R 000147  YPT 

0004  000071  ZZPRT 


00  J3 

IJO 1 37 

VV  V 

0000 

R 

000012 

X8  ART 

00J3 

0033 

R 

071614 

075020 

XPL 

Y 

0006 

0004 

R 

000320 
00004 1 

YCENT 

TPI 

OOQS 

000423 

V ZERO 

00C5 

OOOJOC 

X 8UL 

0006  R 

000003 

XPT 

0003 

076033 

YB 

0003 

076507 

YCT 

0034 

030042 

YP2 

0003  074S|2  * 

0006  H 000317  XCENT 

0004  000037  XPI 

0000  R 000015  YBARR 

0003  071556  YK 

0004  000066  YSEP 


0003  0757SI  XB 

0003  077100  XCT 

OOOM  000040  XP2 
floor  r oflflfl 1 6 ybart 

0003  R 075145  YPL 
0003  077711  ZZ 


00101 

)• 

00101 

2* 

00101 

3 • 

0O1OI 

00101 

5* 

00101 

6* 

00101 

7 • 

00101 

8* 

00103 

00103 

\0^ 

00)03 

)0* 

OOIOH 

)0» 

OOIOS 

)0* 

00)06 

10* 

00)07 

)0* 

00)  )0 

)0* 

00)40 

)0* 

00)10 

)0* 

00)  )0 

)0* 

00)10 

)0* 

00)10 

)0* 

00)  to 

)<>• 

001)0 

>0* 

00)  10 

10* 

00)  )0 

)0* 

001)0 

00)  )0 

)0* 

001)0 

)0* 

00)  )0 

)0* 

00))) 

00)  ) ) 

10* 

00)  ) 1 

001  ) ) 

)0 • 

00)  1 ) 

)0* 

00) ) ) 

)0* 

00) ) ) 

)0* 

00)  ) ) 

10* 

00)  ) 1 

)0* 

00)12 

)0* 

00)12 

) 0« 

00)  )3 

10* 

00)23 

10* 

00)26 

)0* 

SUBROUTINE  celvol 

(•###*•••••••••••••••♦••••••••••••••• 



CELVOL  CALCULATES  THE  AREA 

£•••••••••  set  of  points*  this  set  OF 

(••••..•••  PARTICLES  PASS l NG  through 


I VOLUME  AND  CENTROID  OF  A CLOSED 
POINTS  CONSISTS  OF  a set  of 
A CELL  AND  THE  CELL  CORNERS. 


•••••••••• 


INCLUDE  COM, LIST 




COM* 


PROC 


PARAMETER  10-33  ,30-85 

PARAMETER  L0-I5O  .NNOlM-25 

parameter  naRR-io»id«jd*i i*i 
parameter  NPAR-5* 

COMMON/ ARR A YS/UI ID, JD) 


• FX< 10,  JD) 


,FY(lD,JO) 


•S33I IO.JOI 
• YK ( KD ) 
•RPLI 10) 
•YPLt JO) 


,P<  ID.JO) 
,X( ID) 
,0X1 10) 
,0Y ( JO) 


•ALNI I JD) 
•FLC IJD) 
•VFOBI 1 JD) 
•T33BI ID) 

• I CRACK ( JO ) 

• IHASI I JO) 
•FF (NNOIN) 
•CD(NNDIM) 


,BEN( I JD) 
,FR( |JD) 
,YCT( IJO) 

, AFOb ( | JO ) 
.JCRaCKI ID) 
• JIIASt  IJO) 
•AA(NNDIM) 
,VVV(MM01M) 


COMMON/PARAMS/ 
•OB  .OBFUL 

,AP 


• BETA 

• OTCP 
•COMPEN 

• YP  | 

• KMAX 

• I JMAX 

• YSEP 
INTEGER 


, TP 
.shen 
, YP2 

,kbar 
, ikmaxp 

, NNM A X 
F »0B 


FULL 
,0T 
,BP 
,OTP 
,SPEN 
•UCRACK 
•KBARH 
•SMALL 
•mhhax 
• FULL 


.KD-1500  ,ND-I2  , | JD-50 
.MMOIH-IO 

0*5 • JO* I 7»I JD*2-K0*7»nN01M*MM0 


.VI IO.JOI 

.AHXIIo.JOl 

>S)  ) ) )D*JD>  |S)2| lOfUO) 

» F ( 1 D • JD  ) 

.xkikdj 

• ROD) 

,XPL( 10) 

•DXP(IO) 

, Y 1 JO ) 

•OYP) JO) 

•TaUIIO) 

*XBO  JO) 

•ybiijdi 

• FTO  JO) 

•FBI IJO) 

•RHOVB) )0) 

, T 1 3B 1 1 0 I 

• POB ( ) JO) 

• XCT | 1 JD ) 

•UOB ( ) JO) 

•VOBt IJD) 

•TT(NNO)H) 

•ZZINNOIM) 

•FFAAINND) 

Hi  .VVINNDIM) 

• SUR 

,EMP  ,BND 

• 6 

, AS  • RHOZ 

•tlasy 

,TDUmP  .dtoump 

•ttotal 

, PM  1 N • VSCALE 

iBJ 

,CK  .XPI 

• I N A X 

,JMAX  , | M AXM 

• NOUHP 

iNCYC  ,!CR 

• REV 

• 1 SEP  > J5EP 

•ZZPRY 

.OELZZ 

• SUR 

,EMP  • 8N0 

• .PART  .SMALL  ,REV 

DATA  FULL/I/SUR/R/EMP/7/BNO/IO/FAK/I3/UB/I6/PART/5/ 


IM 


F AK 

HMU 

TCP 

EPS 

XP2 

JHAXH 

JCR 

XSEP 

• FAK 


OATA  REV/1S/SMALL/14/ 

DEFINE  INDEX  I I •J)-FLOIO,IB,FI I , J ) ) 


000002 

000002 

000002 

000002 

000002 

000002 

000002 

000002 

000002 

000002 

000002 

000002 

000002 

000002 

000002 

000002 

000002 

•00002 

••0002 

000002 

000002 

000002 

000002 

000002 

000002 

000002 

000002 

000002 

000002 

000002 

000002 

000002 

000002 

000002 

000002 

OO0OO2 

000002 

000002 

000002 

000002 

000002 

000002 

000002 
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00127 

ID* 

OEFINE  NBIT(NBtOD)-FLD(36-NB» 1 »WD| 

000002 

00130 

to* 

INCLUDE  GELCMN.LIsT 

000002 

00130 

to* 

END 

000002 

00130 

to* 

GELCM 

N PROC 

000002 

00131 

10* 

PARAMETER  OLMAX.So 

000002 

00132 

10* 

PARAMETER  N6EL-5*gLMAX*l2*lS 

000002 

00133 

10* 

COMMON  /GEL  1 / XQUl ( QLM A X ) . r BUL ( OLM A X ) . PBUl ( 

OLMAXI.LMAX.T, 

000002 

00133 

10* 

. 1 DUMP. 1 PLOT, |EoIT, I STOP. NAME < 121 .SMaSS.1 

KMaX 

OO0OO2 

00133 

10* 

• , SMOM.U0UUQLMAX)  .VBUl(8LMAX) 

000002 

00133 

to* 

• .ACC.fiOT .SVEL.OISP.VZERO 

000002 

00133 

10* 

c 

000002 

00133 

to* 

END 

000002 

00134 

It* 

COMMON/VOLCOM/NPT.NI , N2  , XP T I 1 00 > • VPT I 1 00 > . 1 

.J.SVOl 

000002 

00134 

12* 

•*SAREA,XCENT,YCENT 

000002 

00  1 35 

13* 

NPTS-NPT 

000002 

00 1 35 

1H* 

c 

ts  same  as  entry  side. 

000002 

00134 

15* 

I F ( N 1 • NE • N 2 J GO  TO  110 

000004 

00  1 HO 

16* 

GO  TO  ( 1 21  , 122 , 123, 124  1 ,N| 

000007 

00141 

1 7 • 

121 

IFITPTt NPT1 .LT.YPT1II )G0  TO  III 

000021 

00143 

IS* 

N 1 »N 1 ♦ H 

000024 

00144 

l** 

GO  TO  110 

000027 

00M5 

20* 

122 

IF(XPT(NPT 1 *LT«XPT< I11G0  TO  til 

000031 

G0IH7 

21* 

M«N1*H 

000034 

ooiso 

22* 

GO  TO  110 

000037 

001S1 

23* 

123 

IF  ( YPTINPT  ) .GTiYPTC  IMGO  TO  111 

000041 

00153 

2N* 

N 1 aN  t *H 

000044 

00  1 5H 

25* 

GO  TO  no 

000047 

00155 

24  • 

I2S 

IFCXPTtNPTl  .GT.XPTU  )l«0  To  111 

000051 

00157 

27* 

Nl-NI+H 

000054 

00157 

20* 

c 

000054 

00140 

2f  • 

tto 

IF  INI .LT«N21Nl»Hl*4 

0000*0 

00142 

30* 

N3-MI-I 

0000*4 

00142 

3|* 

c 

•••••  LOOP  TO  STORE  APPROPRIATE  CORNER  COORDINATES. 

0000** 

00143 

3 2# 

DO  100  N-N2fN3 

000071 

00164 

33* 

NPTS-NPTS* 1 

000075 

00167 

3S* 

NN*MOD(N~l i H ) ♦ 1 

ooOtoo 

0CI70 

35* 

GO  T 0 ( 101  » 102, 1 G 3 , 1QH)  ,NN 

O0O|O* 

00170 

36* 

c 

000|04 

00171 

37# 

101 

XP  T < NPTS l ■ XPL l I - 1 J 

000120 

00172 

38* 

YPT<NPTS)»TPL< J) 

000|22 

00173 

30* 

GO  TO  ICO 

000|24 

00173 

SO* 

c 

000|24 

001  7M 

HI* 

102 

X P T ( NP  T S 1 ■ XPL 1 1 ) 

000 | 2* 

00175 

H 2 • 

YPTINPTSI-TPL(J) 

000130 

00176 

H3* 

GO  TO  100 

OO0 | 32 

00176 

HH* 

c 

000|32 

00177 

H5* 

103 

APT<NPTS>-XPL< l ) 

000 | 34 

00200 

H 6 • 

YPT<NPTS)-YPLC J-l J 

00013* 

00201 

H 7 • 

GO  TO  IOC 

000|40 

00201 

N8* 

c 

000|40 

00202 

M ? • 

ION 

APT (NPTS)*XPL< J-l ) 

000|42 

00203 

50* 

YPT«NPTS)»TPL( J-l | 

000|44 

D02QS 

51* 

IOC 

CONTINUE 

000|5I 

00206 

52* 

1 1 1 

NPTS«NPTS*1 

000|SI 
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00206 
00207 
00210 
60211 
0021  I 
002  I 2 
00213 

002  I 1 
002  1 1 
00215 
002  | 5 
00220 
00220 
00221 
00221 
00222 
00222 
00223 
00223 
0022*1 
0022*) 
00225 

00225 

00226 
00226 
00227 
00227 

00230 

00231 
00231 
00233 
00233 
0023H 
00235 

00235 

00236 

00236 

00237 
002*10 
002*<2 
002*0 
0021*4 
00216 
00217 

00250 

00251 

00252 


S3*  c St  T t AS  I POInT  EQUAL  TO  FIRST  POINT. 

51*  APT INPTS)*XPT< I ) 

55*  TPT (NPTS)*YPT ( 1 ) 

56*  NNN-NPTS-1 

S7*  c. ...•••.*  INITIALIZE  suns. 

5»*  SUM A *0 .0 

59*  SUMAX-0.0 


60* 
61* 
62* 
63* 
61* 
65» 
66* 
67* 
68* 
69  • 
70» 
7 l • 
72* 
7 3* 
7l» 
75* 
76» 
77* 
7 6» 
79» 
80* 
• I* 
82* 

83* 
81* 
85» 
86* 
87* 
88* 
89» 
90* 
91  • 
92* 
93* 
91* 
95» 
96* 
97  • 
98* 
99» 


SUMAY-0.0 

••••  LOOP  THROUGH  CLOSED  set  of  POINTS 
00  108  N* 1 » NNN 

••••  X CENTROID  Op  RECTaNqLE 

XBARR«XPT(N)/2.0 

••••  X CENTROID  OF  TRIANGLE 

X8ART«XPT<N)*(XPT<N*I I-XPT4N) 1/3.0 

••••  area  OF  RECTANGLE 

AR-XPT<NI«<YPTIN»-YPT<N*I  I I 

••••  AREA  of  triangle 

AT*. 5* ( XPT ( N ♦ I >-XpT(NII*{TPT4Nl-YPT(N«in 
....  Y CENTROID  OK  RECTANGLE 
YBARR*.5*4YPT(N) ♦YPTIN*!  ) ) 

>••••  Y CENTROID  OK  TRIANGLE 
Y0ART*YPT»N*I)*(YhTIN)-YPTIN*I)I/3.O 
>••••  MOMENT  IN  X DIRECTION 
SUMAX*SUHAX»AR*XBaRR*AT*XBART 
>••••  moment  IN  Y uIRECTiON 
SUMAY*SUMAY*AR*YBaRR»AT*YbaRT 


c AREA 

SUM A" AT ♦ AR*SUMA 
108  CONTINUE 

c***.«***»  STORE  TOTAL  AREA 


SARCA*SUMA 

CALCULATE  COORDS  OF  CENTROID. 

XCENT-SUMAX/SUMa 

ycent*sumay/suma 

••••••••  CALCULATE  VOLUME  USING  PAPPUS'  SECOND  THEORH. 

SV0L-6. 2831 85 »XcEnT*S AREA 

••••••••  total  cell  volume 

CV0L*T AU I I )»0YI Jl 

105  IFISVOL.LT. CVOLIGu  TO  lg6 
SVOL«SVOL-CVOL 

GO  TO  10S 

106  IFISVOL.GT.O.OIGO  TO  107 
SVOL»SVOL*CVOL 

GO  TO  106 

107  CONTINUE 
RETURN 
END 


000151 
000|53 
000156 
000|60 
000|60 
000 | 62 
000163 
000161 
000 l 61 
000)71 
000|7I 
000 | 71 
000)71 
000)77 
000)77 
00020) 
000203 
000206 
000206 
0002)2 
000212 
000216 
000216 
000222 
000222 
000227 
000227 
000231 
000211 
00021) 
000211 
00021) 
000212 
000211 
000211 
000216 
000216 
000251 
000255 
000260 
00026) 
000265 
000267 
000272 
000271 
000271 
000)26 


END  OF  COMPILATIONS  NO  DIAGNOSTICS. 


UHDG 


Ct*  IT 
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CEXlT 


SFOR | S CEX|T 

FOR  SE2C-Q9/l9/7b-09:36SH2  <0»> 

SUBROUTINE  cex  | t entry  point  ocohih 


STORAGE  USED:  CODE(I)  30QS20S  OATAIO)  UOOOHII  BLANK  C0MH0N(2>  OOOOoO 

common  blocks: 

0003  ARRAYS  IOOISI 
OOOH  PARAMS  000073 
OOOS  GEL  I 000H2R 


EXTERNAL  REFERENCES  (BLOCK,  NAME) 


0006  OIRCOS 

0007  LCELL 

0010  ON 

0011  NPRTS 

0012  NI02S 

0013  NERR6* 
00  1 1 NERR3X 


STORAGE  ASSIGNMENT  (BLOCK,  TYPE,  RELATIVE  LOCATION,  NAME) 


0001 

OOOOS7 

IDOL 

0001 

0002SS 

IQSL 

0001 

000172 

1 1 IL 

0003 

07673H 

AFOB 

OOOH 

0000  IS 

AP 

0000 

R 

000007 

BL2 

OOOH 

000036 

CK 

OOOS 

OOOH22 

OISP 

0003 

R 

07m7  1 6 

OX 

OOOH 

000031 

EPS 

0003 

I0002H 

F F A A 

0003 

020337 

FX 

OOOH 

OOOOSS 

ICR 

OOOS 

0002SI 

UMAX 

0000 

00002R 

INJPS 

0000 

1 

00001 1 

12 

OOOH 

OOOOM7 

JMAXM 

OOOH 

OOOOS2 

KBARrt 

OOOH 

OOOOSH 

NCYC 

0003 

0S36S0 

P 

0003 

07HSS3 

ft 

OOOH 

000033 

SHEN 

OOOH 

I 

300001 

SUR 

OOOS 

000227 

T 

OOOH 

00002H 

TP 

0001 

000 1 76 

1 0 1 L 

0001 

C002SH 

I07L 

0001 

OOOI6S 

1121 

0003 

C7560S 

ALN 

003H 

00001 1 

AS 

OOOH 

1 

000003 

bnd 

OOOH 

000032 

COMPEn 

OOOH 

000007 

OT 

0003 

07H757 

DXP 

0003 

I 

061235 

F 

0003 

0761 |S 

fl 

0003 

G2S72H 

FT 

0003 

077162 

icrack 

OOOH 

000060 

IKHAXP 

0000 

1 

OOOOOH 

IP 

OOOH 

30005ft 

JCR 

0000 

1 

ccooos 

JP 

OOOH 

000050 

KH  AX 

OCOM 

0000S3 

NDUMP 

0000 

I 

OOOOOO 

PART 

OOOH 

1 

000062 

REV 

OOOH 

1 

000061 

SMALL 

0035 

OOOH  2 1 

SVEL 

0003 

0755HH 

TAU 

0303 

077660 

TT 

0001 

000202 

I02L 

0001 

000262 

I08L 

0000 

000015 

2 1 F 

0000 

n 

000002 

ALl 

0003 

07S667 

BEN 

OOOH 

000015 

BP 

0000 

* 

coooot 

COSnlN 

OOOH 

000322 

dtcp 

0003 

R 

075272 

DY 

OOOH 

! 

OOOOOH 

F AK 

0003 

076)77 

FR 

OOOH 

030010 

G 

OOOS 

000230 

IOUmP 

0003 

0775 1 H 

l MAS 

OOOS 

00023 1 

i plot 

0003 

077307 

JCRAC* 

OOOH 

Q0006H 

JSEP 

OOOS 

1 

030226 

LMAX 

OOOH 

000067 

NNMAX 

OOOS 

000 1 HH 

PBUL 

0033 

076S7I 

RHOVB 

OOOS 

0002SC 

SMASS 

00C|3 

03331 1 

SI! 

OOOH 

033022 

TCP 

coon 

030026 

TTOTAL 

0031 

000210 

I03L 

0001 

0002| H 

IOU 

0001 

000266 

I09L 

0001 

000230 

1 SOI 

0003 

077773 

AA 

OOOS 

000RJ7 

ACC 

ooco 

R 

000006 

AL2 

6003 

012752 

AMX 

OOOS 

0000 1 H 

BETA 

oooo  n 

000003 

BE  1 

OOOH 

00033S 

BQ 

0003 

100106 

CD 

OCJO 

R 

000310 

costh 

OOOH 

000072 

DELZZ 

00  jH 

000021 

OT  DUMP 

OOOH 

000025 

DTP 

0003 

075H l 7 

OYP 

OOOH  | 

000002 

EMP 

0003 

0763H3 

fb 

0003 

0777R2 

FF 

0003 

076261 

FT 

OOOH  | 

OOOOOO 

fuel 

OOOS 

OOOH  20 

GOT 

OOOH 

000013 

H MU 

OOOS 

000232 

IEOIT 

OOOH 

000057 

UMAX 

OOOH 

OOOOHH 

1 MAX 

OOOH 

0000R6 

IHAXM 

OOGH 

000063 

1 SEP 

OOOS 

0002)3 

ISTOP 

0003 

077576 

jmas 

OOOH 

OOOOHS 

UMAX 

oooo 

1 

000013 

J2 

OOOH 

oOOOSl 

KBAR 

OOOH 

000070 

MMHAX 

&00S 

O0o23H 

name 

OOOH 

I 

ooooos 

OB 

OOOH 

000006 

OfFUL 

OOOH 

000027 

Ph  I N 

0003 

0770(6 

ROB 

OOOH 

000012 

RHOZ 

0003 

07H6SS 

RPL 

OOOS 

0002S2 

SMOM 

OOOH 

OOOOSH 

spen 

0033 

0H0676 

S 1 3 

0003 

016263 

S 33 

OOCH 

000020 

TOUHP 

OOOH 

000017 

tlast 

0003 

076632 

T13B 

0003 

076673 

T33B 
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0003  OCOOOO  U 

0305  003335  VBUL 

0003  100137  WV 

0003  077100  XCT 

OOOM  OOOOMO  XP2 

0003  07*507  yCT 

ODOH  0000H2  Y P2 


0005  CG0253  UbUL 

0003  076M25  VFOB 

0005  COO4* 2 3 V2ER0 
OOOC  R CJOOIH  XF 
QOQ*  000065  XSEP 
0030  R 303012  YF 
QOJH  000G64  Y5EP 


JCw** 

ooouo 

UCRaCX 

0033 

07  7 M 3 2 

V OB 

0033 

07  4b i 2 

X 

0003 

04a  0 2 2 

XK 

3033 

07  So20 

Y 

0003 

071554 

Y K 

0033 

077711 

Z l 

0003  077350  UOB 

OOOH  000030  V5CALE 
0003  075751  X0 

OOC 3 R 07H6M  XPL 
0003  076033  YB 

0003  R 075HS  YPL 
000^  000071  ZZPRT 


0003  005365  V 

0003  100055  VV 

$005  R 000000  XBUL 
OOOH  000037  XP1 
0005  R 000042  YBUL 
OOOH  OOOOH 1 YPI 


00101 

00101 

00101 

00101 

00101 

00101 

OOIOI 

00103 

00103 

00103 

00103 

OOlOH 

00105 

00106 
00107 
00110 
001  10 
001  10 
00110 
001 10 
001 10 
001  10 
00110 
001  10 
001  10 
001  10 
$01  10 
001  10 
001  10 
001  II 
001  1 1 
00111 
001 1 1 
001  1 1 
0011 1 
00111 
001  1 I 
001  1 1 
00112 
00112 
00113 
00123 
00126 


!• 

2* 

3* 

**• 

5« 

4* 

7 • 
8* 

10* 

10* 

10* 

10* 

10* 

10* 

10* 

10* 

10* 

10* 

10* 

10* 

10* 

10* 

10* 

10* 

10* 

10* 

10* 

10* 

\0* 

10* 

10* 

10* 

lO« 

10* 

10* 

10* 

10* 

10* 

10* 

10* 

10* 

10* 


SUBROUTINE  CEXlTll  • J • L • X 2 , Y 2 • N2  « XRE  V . Y«E  V . X I . Y 1 *NU 

r ••• •••••#••••••••••••••••••••••••••••*•••• 

£•••••••••  cexlT  finds  point  and  side  where  POINT  STRING  EXITS 

FROM  A 




INCLUDE  COM  » L I ST 

CELL  CONTAINING  PROJECTILE  POINT  NO  L. 

,ND*|2  i1J0"50 


COM* 


comhon/arrays/ui IoiJOI 
•FX<ID,JO>  , F Y I I D , JD 1 


FIND 

PROC 

PARAMETER  10*33  • JD*8S  ,KD«IGCC 

PARAMETER  L0*1S0  ,NN0lM*2S  .MM01M.10 

PARAMETER  NARR-IO*ID*JO*l I • |0*S* JO* I 7*1 JD*2*KD*7*nN0IM*MMDIM 

PARAMETER  NPAR*5»  ,u¥I.  ... 

,V< 10, JO)  ,AMXI IO.JOI 

, S I I ( I 0 , JO  I ,3131  to, JO  I 
, PUD,  JO)  ,F  I 10  , JO)  ,XX«KO| 

,XdO>  . R 1 10)  ,XPLllO» 

,0X110)  , OXP I ID)  ,Y(JO) 

, 0 Y < JD I ,OYP I JD I .TAUIIOI 

, BEN ( I JO  I , XB I I JO  I ,YB«lJ0) 

,FR ( I JD I , FT  I 1 JO  I , FB I I JO  I 

,YCT||JO)  , RmOVB (ID,  , T I 3B I |0 I 

• AFOdUJDI  ,P08  I | JO  ) .XCT(ljO) 

,JCRaCX(|0)  , UOB ( I JO  I .VOBIIjDI 

, JM AS  I I JD I , TT  C NND I M | .rZtNNOIM) 

.AAInNOIM)  .FFAAINNDIMI  .WINNoIM) 


• S33 1 10, JO) 
•YKIXO) 

•RPL( 10) 

• YPLUDI 

• ALN I I JD) 

• FU  I JD) 

• VFOB I I JD) 
•T33Bi ID) 

• ICRACMJDI 

•IMASIIJO* 
•FF(NNOIM) 
•COINNOIM)  , 

COMMON/PARA MS/ 

• OB 

• BETA 


• DTCP 
•COHPEN 

• YPI 

• KM  AX 

• UMAX 

• YSEP 
INTEGER 

• PART 


.OflfUL 
, AP 
. TP 

• shen 

,YP2 

, kbar 

, IKMAXP 
, NNM A X 
F ,00 

•shall 


1 HMD  I M ) 

full 

tSUR 

, EMP 

• fcND 

, F AK 

• 

• DT 

1 G 

.AS 

• RHOZ 

, HMU 

• 

• BP 

•tlast 

.TOUHP 

.OTOUHP 

» TCP 

• 

• DTP 

•TTOTal 

, PM  | N 

•VSCAUE 

• EPS 

• 

»SPEN 

• BQ 

, CK 

• XP1 

, X P 2 

• 

•UCRACK 

, IMAX 

, JMAX 

• |HAXM 

, JMAXM 

1 

•KBARH 

oNDUHP 

.ncyc 

• ICR 

, JCR 

• 

•SHALL 

• rev 

. ISCP 

• JSEP 

, XSEP 

• 

•hhmax 

• FULL 

•ZZPRT 

.SUR 

•DElZZ 
• EMP 

• BND 

• FAK 

,PAKT  , SMALL  .Rev  . . 

DATA  FULL/|/SUR/M/EMP/7/BN0/I0/FaK/I3/UB/|6/PaRT/S/ 
DATA  REV/IS/SMALL/IR/ 

0EF1NE  |N0EXII,J)*FL0I0,I6,FII,JI 


I ) 


000000 

000000 

oooooo 

000000 

OOOOOO 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

OOOOOO 

oooooo 

OOOOOO 

OOOOOO 

OOOQOO 

OOOOOO 

oooooo 

ooOooo 

oooooo 

oooooo 

oooooo 

OOOOOO 

OOOOOO 

OOOOOO 

oooooo 

oooooo 

oqoooo 

006000 

oooooo 

006000 

OOOOOO 

OOOOOO 

OOOOOO 

006000 

oooooo 

OOOOOO 

oooooo 

00O000 


CEXIT 


00127 

10* 

00130 

10* 

00130 

10* 

00130 

10* 

00131 

10* 

00132 

10* 

00133 

10* 

00133 

1C* 

00133 

10* 

00133 

10* 

00133 

10* 

00133 

10* 

00131 

11* 

00136 

12* 

00134 

13* 

00110 

1M* 

00111 

15* 

00111 

16* 

00112 

17* 

oom 

19* 

00115 

19* 

00117 

20* 

00150 

21* 

00151 

22* 

00153 

23* 

» 0015*) 

20 

00155 

25* 

00154 

24# 

£ 00142 

27* 

oo  00143 

29* 

00141 

29* 

00145 

30* 

00144 

31* 

00147 

32* 

00170 

33* 

00170 

30 

00171 

35* 

C0I71 

34* 

00175 

37* 

00174 

38  • 

00177 

39® 

00200 

MO* 

00200 

Ml* 

00201 

M2* 

00201 

M3* 

30201 

MM* 

00202 

M5* 

00201 

M 4 • 

00201 

M7  • 

00204 

M 0 • 

00207 

H 9 • 

00210 

50* 

00210 

51* 

C02 1 1 

52* 

DEFINE  N8lT(NB»WD|«FLDl34“NB,l  .*0  I 
INCLUDt  GElCHN.LIST 

END 

gelcmn  proc 

PARAMETER  QLMAX»5U 
PARAMETER  NGEL»6»*|LMAX*|2*|1 

common  /GELt/  XflUL IQLMAX ) , YBUL t WLHaX I ,P8Ul < 9LMAX I ,LMAX , T , 

, i dump, i plot , iedit , istop ,namei m ,smaSS , ikmax 

• , SMOM,UaUL(QLMAX)>VBU|.(  JuHAXt 

. ,ACC,6DT,SVEL,uISP,V2ERO 


end 


100 


21 

112 


1 1 1 


data  C0SMIN/.5/ 

IF  I ABS(XI-XBULIL> |.LT.l.E-4*DXIl I .AND. aBSC  YI-Y8UL(L J > .lt. 
•l.E-4»0Y(JI  IL»L*I 

CALL  DIRC05IXI ,YI .XBULILI , Y BUL ( L 1 , XL  I , BE I » 

CALL  LCELLI  IP.JP.Ll 

....  IF  IP,JP  SAME  AS  i.J,  proceed  to  next  point. 

IF(  IP.NE* I .OR.JP.NE.JIGO  TO  101 
L»L*I 

ifil.gt.lhaxigo  to  iii 

CALL  OlRCOSIXBULlL-l) .YbULCL-1 I .XBULtLl «Y»UL|L) ,*l2,BE2I 

COSTH-AL I • aL2*BE l »BE2 
JFICOSlH.GT.COSMlNlGO  to  1 1 2 
CALL  ON  I RE V ,FI I ,J>  I 
XHEV-XBULIl-I > 

YREV»YBUL  I L“  1 1 
PRINT  21 . I . J 

FORHATIIH  , ‘REVERSAL  IN  CELL  • . 1 1 . 1 *t  I 

AL  I* AL2 

BEI-8E2 

60  TO  100 

CONTINUE 

L-L-l 

00  TO  102  „ . ,„lT 

.....  DETERMINE  DIRECTION  of  POINTS  AID  SIDE  OF  EXIT 

1 F I IP-II  102,105, I u 3 


101 

ifc  ip 

102 

12-1- 

N 2 * l 

GO  TO 

1 03 

12-1 

N2*3 

I CM 


EDGE  < 


.........  CALCULATE  Y COORD  (YF | WHERE  STRING  CROSSES  CELL 

IOH  YF»YBUL(L>»(YBUL<L-n-YBUL(L> l/CXBULIL-l I -XBULILI J 

1.*"  {f2YF*NOT  DETWEEN  TOP  AND  BOTTOM  OF  CELL,  GO  TO  loS. 
IFCTF.GT.YPLI Jl IGO  TO  105 
IF IYF.LT.YPLC J-| I iGO  TO  ips 
.........  STORE  EXIT  COORDS. 

Y2»YF 

X2-XPLC l 2 I 

»••••••»•  STRING  DID  NOT  EXIT  FROM  SI*E.  LOOK  aT  TOP  A, ID  BOTTOM. 

| OS  I F c JP-J I I 07 , 1 06 , l wB 


000000 

000000 

onoooo 

000000 

ooOooo 

oooooo 

OoflOOO 

OOOOOO 

OOOOOO 

oooooo 
Oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
000011 
000057 
000057 
000043 
000077 
000102 
OOOI  10 
000| 32 
ooo i so 
0001*0 
000152 
000 | 51 
000,54 
000145 
000 | 45 
000144 
000| 70 
000|72 
000|72 
000|7*» 
000|71 
000 1 7 ft 
000202 
00020*) 
000204 
000210 
000211 
00021  I 
000211 
000211 
000211 
000227 
000233 
000233 
000237 
000211 
000213 
000213 
000215 


Page  139 


CEX  IT 


002 1 t 

S3* 

IQb  RETUHNO 

002  1 S 

SM* 

107  j2«J- 1 

00216 

55* 

N 2 • H 

00217 

S6  • 

TO  10’ 

00220 

S 7 • 

IJb  J2*  J 

00221 

S8* 

N 2 * 2 

00221 

S9* 

C« 

00222 

60* 

109  XF»XBUL<L)*<XBUL<L-l>-*BUL<Ln/ 

00222 

61* 

••( YPLC J2)-YBUL<L> ) 

00223 

62* 

IFtXFfGT.XPU  2 ) )RETURNO 

0022S 

63* 

IF(XF.LT«XPL( 1-1 ) jRETURnO 

00225 

6M* 

C< 

00227 

65* 

X2-XF 

00230 

66* 

Y2-YPL* J2) 

00231 

67* 

110  IFIN2.NE.N1 ) RETURN 

00233 

68* 

1F(NS1T(REV,F  ( I ,J|  I.E«.|  > RETURN 

00235 

69* 

CALL  ON ( RE  V , F t I ,d) > 

00236 

70* 

xrev«xbul«l-i ) 

00237 

71# 

TREV-YBUL ( L-l ) 

002H0 

72* 

PRINT  21 . I .J 

002**  ** 

7 3* 

return 

002**5 

7 S • 

l NO 

END  OF 

COrif'JLA^  ION;  NO  0 I A v»NOS  T 1 c S . 

CROSSES  TOP  OR  BOTTOM. 
-YBUL  IL)  ) 


0002SI 

00025** 

OO02S6 

000260 

000262 

0002*3 

000263 

00026* 

0002** 

OOOJOl 

000113 

000113 

000122 

00032'! 

000330 

0001<I3 

ooOis* 

OO0l6S 

000170 

000372 

OOOHOO 

000517 


JHO& 


CPNINT 
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9F0R,5  C PR  I NT 

FOR  SE*C*0 v/ 1 75-Q9  5 36  : 45 


CPRINT 


SUBROUTINE  CPRINT  ENTRY  POINT  Q0C37/ 


STORAGE  USEO;  CODE!!)  000H13?  UaTA<0>  OOQI33;  BLANK  COMMON  ( 2 ) oooooo 
COMMON  BLOCKS; 

0003  ARRAYS  1 00 15! 

OOOR  PARAMS  000073 
OOOS  GEL  1 000424 


EXTERNAL  REFERENCES  (BLOCK,  NAME) 


0006  ENPLT 

0007  RHO 

0010  PRPLT 

001 1 NPRT * 

0012  NIOl* 

0013  N 1 02* 
00  I 1 NERR3* 


STORAGE  ASSIGNMENT  (BLOCK,  TYPE,  RELATIVE  LOCATION,  NAME! 


0000 

000011 

IF 

0001 

000042 

IA*<G 

0000 

000011 

3F 

0005 

000117 

ACC 

0001 

000011 

AS 

0001 

000035 

Bfc 

0001 

000072 

DEL  2 l 

0001 

000025 

DTP 

0001 

l 

000002 

EMP 

0003 

077712 

FF 

0001 

1 

OOOOOO 

FULL 

0001 

000013 

HMU 

0005 

000232 

IED1T 

0001 

1 

000011 

IMAX 

0005 

000233 

ISTOP 

0001 

l 

000015 

JM  AX 

0001 

000050 

KM  AX 

0001 

1 

00005** 

NCYC 

0001 

000006 

OBFUL 

0000 

R 

00C001 

PEMP 

ocoo 

R 

000002 

PSUR 

0003 

07657 1 

RHO  V B 

0C05 

000250 

SMASS 

0003 

R 

0333  1 1 

SI  i 

CC01 

000022 

TCP 

OOwl 

000162 

1 0 I L 

0000 

000022 

2F 

0000 

000017 

RF 

0033 

076731 

AFOB 

0033 

075667 

ben 

0033 

100106 

CD 

0005 

000122 

D1SP 

0033 

0717)6 

DX 

0031 

003031 

EPS 

0003 

1U0L21 

FF  AA 

0033 

R 

020337 

FX 

OOuO 

l 

OOOCl 1 

1 

0001 

030057 

UMAX 

0001 

000016 

1 H AXM 

0000 

1 

000010 

J 

0001 

000017 

JHAXM 

0005 

000226 

lmax 

0001 

000053 

NDUMP 

0003 

R 

0S365C 

P 

0000 

R 

CGOOC5 

PFAK 

0003 

071553 

R 

0001 

000012 

RliOZ 

0035 

000252 

SMOM 

0033 

R 

010676 

s:  3 

000** 

33C02Q 

T DUMP 

0001 

000317 

IOHL 

0001 

000175 

233g 

0000 

000050 

SF 

0003 

075605 

ALN 

0001 

osooii 

BETA 

3CQ1 

000036 

C* 

3001 

000007 

DT 

00w3 

07-(757 

DXP 

0C33 

I 

06(235 

F 

0003 

076115 

FL 

300  3 

R 

025721 

FT 

0C31 

000055 

ICR 

0035 

000251 

IKMaX 

0000 

OOOIOO 

1NJP* 

0001 

000056 

JCR 

0001 

000061 

jsep 

0091 

000070 

MMM  A X 

0030 

1 

000006 

NLP 

0000 

I 

OOOOOO 

PART 

0030 

R 

000001 

PFULL 

0001 

I 

000362 

REV 

0003 

071658 

RPL 

0031 

000(]31 

SPEN 

3C33 

w 

016263 

$33 

OC^i 

OOOCl 7 

TLAST 

0001 

00001 1 

0001 

000211 

0000 

000071 

0003 

R 

012752 

0001 

1 

000003 

0001 

000032 

0001 

000023 

0003 

075272 

0001 

I 

000001 

0C03 

076177 

0001 

000010 

0003 

077162 

0001 

000060 

0005 

000231 

0003 

077307 

0001 

000051 

0000 

1 

000007 

0001 

000067 

0000 

R 

000003 

0001 

000027 

0000 

K 

000013 

oooi 

000033 

0001 

I 

OOOOOl 

0005 

R 

000227 

0001 

000021 

I 4 AG 

0001 

24  AG 

dooi 

af 

0003 

AMX 

0001 

BND 

0001 

COMPEN 

0000 

DTCP 

0001 

DY 

0003 

FAK 

0003 

FR 

0003 

G 

0005 

| CRACK 

OOOS 

IKMAXP 

0003 

IPLOT 

0001 

JCR  ack 

0003 

kbaR 

0001 

N 

0005 

NNMAX 

0001 

PBND 

0005 

PM  J N 

0003 

RH 

0007 

shen 

0001 

SUR 

OOOS 

T 

0003 

TP 

0903 

000057  14  It 
0002,7  2, 16 
077773  AA 
000013  AP 
000014  BP 
r OOOOj 2 CTTpE 
000021  DTOUMP 
0751J7  DTP 
074313  FB 
074241  FT 
000120  40T 
000230  IDUH* 
077541  IHAS 
000043  | SEP 
077674  JHAS 
000052  K,ARM 
I 000231  NAME 
| 000005  OB 
000111  PBOl 
077014  POB 
R OOOOOO  KHO 
I 000041  SMALL 
000121  SVEL 
075511  TAU 
077460  TT 
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CPRINT 


001  30 

8* 

END 

oooooo 

00130 

e* 

gelcmn  proc 

000000 

00131 

8 • 

PAWAMEIEN  wIMAXbSj 

oooooo 

00132 

8* 

PARAMETER  N6EL«5*wLMAX^i2*1*4 

oooooo 

00133 

8* 

COMMON  /(i£L  1 / XpUL  (NLMAX  1 , YBUc  * QLMAX  ) ,PBUU  4 OtMAX  » ,LMAX  , T , 

oooooo 

00133 

8* 

. IOUHP,  IPLOT, IEulT, iSTOP.NAHtl 12) .SriASS, IKH*X 

oooooo 

00133 

8 • 

• . SMOrt.UBULtQLHAX) iVBUl(OUMAX) 

OOOOOO 

00133 

8 • 

• ,ACC,<iOT,SVEL.olSP,V2ERO 

OOOOOO 

00133 

8* 

c 

oooooo 

00133 

8 • 

END 

oooooo 

001  3N 

?• 

DATA  PFULL/6H  rULL/PSUR/6H  SUR/PBN0/6M  BND/ 

oooooo 

0013“ 

10* 

•PEHP/6M  EHP/PFAK/6H  FAX/ 

oooooo 

00 1 3*1 

1 !• 

OOOOOO 

00  M2 

1 2* 

call  enplt 

606000 

00M3 

13* 

NLP*  1 

006001 

001*4*1 

1*4* 

PRINT  1 , (NAHECN) in-1 ,7) .T.HCYC 

000023 

0015*4 

15* 

PRINT  2 

OOOON7 

00156 

16* 

1 FORMAT!  1 H 1 »7A6,*4H  T*  i 1 PE  1 2 • *4  , *4H  NC  * • 1 «» > 

000062 

00157 

1 7 • 

l FORMAT  4 1 H ,5X • 1H1  ,5X • IHJ , 1 i X , 1HX , 1 l X • 1 HY  . 1 1 X i 1 HU,  1 IX  • IHV  . 1 | X • IHP  , 

000062 

00157 

1 8 • 

• 8X  ,*4HM ASS  ,7X  ,5HCT  T PE  • 1 7X  • IMF  > 

000062 

CO  1 5 7 

19* 

000062 

00160 

20* 

DO  1JI  J«l , UMAX 

006062 

00163 

2 1 • 

00  Ijl  l-I.IHAA 

000062 

00163 

22* 

OO0O62 

00166 

2 3* 

IF(NB)  I (EMP  ,F(| , J|  ) .EW. | )u0  TO  101 

000062 

00166 

2*4* 

000062 

00170 

25* 

IF  INBIT (FOLL.FI i ,j) i.eq.i ICTTPE-PFULL 

0Q0067 

00172 

26 • 

IFtNBI MSUR  ,F( 1 , J) ) .£«. | ICTYPE-PSUR 

600074 

0017*4 

27  • 

I F ( NB I T ( BNO  » F < I ,J) I.EQ. I )CTYP£*PBND 

000|05 

00176 

2 8* 

IFlNBlTlFAK.FI  1 , J|  ) .E9.  | ICTYPE*PF*K 

000|  IN 

00176 

29* 

000 | IN 

00200 

30  • 

PRINT  3,1  ,J,X4 1 ) » f 4 J ) ,U( | tJ) i V 4 I # J ) ,P( 1 , J I , A MX  4 l • J ) ,CTYPE,F( I i J 1 

006(2) 

002  1*4 

3 1 • 

3 FORMATUH  »216,1P6E12.*496x.A6,6X.012) 

000 |NI 

002(5 

32  • 

NUP-NLP* l 

OOOINI 

00216 

33* 

1F<NLP'LE«S2)G0  To  101 

000  | N N 

00220 

3*4* 

nlp-i 

000|N7 

00221 

35  • 

PRINT  *4 

0001  SI 

00223 

3 6* 

*4  FORMAT  1 1 M 1 ) 

000 l S5 

0022*4 

37  • 

PRINT  2 

000IS5 

00226 

38  • 

101  CONTINUE 

000)67 

00231 

3 9* 

PRINT  1,(NAME<N),h«1,7I,T,nCYC 

000 | 47 

002*41 

MQ* 

PRINT  5 

000203 

002*43 

Ml* 

5 FORMAT  4 1 H i5X,lHl,5X,lHJ,uX,lHX,llX,iHY,9Xt3HSll, 

000207 

002*43 

*♦2* 

• 9x.3HSI3.9X  ,3HS33, 10X,2HFX. 10X • 2HF Y , 7 A • SHCT YPE • 

000207 

002*43 

*43* 

• 1 5 X , 3HKM0 1 

000207 

002*4  *4 

*4*4* 

NLP*1 

000207 

002*4*4 

*45* 

000207 

002*45 

*46* 

00  ION  J*  1 # JM  A A 

0002 1 N 

00250 

*47* 

UO  ION  1*1 i IHAX 

000227 

00253 

H 8 • 

IF (NOIIIEMP  ,FU  , Jj I .EQ. 1 )<J0  TO  ICN 

000227 

00253 

*49* 

000227 

G02S5 

sr* 

IF4NU1T  4 FULL  » F 4 I • J ) ) • E3  * 1 )CTYPE*PFULl 

000234 

C0257 

51* 

1F4  NB 1 I ( SUR  ,F  C 1 , J i 1 #EQ. | 1 CT YPE*P5UR 

OO02H7 

00261 

52* 

IF  ( N 8 1 I C ti  N D , f 4 1 , J j 1 , E Q • l 1 C T Y P t *puNu 

330240 

CP R (NT 


02263 
0026  J 
C026S 

00265 
20266 

00266 
00303 
0030*1 
00305 
00307 
003(0 
003(2 
003  ( *1 
003  1*1 
003(7 

00320 

00321 


S3* 

(FlNOl r (F  AK  ,F ( 1 , J|  1 .EO. 1 1C  TYPE 

ss* 

C# 

S5  • 

RH-RrlO  ( I • J » 

*6* 

C* 

S7* 

print  o9iij.xu)iy(J)|S|in,j) 

5 8* 

• FY  l 1 • J>  ,CT  TP£|RH 

S9  • 

6 FORHAKIH  ,2li.  IP7E12.H.6X.A6, 

60* 

NLP-NLP* l 

M* 

1F(NL^.L£.S2)G0  To  iom 

62* 

NLP-1 

63* 

PRINT  H 

PRINT  S 

65* 

IOH  CONTINUE 

66* 

c« 

67* 

call  PKPLT 

68* 

RETURN 

69* 

lNJ 

02027 l 
000271 
000302 
000302 
000307 
000307 
00032* 
00032* 
000331 
00033* 
00033* 
0003*12 
000353 
000353 
000353 
000355 
000*112 


C*  OF  conp  (LaT  I o»«: 


NO  U I AviNOST  lei. 


CRACK 


whdg 
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CRacK 


WF0Rt5  CRACK 

FOR  SE2C-C9/I9/75-G?: 361Mb  « C • > 

SUBROUTINE  CRACK  ENTRY  POINT  U0321*/ 


STORAGE  used:  CODE(l)  C3025S;  OATA(O)  000022;  BLANK  C0HM0N(2)  000000 

COMMON  BLOCKS; 

0001  ARRAYS  10JISI 
OOOH  PARAMS  030073 
OOOS  GEL  I COO4* 2 H 


EXTERNAL  REFERENCES  (BLOCK,  NAME) 


0006  CELL 

0007  NERR6S 
0010  NERR3S 


STORAGE  ASSIGNMENT  (dLOCK,  TfPt,  RELATIVE  LOCATION,  NAME) 


0001 

030 1 6 ^ 

1 J2l 

0031 

00020*1 

10SL 

0031 

3300 3 3 

1 0 7L 

0001 

0302  3 ** 

1 10L 

0001 

000064 

I 5 1 G 

0001 

C00073 

lS7fc 

0003 

077773 

AA 

0005 

000117 

ACC 

0C03 

076731 

afob 

0001 

0300 I S 

AP 

oot4* 

OOOdl 1 

AS 

0003 

075647 

BEN 

0001 

000016 

BP 

OOO4* 

000035 

8Q 

OOC) 

100104 

CD 

0001 

000072 

DEL  ZZ 

0005 

000122 

01SP 

oool 

OOOU07 

DT 

0001 

00002b 

OTP 

0003 

071 7 | 6 

DX 

0033 

071757 

DXP 

0001 

I 000002 

EMP 

03  J4* 

0000)1 

EPS 

0003 

1 

061235 

F 

0003 

0 7 7 7 **  2 

FF 

0033 

IOOU21 

ffaa 

0003 

07  6 | | 5 

Ft 

0001 

1 000000 

FULL 

0933 

020337 

FX 

3003 

325721 

FY 

0001 

000013 

HMU 

00i,0 

1 

000u02 

1 

LOCI 

I 

33005S 

ICR 

0005 

000232 

(EDIT 

OOO4* 

000057 

1 JMAX 

JGu5 

G3L2SI 

1 K M A A 

0001 

OOCOHH 

IMAX 

OOO4* 

I 

C00C16 

IMAXM 

3000 

OuS'JO  7 

IN  JP6 

0005 

000233 

ISTOP 

jujC 

1 

0»3CC) 

J 

0C01 

1 

OOCv'56 

JCR 

0001 

1 OOCOHS 

JMAX 

OOCM 

I 

OOC017 

JMAXM 

OOwl 

Ci>0061 

JSEP 

0001 

0300S2 

KBARM 

0030 

1 

0O00C5 

Ktf> 

0C01 

I 

00C-O50 

KM  A x 

0001 

030070 

HMMAX 

*J0u5 

000231 

Name 

0031 

oocaSi 

NCYC 

0001 

I occoos 

OB 

OOO4* 

300006 

OBFUL 

0003 

053650 

P 

0001 

000027 

PMIN 

UC33 

077016 

POB 

003) 

071553 

R 

0001 

000012 

KHOZ 

JC03 

0716S5 

RPL 

0001 

OOOa33 

SHEN 

0005 

000252 

SMOM 

0034* 

0UC031 

SPEN 

0001 

1 

303001 

SUR 

0003 

0**0676 

Sl3 

0003 

016263 

S3  3 

3005 

000227 

T 

0001 

000320 

TOUMP 

OOC4* 

00001 7 

TL  AST 

3001 

300021 

TP 

0003 

076632 

T 1 3B 

0003 

076673 

T33B 

0033 

030000 

u 

0003 

077350 

UOB 

*3C03 

005365 

V 

OCOS 

000335 

VBUL 

0001 

000030 

vscale 

or*j3 

1 03055 

vv 

0C33 

100137 

VVV 

0003 

075751 

Ad 

OJ„S 

C3C3C0 

XbUL 

0C93 

37/(00 

XCT 

0001 

000037 

AP  1 

JOj4* 

Cd0b«3 

X P 2 

«LJ1 

C3JJ«>6 

X SEP 

0005 

C32062 

T oOL 

3C*3 

C765ij7 

TCT 

wCJ) 

K 

071556 

Y K 

0001 

000057 

0001 

000137 

0003 

075605 

0001 

oooon 

0001 

000036 

0001 

000023 

0003 

075272 

0001 

1 

00000* 

0003 

074177 

0001 

000010 

00C3 

I 

077162 

0031 

000060 

0005 

000231 

0003 

I 

077307 

0000 

l 

000001 

0000 

I 

000001 

0001 

000053 

0000 

I 

000000 

0001 

I 

000062 

0001 

1 

000061 

0005 

00012! 

0003 

075511 

0003 

077660 

0005 

000253 

0003 

074125 

0035 

000123 

0003 

R 

064622 

OOC  3 

« 

075020 

0003 

075145 

l OSL 

0001 

I73G 

0301 

ALN 

0003 

BETA 

0001 

CK 

0001 

DTCP 

0001 

OY 

0003 

fak 

0003 

FR 

0003 

G 

0005 

1CRACK 

doos 

1 K M A X P 

0003 

I plot 

0001 

JCR ACK 

0003 

K 

0001 

K1 

0005 

NDUMP 

0001 

part 

0005 

rev 

0003 

SMALL 

0005 

SVEL 

0003 

TAU 

0001 

TT 

Oooi 

U9UL 

0001 

V F OB 

0003 

V ZERO 

0003 

XK 

0003 

Y 

0003 

ypl 

0001 

000227  10’L 
000213  2|)6 
312752  AH* 

: ooooo)  bno 
0000)2  cohpen 
000021  otdunp 

07SM7  Off 
076313  FB 
074241  FT 
000120  SOT 
000230  IOUmP 
0775p  I HAS 
000043  I5EP 
077574  JMAS 
000051  KBAR 
000224  LHAX 
000047  NNHAA 
000111  FSUL 
024571  RHOVB 
000250  SHASS 
033)  I I Ml 
000622  T(F 

000024  TTOTAl 
OOOdl)  UcRaSK 
077132  VOB 
071512  X 
0714 | 1 XPL 
074033  YB 
000011  YPI 


I 
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CKAC  < 


OOOH 


0010! 

00101 

00101 

OOIOI 

00161 

00101 

00101 

00103 

00103 

00103 

C010H 

00105 

00106 
00107 
001  10 
00110 
00110 
001  10 
00110 
00110 
001 10 
001  10 
001  10 
00110 
00110 
001  10 

001 10 
001  10 
001  I 1 
0011  1 
001  1 1 
0011  I 
001  1 1 

001 1 1 

001  I 1 
0011 1 
001  1 1 

00112 
001)2 
00113 
00123 
00126 
0D127 
00130 
00130 

00130 

00131 
DC  132 
00133 


0C00M2  YP2 


OOOj66  Y5LP 


^Cv3  r 7 7 / 1 I ll 


003**  000071  ZZPRT 


1 • 

2 • 
3* 
M® 
5® 
6 • 
7 • 


9 • 
9* 
9* 
9 • 
9 • 
9 • 
9 • 
9* 
9 • 
9® 
9® 
9® 
9® 
9® 
9® 
9® 
9 • 
9® 
9® 
9® 


SUBROUTINE  CRACK 

£**#***•#•#••••••••••••••••••••#•••••••••••••••< 

* 

CRACK  LOCATC b THE  CRACK  POSITION  AND  CREATES  NEW  CRACK 

£•••»•••••  particles* 

£••••••••••••••••••••••••*••*••< 


► MMo I H 


9® 



9® 

9® 

COM®  PROC 

parameter 

ID-33  • JD*  85 

• KD-ISOC  • ND* 1 2 .1 JD®5| 

9® 

PARAMETER 

LD*I50  .NNDIh-pS 

• K D ♦ 7 • N N D 1 M 

9® 

PARAMETER 

narr- ID* l D • J D ♦ I I • 

|D®S*  w.D®  1 7 • l JD  Z 

9® 

9® 

parameter  npaR-59 
C0MM0N/aRKAY5/U< 1 U • JD ) 

iVI I u , JO  ) 

• AM  ^ ( ID.  JO) 

9® 

• F X ( 10.  JD) 

• F Y ( 1 U ■ J u ) 

• SI  1 ( ID. JD) 

• SI  3 ( lu • JD) 

9® 

• S33C  ID, JO J 

,P(  I U • JD ) 

•F( ID. JD) 

iX<(KD) 

9® 

• YMKD) 

1 A ( 1 U ) 

• R ( U) 

•XPL( Ip) 

9® 

•RPL (ID) 

• UX ( iD) 

• D X P ( ID) 

•Y( JD) 

9® 

• YPL ( JD ) 

,DY( JD) 

•DYP( JD) 

• TAU(  ID) 

9® 

• ALN(  I JO) 

• BEN(  1 JD) 

• XBU  JD) 

• VB ( 1 JD) 

9® 

• FL ( I JD) 

•FR ( i JD) 

•FT( I JD) 

• FB ( 1 JD ) 

9® 

•VFOBl 1 JD) 

, Y C T ( I JD) 

•RHOVii ID) 

• T 1 38 ( ID) 

9® 

•T33B( ID) 

• AFOb( 1 JD) 

•POB ( I JD) 

•XcTfljD) 

9® 

• ICRACM  JD) 

, JCRaCKI  ID) 

• UOB ( I JD) 

• VOB ( 1 JD) 

9® 

•IMASC I JD) 

• JMASl 1 JD) 

,TT(NNDIM) 

•ZZ(NNdIM) 

9® 

•FF(NNDIM) 

• AA(NNDIM) 

•FFAA(NNDIM) 

• V v (NND1M) 

9® 

9® 

• CD(NNDIM)  , VW  < HMD  1M  ) 

COMMON/PAR  AMS/  FULL 

•SUR  .EMM 

• BN  D 

• OB 

• BETA 

• DTCP 
•COMPEN 

• YP  1 

• K M A A 

• UMAX 

• YSEP 
INTEGER 


•obful 

• AP 
. TP 

1 5hEN 

• YP  2 

• KB  Ar( 

, IKhAXP 

•nnmax 
F iOB 


• 0 T 

• bP 

• DTP 

• SPEN 
•UCRACX 
.KB  ARfi 
•SMALL 

•hmmax 

• FULL 


• b 

, TlAST 

• T TO  r AL 

• BO 

• IMA  A 
•NOUHP 

• R t V 
•ZZPRT 

• SUR 


.AS 
1TD0MP 

• PM  | N 

• C K 

• JHaX 
,NC  »C 

• ISLP 
.DElZZ 
,EMP 


.DTOUMp 
» V SC  ALE 
.API 
I : H A A M 
. 1C* 

1 JSLP 

,QNO 


FA* 

HMU 

TCP 

rPS 

AP2 

JHAXM 

JCR 

XSEP 

,FA* 


• ,pakt  , small  .REV  _ , 

DATA  FULL/!/SUrt/M/EriP/7/BNo/IO/FAK/IJ/UB/>6/PART/&/ 

DATA  RtV/IS/SMALL/IN/ 

DEFINE  INDEX ( I . J) >FLD(0 . I 8 ,F I I 1 J) I 
DEFINE  N81TInB|T.D»»FLDI36-NB.Ii«D| 

IMCLUDt  GELCHN.tlaT 

END 

GELCMH  PNOC 

PARAMETER  OLMAX-Sj 

parameter  ngel*s«<.lmaa*  i m 

COMMON  /otLl/  xnUL  < '■'L’-'A  X I , rc<OL  ' 0.  M*  A ) ,PB«l  1 ^ “ « A I . L *1 A X . T . 


000000 

000000 

006000 

000000 

oooooo 

000000 

OOOOOO 

OOOOOO 

oooooo 

oooooo 

ooOooo 

oooooo 

oooooo 

OOOOOO 

OOOOOO 

oooooo 

oooooo 

oooooo 

OOOOOO 

oooooo 

OOOOOO 

oooooo 

oooooo 

OOOOOO 

OOOOOO 

oodooo 

oooooo 

oooooo 

OOOOOO 

oooooo 

ooOooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

OOOOOO 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

030000 

oooooo 


CRACK 


*0 

(u 

<a 

(it 


00133 

9* 

• 

I DUMP  , 1PLUT  • I E u I T • 1ST0P#NaME.(  12)  ..  S.iaSS#  I K M a X 

00133 

9* 

• 

, SMON,Ue»UL<QLHAA)  .VBULCQlHAX) 

00133 

9* 

• 

,ACC.S0T,SVELiU(SP,V2ER0 

00133 

?• 

C 

00(33 

9 • 

END 

00131 

10* 

( F < (CR.LE. I (RETURN 

00136 

1 1 • 

K 1 «KB AK*  1 

00136 

1 !• 

C* 

••••  FIND  CELL  CONTAINING  PARTICLE  NO  KMAX • 

00(37 

13* 

CALL  CELL! I ,J,KMAX) 

00137 

1M* 

....  IF  I.J  NOT  EuUaL  IcR.JCR  CREATE  a NEW  CRaCI 

00110 

1 5* 

1F(  I • E <4  • ICNoAND*J*cy*JCR)GO  TO  101 

00(12 

16* 

107 

KMAX-KMAXM 

00IM3 

1 7 • 

IFIKMAX.GT.KDIRETuRNO 

00I1S 

18* 

XK(KMAX)-X< ICR) 

OOIH6 

19* 

YK ( KM AX ) ■ Y ( JCR ) 

001M7 

20* 

108 

CONT i nue 

00(17 

21* 

C« 

••••  PKESE1  ALL  JcRACK(l)  TO  JMAX, 

OOISO 

22* 

DO  100  I-2.IMAXM 

00153 

23* 

JCR  ACK ( 1 ) « JMAX 

0015M 

2M* 

103 

CONTINUE 

0015M 

25* 

c* 

>•*••  PRESET  ALL  lcKACK(j)  TO  C . 

00156 

26* 

DO  1 0 1 J«2,  JMAXM 

001  6( 

27* 

ICRACKl  JCO 

00162 

28* 

101 

CONTINUE 

00(61 

29* 

1»1CR 

00(65 

30* 

J.JCR  ...  , 

0016S 

31* 

c« 

.....  (F  ICR, JCR  NuT  A FlU(0  CELL,  SKIP  CAlCULaT 

00(66 

32* 

IF  I NBITIFULL.fi  (, JH.NE.I. and. nbitisur, Fit. jh. 

00166 

33* 

c « 

.....  (F  there  are  no  carck  particles,  GO  CREATE 

00170 

3 M • 

lF(KMAX*EQ»KBAR)Go  TO  107 

00170 

35* 

c« 

.....  LOOP  THROUGH  CARCK  PARTICLES, 

00(72 

36* 

DO  105  K ■ K I t KM AX 

00172 

37* 

C< 

.....  FIND  CELL  CONTAINING  PARTICLE  K. 

00(75 

38* 

call  cllli  i • j.m 

00175 

39* 

c< 

.....  if  cell  is  empty,  oestRot  particle. 

00(76 

MO* 

IF ( NB I T ( EMP  , F ( I , J * 1 • NE  • 1 ) GO  TO  132 

00200 

Ml* 

XK ( K ) * j • 0 

00201 

M2* 

t K ( K ) ■ J.O 

00202 

M3* 

GO  TO  105 

00202 

M M • 

C' 

»•••♦  SET  1 CRACK ( J | AND  jCttACMI)' 

00203 

M 5 • 

102 

IFI  l.GT.lCRACKIJ) ( ICRACk(J)sI 

00205 

M 6 • 

IF(  J.LT.JCRACKl  I • » JCRACKH  )»J 

00207 

M 7 • 

105 

CONTINUE 

00207 

M8» 

C< 

.....  PACK  PARTICLES,  GETTING  RIO  ON  ones  that  W 

0021  I 

M 9 • 

KEF *K  I 

002(2 

50* 

00  l‘31  K«KI,KMAX 

002(6 

•DIAGNOSTIC* 

T ii£  TEST  FOR  EQUALLY  BETWEEN  NOM-INTeGERS  MAT  NOT 

002(5 

51* 

IF  (XK(K) •EQ«0«0)Go  TO  109 

00217 

52* 

XK(KEF)«XK(K1 

00220 

53* 

YK(KEFI»YK (K1 

00221 

5 M • 

KEF  «KEF ♦ 1 

00222 

55» 

1 Z 9 

continue 

00221 

56* 

KMAX*KtF-l 

C3225 

57* 

1 13 

return 

particle 


HO 


one. 


OESTROTED. 


BE  MEANINGFUL* 


000000 
000000 
000000 
000000 
000000 
000000 
60O0O* 
000006 
ooOoi i 
00001 1 
0000 1* 
000033 
000036 
0000*17 
000053 
000057 
000057 
000057 
000066 
000073 
000073 
000073 
000073 
00007*1 
OO0O7<t 
000076 
000076 
000(00 
000(00 
000(27 
000(27 
000(32 
000(32 
000(37 
000(37 

200117 
00(56 
000157 
000(60 
000(60 
000(62 
000(72 
000205 
000205 
00&20S 
000207 

000211 

0002(6 

000221 

000223 

000230 

000230 

000231 


4 


end  of  compilation:  i diagnostics 


y 

tn 

M 

o 

o 

o 


v 

U 

■*. 

X. 

u 


>0 

IM 

C*4 

O 

o 


o 

o 

X 

a 
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UF  OR  , S CREATE. 

FOR  SE2C-09/ 19/7S-Q9:36:bi  Cw.J 


CREATE 


SU3K0UTINL  CREATE  EHlKY  POINT  wCC32t> 


STORAGE  USEO:  CODEll)  000314;  D a T a ( 0 ) CDC046;  *lANK  C0MM0N12)  C00030 
COMMON  BLOCKS: 

0003  ARRAYS  100151 

0004  PAR  AMS  000073 

0005  GEL  1 000  42  4 


EXTERNAL  REFERENCES  {BLOCK  « NAME) 


0006 

CELL 

0007 

NPRTS 

0010 

N 1 0 2 5 

00  1 1 

NERR6S 

0012 

NERR3S 

STOHAfat 

ASSIGNMENT 

( BLOCK | type 

, RELATIVE.  LOCATION,  NAME) 

oooo 

000017 

10F 

0001 

00C02I 

1C1L 

0001 

000033 

102l 

0001 

000066 

105L 

U0C1 

OOOIOl 

1*6L 

0001 

OC  0007 

107L 

oooo 

000010 

1 IF 

0001 

000273 

1 10L 

0001 

003232 

1 1 1L 

0003 

077773 

A A 

0205 

OOOH  7 

ACC 

3003 

076734 

AFOB 

0004 

000015 

AP 

0004 

00001 1 

AS 

0003 

075667 

BEN 

0004 

000016 

BP 

0004 

0u0Q35 

BU 

3003 

100106 

CD 

0004 

000072 

0ELZ2 

CO  JS 

030122 

D1SP 

3004 

330J07 

OT 

0004 

003025 

DTP 

3303 

R 

G 71 7 | A 

D X 

JO  j 3 

3 7 m /S  7 

DXP 

0004 

I 

000002 

EMP 

U0J4 

C3333 1 

EPS 

0033 

1 

061235 

F 

0C03 

077742 

FF 

00  J3 

Iw002‘* 

F F * * 

0003 

076115 

FL 

0004 

l 

030000 

FULL 

00^3 

020337 

FX 

0033 

025724 

F V 

0004 

000013 

HMU 

gco: 

I 

;.,coo‘ 

1 

* 03  4 

r 3 U 0 5 5 

ICR 

0005 

000232 

1E0I  T 

CCu4 

jcror  i 

I jhai 

*035 

0C025I 

I K M A X 

0004 

000044 

1 M A X 

U0u4 

OuOOhA 

I M A x h 

uC  .0 

330336 

| N JP  S 

0004 

0LC063 

ISEP 

CC05 

C0C233 

l STOP 

oc:o 

! 

030002 

J 

0003 

077576 

JMAS 

0004 

0000‘is 

JMAX 

0C^4 

300047 

jmaxm 

OOOO 

1 

000003 

K 

00ti4 

1 

030051 

KBAR 

0004 

1 

000052 

kbarm 

0C04 

I 

00C050 

K M A X 

0305 

000226 

LM  AX 

0004 

000070 

MMMaX 

0004 

000053 

ndump 

0004 

000067 

NNMAX 

0004 

I 

000L05 

OB 

oooo 

J 

OOOOCO 

part 

0005 

000 1 HR 

PBUL 

1)004 

000027 

PM  I N 

0004 

1 

900C62 

REV 

DC  j3 

076571 

RHOVB 

0004 

000012 

RHOZ 

0004 

1 

00006 I 

small 

0035 

0002SO 

SMASS 

O0J5 

030252 

SMOM 

0005 

000421 

svel 

00*3 

03331 1 

SI  1 

0003 

040676 

S 1 3 

0003 

075544 

T AU 

03*4 

O30w22 

TCP 

JO  J 4 

030020 

TDUmP 

0003 

C 7 7 o 60 

TT 

OC  j4 

CJ0C2O 

T TO  T A|_ 

CC  33 

0*663? 

T 1 3y 

coos 

C 3C  25  3 

b 3 U L 

.4 

' J C - ‘1 3 

"ChACr 

3^-3 

27/333 

urB 

C003 

L'7  6 *2b 

VF  OB 

r.  3 

*77 

VCb 

L C *• 

~Zj  j? 

, 5 C * w 

( 


oool 

000016 

1 0 3L 

0001 

000051 

iou 

OOC 1 

00020S 

1061 

0001 

0002)1 

10*L 

0001 

000200 

1 I2L 

0001 

000212 

230G 

0003 

075605 

aln 

d003 

01  2752 

AHX 

0004 

000011 

BETA 

0001 

1 

000003 

BNP 

0004 

000036 

CK 

0001 

000032 

COHpCN 

0004 

000023 

OTCP 

0001 

000021 

OTOUMP 

OQO  3 

R 

075272 

DY 

0033 

07S1| 7 

DYP 

0C04 

i 

000001 

F AK 

3003 

076313 

FB 

0003 

076177 

FR 

0093 

07626  1 

FT 

COO  4 

000310 

G 

0005 

OOC 120 

gdt 

0303 

077162 

ICRACK 

0005 

0&0230 

IDUmP 

0004 

000060 

IKMAXP 

0003 

077511 

IMAS 

OCOO 

1 

000001 

IP 

0005 

000231 

1 PLOT 

0034 

0000S6 

JCR 

0003 

077307 

JC*ACK 

OOOO 

I 

ooooos 

JP 

0001 

000041 

JSEP 

OOOO 

1 

000007 

KK 

oooo 

1 

000004 

KIIH 

0005 

000231 

name 

Oooi 

0600H 

NCYC 

0004 

000006 

OBFUL 

0OO3 

053450 

P 

0003 

07701* 

POB 

0OO3 

071553 

R 

0003 

071*55 

RPL 

0001 

000033 

SMEn 

0034 

000031 

SPEN 

0001 

1 

000001 

SUR 

0003 

016263 

S 3 3 

OOOS 

0002)7 

T 

0004 

CQOOI 7 

Tl  *3T 

0001 

000021 

TP 

00  03 

076673 

T 3 TB 

0003 

oooooo 

U 

0033 

OC  365 

V 

0905 

000335 

VBUl 

OITJ 

1C’  55 

V V 

0003 

100 13^ 

wv 

I 


create 


0005 

0C0*<23 

VZERU 

G0o3 

071512 

X 

0C03 

075751 

x B 

oocs 

000000 

XBUL 

0003 

077100 

XCT 

0003  K 

066622 

XK 

0003 

R 071611 

XPL 

0001 

30CJ37 

XPl 

ODOR 

0000*40 

X P 2 

0901 

000065 

X SEP 

0003 

D75C2C 

Y 

0003 

076033 

Yb 

0035 

000062 

YBUl 

OOC  3 

076S07 

YCT 

0003 

R C7 1 SS6 

Y< 

0003  R 

075I1S 

Y PL 

OGO4* 

00001 1 

YP  1 

0001 

0C0012 

YP2 

003*4 

000066 

YSEP 

0003 

0777JI 

22 

COOH  000071  2ZPRI 


00101 

1 • 

subroutine  create 

oooooo 

00101 

2® 

00101 

3* 



00101 

<4® 

NE«  PARTICLES  MhEN  NEEDED. 

000000 

00101 

S® 

00101 

6® 

00103 

7® 

include;  com, list 

oooooo 

00103 

8® 

00103 

9® 

FIND  CELL  C0hTa|N|NS 

PARTICLE  NO  1. 

oooooo 

00103 

9® 

COM®  PROC 

oooooo 

00101 

9® 

parameter  id«33  ,jd*85 

■KU-IS00  , NO-12  , l JOaSO 

oooooo 

00105 

9® 

PARAMETER  LO-lSQ  »NNDlM*7S  .MhDIM-lC 

oooooo 

00106 

9® 

parameter  narr*io® id® jo*i i 

•iD®S®JD®I7®lJ0®2®KD47®NNOIMtMMD|M 

iooooo 

00107 

9 • 

parameter  npar»&9 

oooooo 

001  10 

9® 

COMMON/ aRR A YS/U< ly.JD) 

• V I I D , JD ) ,AM*I lo.JOl 

» 

OOOOOO 

001 10 

9® 

• FXt  ID,JD>  .FY< iD.JD) 

• SIMlDtJDI  ,S|3IIq*JD) 

t 

OOOOOO 

'S  ooiio 

9® 

• S334  ID.JD)  .P< ID. JO) 

•rilD.JD)  ,*K(KD) 

» 

OOOOOO 

OOIIO 

9® 

•YK(KD)  iX(IU) 

, R 1 ID)  ,XPL(ID) 

• 

OOOOOO 

OOIIO 

9® 

•RPL(IO)  .OX(IO) 

.OXP(ID)  ,T«JD) 

» 

oooooo 

£ OOIIO 

9® 

•YPLtJD)  .DYCjD) 

iOTPIJDI  .TaUIIo) 

• 

•00000 

ooiio 

9® 

• ALN ( 1 JO)  |BCN(  I JD) 

•XB(IJD)  ,Yb(IJD) 

• 

oooooo 

ooiio 

9® 

• FU1JD)  * FR  C 1 JD  ) 

. F T ( IJD)  , FBI  IJD) 

I 

oooooo 

Ooiio 

9® 

• FOB  4 1 JD 1 .YCT  t I JD) 

,RHOV|IIOi  , T 1 38  C | D 1 

• 

oooooo 

OOIIO 

9® 

• T 338  4 10)  »AEOb(  1 JD) 

, P06 ( | JD  1 , XC T | | JD  I 

• 

OOOOOO 

OOIIO 

9® 

• ICRACXC JD)  .JCRaCKI 10) 

• UOBdJDI  tVOBIUDI 

. 

OOOOOO 

OOIIO 

9® 

• IMASl  IJD)  .jmas( I JO) 

.TT(NNDIM)  ,22(NN0IM» 

• 

OOOOOO 

001  10 

9® 

•PFCNNDIM)  .AA(nNDIM) 

.ffaainnomi  .winnoimi 

• 

Oooooo 

OOIIO 

9® 

•COCNNDIM)  ,VVV iMMDIM) 

oooooo 

001 1 1 

9® 

common/params/  full 

, SuR  ,EMP  ,bND 

• Fax  . 

OOOOOO 

OOlll 

9® 

• OB  . ObFUL  , DT 

,5  , AS  * RH02 

. MM U . 

OOOOOO 

001 1 1 

9® 

•BETA  .AP  .bP 

.TLAST  .TDuMP  .OTOUMP 

• TCP  . 

OOOOOO 

OOlll 

9® 

•DTCP  .TP  .OTP 

.ttotal  ,PM|N  .vscale 

.EPS  , 

oooooo 

OOlll 

9 • 

•COMPEN  ,ShEN  .SPEN 

,89  ,CK  .XPl 

» XP2  | 

Oooooo 

001  1 1 

9® 

• Y P 1 , YP2  .UCRACK 

, I M A X , JMAX  ,|MAXH 

•JMAXM  i 

oooooo 

OOlll 

9® 

• K M A X . KQ  A K . KB  A Rp 

, NDUMP  , NC  YC  , 1 CR 

t J C P i 

OoOooo 

OOlll 

9® 

• UMAX  . I K M A X P .SMALL 

, RE  V , 1 SEP  »JSEP 

. XSEP  9 

oooooo 

001 1 1 

9® 

•YSEP  .nnhax  .mmmax 

, 2 2PRT  .DElZZ 

oooooo 

00112 

9® 

INTEGER  F .0[>  .FULL 

, SUR  , EMP  ,8ND 

.FA* 

OOOOOO 

00112 

9® 

• .PART  .SMALL  ,RfV 

OOOOOO 

00113 

9® 

DATA  FULL/ 1/SUR/9/EMP/7/8ND/I0/FAK/1 3/ UB/| 6/PART /s/ 

OOOOOO 

00123 

9® 

DATA  REV/IS/SMALL/1M/ 

. 

ooOooo 

00126 

9® 

DEFINE  I NOE XI 1 . J ) -FLO  4 3 . I 8 

,F  4 I . J)  ) 

oooooo 

00127 

9® 

DEF  I K MBIT  4 N R . »Y  D ) * F L D 4 3 6 • 

NB . 1 . 60 ) 

oooooo 

00130 

9® 

InCl  ipt  GElCMN.lUT 

oooooo 

00130 

9 • 

end 

orooco 
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CREATt 


00130 

9* 

GELCHN 

PROl 

0013! 

9* 

PARAME It*  QLHAXsS  j 

00132 

9* 

PARAMETER  MGlL«5»wLMaX* 1 2.) 1 

00133 

9* 

COMMON  /GEL  1 / ABUu«ULMAXI .YBOL(OLMAX) ,PBUL««LMAA)  ,LHAA,T. 

00133 

9* 

• 

I DUMP  • I PLOT  • jEol  T • 1STGP  .NAME  ! 12  1 .ShaSS  , IKMaX 

00133 

9* 

• 

, SMOM.UeUUQLMAA)  iVBULluLMAX  ) 

00133 

9* 

• 

• ACC,  GOT .SVELiOlSP.VZERO 

00133 

9 • 

C 

00133 

9* 

END 

0013H 

10* 

CALL  CLLL1 ) .3. t ) 

00135 

1 1 • 

K * 1 

00135 

1 2* 

C* 

....  F)NO  CELL  HP.JP)  FOR  PARTICLE  NO  K*|. 

CO  136 

13* 

107 

IP-I 

00137 

1*1* 

JP*J 

00110 

15* 

|FlXKUH>.LT.XrL|)HGO  TO  >02 

00112 

14* 

101 

1P-IP+1 

00113 

17* 

IF(XK(K*I  ).GT*XPL(  IP)  IGQ  TO  101 

00115 

18* 

GO  TO  103 

30114 

1 9 • 

1C2 

IP-IP-1 

001H7 

20* 

1 F ( XK ( K+ 1 1 • LT • XPL i IP) 1 GO  TO  102 

00151 

2 1 • 

IP«IP*1 

00152 

22  • 

103 

IF!  Y K ( K ♦ 1 > .LT.YPLl J)  1 GO  T 3 !0S 

0015** 

2 3* 

10H 

JP*JP*1 

00155 

)Ft YK ) .GT.YPLi JPI I GO  TO  101 

00157 

2 5* 

GO  TO  106 

00140 

26* 

105 

JP-JP-I 

00141 

2 7 • 

IF(YK(K*1 )*LT«YPL|JP) IGO  TO  105 

00143 

28* 

JP«JP*1 

00143 

29  • 

C< 

.••••  IF  PARTICLES  K AND  K*|  ARE  MORE  THAN  ONE  CEL|_  APART, 

00143 

30* 

c 

► ••••  CREATE  A NEW  PARTICLE  MALF-».*Y  BETWEEN  ThL 

TmO«  (GO 

0OI41 

3 1 • 

100 

IF  C I AB5!  1-lPI  *GT»  i »ORt  I aBS  ( J-JP  1 ^GT*  1 ) t»0  TO  1 

00144 

32* 

lF!ABS|XK(K*l)-XKiK) > *GT • #5*dX 111  1 GO  TO  138 

00170 

33* 

IF(ABS(YK(K*1)-YKiK)).GT*.5»DY(J)1G0  to  la® 

00170 

3H  • 

C' 

....  PROCEED  TO  NtXT  PARTICLE. 

00172 

35* 

1 - 1 P 

00173 

34* 

J*  JP 

00171 

3 7* 

K*K*1 

00171 

30* 

c< 

>••••  IF  SURFACE  PaRTICLEi  GO  TO  107 

00I7S 

39  • 

IF(K.LT.KBAR)GO  T0  107 

00175 

HO* 

c< 

>••••  IF  CRACK  PARtlCLE.  Go  TO  112 

00177 

HI* 

1F!X tGT .KBARIGO  Ty  112 

00201 

H 2 • 

K*K  ♦ l 

00201 

H 3 • 

C< 

►••••  if  no  more  Particles,  go  to  iic 

00202 

1F(K*GE.KMAXIG0  To  110 

00202 

H5* 

C' 

► ••••  FIND  cell  CONTAINING  PARTICLE  K • 

00201 

H 4 • 

CALL  CELL! 1 ,J.K) 

00205 

H7  • 

GO  TO  107 

0020S 

H 0 • 

c 

.....  IF  MORE  PARTICLES.  Go  TO  107.  OTHERWISE  ,0 

To  110 

00204 

H 9 • 

1 12 

IFCK.LI  .KMAXIGO  To  107 

002 1 0 

50* 

GO  TO  1 10 

00210 

51  • 

c 

.....  prepare  to  shift  particles. 

002)1 

52* 

1C«J 

KM A X*KM A X ♦ 1 

032)2 

53# 

IFOCMAX.LE.KDIGO  TO  109 

002)1 

5**  • 

PRINT  11 

000000 

000000 

300000 

000000 

000000 

000000 

000000 

000000 

oodooo 

000000 

000001 

000001 

000007 

000010 

000012 

000021 

000023 

300031 

000033 

000035 

000013 

00001* 

000051 

000054 

000041 

000044 

0O0O7& 

000074 

000074 

000074 

OOOIOI 

000122 

000135 

000)35 

000)15 

000)17 

000)5) 

000|5) 

oooisi 

000 | 51 
000)57 
000)43 
000)43 
000)44 
000)44 
000)71 
000)74 
000)74 
000200 
090203 
000203 
000205 
090207 
3907)2 
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create 


00216 
09217 
00220 
00221 
00221 
0022  H 

00225 

00226 
00226 
00227 

00232 

00233 
0023H 
002  3 H 

00236 

00237 
002M0 
002 H | 
002  H 6 
002  M 6 
002  m 7 

00250 

00251 


OHOG 


55* 
S 6 • 
57* 
SB* 
S9* 
60* 
61* 
62* 
63* 
6M* 
65* 
66  • 
67* 
68* 
69  • 
7 0 • 
71* 
72* 
7 3* 
7 M • 
75* 
76* 
77* 


II  f OrtM  A T ( 1 H ///'MU*  EXCEEDED  JIMENSICn  LIMIT') 

KETUKN3 
109  CONTINUE 

I F ( K . GT . KB AR  I GO  To  111 
KBAR*K6AR*  1 
KB ARH«KBAR- 1 
111  CONTINUE 
KL I M«K ♦ 2 

••••••••  SHIFT  PARTICLES  TO  H4KE  ROOH  FOR  HER  PARTICLE* 

00  100  KKaKHAX.KLiH.-l 

XK ( KK ) «XK ( KK“  I ) 

YKCKKI-TKIKK-I  I 
100  CONTINUE 

•••••••a  CREATE  NEW  PaRTICLE* 

XK ( K + I |a»5»(XKCK)*XKCK*2l I 
TKtK*«)a.S»«YKIK**TKlK*2)) 

KK»K*  I 

PRINT  lO.KK.XK(t'.K)  .TKIKK) 

ia  FOKP/.TllH  . • NEW  PaRTICLE  CREaTEO.  K-'.IH.*  Xk  ■ • . I PE  I 2 • ** , 
.»  YK»»  . I PE  I 2 - *♦  1 
60  TU  1 07 
I 16  RETURN 
END 


000216 

000216 

000221 

000221 

Q0022R 

000227 

000232 

000232 

000232 

000235 

000212 

000213 

00021* 

00021* 

00021* 

OO02S2 

00025* 

000261 

000271 

000271 

000271 

000273 

000313 


ENO  OF  COHp  | L AT  I ON  j NO  DIAGNOSTICS. 


DImCOS 
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DIRCOS 

BF OR i S OIRCOS 

FOR  SE2C“09/19/75-09:36:S9  10,1 

SUBROUTINE  D1RCOS  ENTRY  POINT  000C33 

STORAGE  USED;  COOE(t)  000011!  OATAIO)  UOOOIOi  BLANK  C0HM0N(2)  000000 


EXTERNAL  REFERENCES  (BLOCK,  NAME) 

0003  SORT 
0001  NERR3S 


STORAGE  ASSIGNMENT  (BLOCK,  TYPE,  RELATIVE  LOCATION,  NAME) 


0000  R 000000  OX  COOO  R 30CO(jl  DY  0000  000003  |NJP*  OOCO  N 00000*  R 


0010)  I*  SUBROUTINE  D|RC0S(X1 ,Yl ,X2,Y2,AL, BE) 

00101  2*  (••••••,,»  SUBROUTINE  OjRcOS  FINOS  THE  DIRECTIONAL  C°SInES  1aL,BE)  OF 

OOIOI  3»  THE  VECTOR  OEFINEO  By  XI,  Y1  AND  X2.Y2. 

00103  1»  0X-X2-XJ 

00109  S»  0Y-Y2-YI 

00105  A*  R«SQRT (0X»»2*DY«»2 ) 

00104  ?•  AL»OX/R 

00107  8«  BE-OY/R 

001 10  9*  RETURN 

00111  10*  END 


000000 

Oooooo 

000000 

•ooooo 

600002 

ooooos 

000015 

000020 

000023 

ooooio 


END  OF  COMPILATION! 


NO  DIAGNOSTICS, 


0HOG 


DUrlP 
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DO«P 


fcFOR.S  dump 

FOR  SE2C-09/I7/7S-09: J6:SS  U.> 

SUBROUTINE  DUMP  ENTRY  POINT  oGU03j 

STORAGE  USED:  CODE(l)  00003b;  DaTA(G)  JOCOli;  BLANK  COMMON(Z)  OOOOnO 
COMMON  blocks: 

0003  ARRAYS  iOOISi 

0004  PARAHS  000073 

0005  GEL  I 000424 


EXTERNAL  REFERENCES  (BLOCK,  NAME) 

0006  NT  RAN 

0007  NERR3S 


STORAGE  ASSIGNMENT  (BLOCK,  TYPE,  RELATIVE  LOCaTlu*,  NAME) 


0003 

077773 

AA 

UCJS 

000117 

ACC 

0003 

076731 

af  Oh 

0004 

oooois 

AP 

0004 

00001 1 

AS 

0003 

075667 

BEN 

000  4 

000016 

BP 

0004 

000035 

BQ 

3003 

100106 

CO 

OOOM 

000072 

delzz 

eoos 

000122 

DISP 

0001 

000007 

OT 

0004 

000025 

DTP 

0003 

0717 | * 

OX 

0033 

071757 

DXP 

0004  I 

000002 

EMP 

C004 

000031 

EPS 

0033  1 

061235 

F 

0003 

077712 

FF 

0003 

100021 

FF  A A 

0003 

•76115 

FL 

0004  1 

000000 

FULL 

0033 

020337 

FX 

0003 

025721 

FY 

0004 

0CC013 

HMU 

0004 

000055 

ICR 

0003 

07/162 

ICRaCK 

0004 

000057 

UMAX 

OOOS 

1 000251 

1 KM  A X 

JC01  1 

000060 

1 KM AXP 

0004 

000016 

1MAXM 

aoao 

000007 

INJP* 

3035 

003231 

IFLOT 

0005 

300233 

ISTOP 

0334 

00005* 

JCR 

0003 

0/ /JO/ 

JC  R A C * 

0004 

000017 

jMAXh 

C3u  4 

0500*1 

JSEP 

30C1 

000 jS l 

KBAR 

0005 

C00226 

lmax 

0034 

CuCu70 

MMMAX 

0035 

0C0231 

N AM£ 

0004 

000067 

N NMAX 

0004 

l G000C5 

OB 

0031 

OC3C06 

obful 

0005 

ooom 

PBUL 

0004 

000027 

PMIN 

0033 

07/316 

POB 

0003 

07*57 1 

RHOVB 

0Cu4 

0000 I 2 

RHOZ 

O0u3 

O7lo56 

RPL 

0005 

000250 

SMASS 

0005 

000252 

SMOM 

0001 

00CU31 

SPEN 

0003 

03331 1 

SI  I 

0003 

01067* 

S 1 3 

OC  33 

01*263 

S3* 

0004 

000022 

TCP 

0004 

000020 

TOUMP 

0001 

OCOOl 7 

TL  AST 

0004 

000026 

TTOTAL 

0003 

076632 

TUB 

0003 

076*73 

T33a 

0004 

000013 

UCRACK 

0003 

077350 

UOB 

0003 

005 J*5 

V 

0003 

077132 

VOB 

1)034 

000030 

VSCALE 

0003 

1 30055 

w 

0003 

071512 

X 

0003 

075751 

XB 

3C35 

000000 

XBUL 

0003 

071611 

xPL 

0034 

000037 

XPI 

0CJ1 

0C0010 

x P 2 

0003 

07*033 

Yb 

0005 

000062 

tbui. 

0033 

07*50/ 

*CT 

0C04 

00331 1 

YPl 

000312 

YP2 

CC  '1 

"L304* 

* 5E  P 

0003 

075605 

ALN 

0001 

oooon 

beta 

0001 

000036 

ck 

0001 

000023 

DTCP 

0003 

075272 

OY 

0001 

I 

000001 

FAK 

0003 

076177 

FR 

0001 

000010 

G 

ooos 

000230 

IDUMP 

0*03 

077511 

(MAS 

0051 

QOOJ*3 

ISER 

0003 

0775/* 

JHaS 

0391 

000052 

kbarm 

0001 

000051 

NC  YC 

0003 

353*50 

P 

0003 

071553 

R 

0031 

000033 

SHEN 

0001 

1 

000001 

SUR 

0005 

003227 

T 

0001 

000021 

TP 

OOC  3 

H 

000000 

U 

oocs 

000335 

VBUL 

0003 

100137 

VVV 

0003 

077100 

XCT 

0001 

0000*5 

XSEP 

0033 

071556 

YK 

OC  33 

07771 1 

Zl 

0003 

012752 

AM  A 

0001 

1 

000003 

BND 

0001 

000032 

compen 

0001 

000021 

DTDUHP 

0093 

0?S117 

DTP 

0093 

074313 

FI 

0003 

076241 

FT 

0005 

000120 

GOT 

0005 

000232 

IE0|T 

0001 

000011 

1 MAX 

0000 

| 

OOOSOI 

ISTxT 

3001 

C0031S 

UMAX 

0001 

000050 

KM  A X 

OOOi 

000053 

nqmhp 

0300 

I 

000000 

PART 

0001 

l 

000062 

REV 

0001 

l 

000041 

small 

OOOS 

000121 

svet 

0003 

075511 

TAU 

0003 

077660 

TT 

0005 

000253 

UIUl 

0003 

0761,5 

VFOB 

0005 

0001,3 

VZERO 

0003 

04*6,2 

XK 

0003 

075020 

Y 

0003 

075115 

YPL 

0001 

000071 

zzprt 
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DUMP 


00101 

00101 

00101 

00101 

00101 

00101 

00103 

00)03 

00)03 

00  I OH 
00)05 
00)06 
00IO7 
00)  10 

001  10 
0O!  10 
00110 
001  10 
Ooi  10 
00110 
00110 
001  10 
00)10 
00)  10 
00110 
OOI  10 
001  10 
00111 
001 1 1 
Ooi  1 1 
OOI  1 1 
OOI  I I 
0011 1 
OOI  II 
OOI  I I 
0011  I 
00112 
001  12 
00113 
00123 
00126 
00127 
00130 

00130 
0CI30 

00131 

00132 

00133 
00133 
00133 
00133 
00133 
00133 


I • 
2* 
3® 
<♦• 
5* 
6* 

7 • 

8 • 
8* 
a* 

• • 
8* 

8 • 

6 • 
i* 
8* 
8« 

8 • 
8* 
8* 
8* 
8 • 
8# 
8* 
8* 
8# 
8* 
8* 
8* 

B* 

$• 
8* 
8* 
8» 
B^ 
8 • 
8* 
8 • 
8® 
8* 
8« 
6* 
8» 
8* 
8* 
8* 
B^ 
B^ 
8 • 


subroutine  dump 

THIS  ROUTINE  WHITES  COMMON  DATA  ONTO  TAPE* 


1NCLU0E  COMiLIST 


#••••»••••••♦••••••••• 

*♦#••••••••••••••••••• 


€••• 

COM* 


PROC 

parameter 

parameter 

PARAMETER 


10*33  .Jo-aft  .KD-liOO  , N0-I2  »jJD»SO 
LO* 150  » NND l M-tS  .HMDIH-IO 

NARR" | 0* ID* JO* I l •10*5»J0*IT» I JD*2»K0*T*NN0IM*MH0IM 


PARAMETER  NPAR-5* 
C0MM0N/aRRAYS/U(1u.JD) 
,FYt  |D,  JO) 


• F X ( IOiJD) 

• S33I 10. JO) 

• YK I K D ) 

•RPL ( 10) 

• YPL I JO) 

• ALNI I JO) 

• FU  I JO) 

•vfobi i jo) 

•T33BI 10) 
•ICRACKt JO) 
•1HASI IJD) 


,P ( lU. JO) 

»X( ID) 

• OX  I 10) 

,DYt JO) 

» BEN  I |J0) 

,FRt I JO) 

. YC  T ( I JO  ) 
,AF0u( IJD) 

. JCRACKt  ID  ) 
.JMASt I JD) 

. A A I NNO I M ) 
.WV  ( HMD  I M ) 
FULL 
,0T 
.BP 
.DTP 
. 5PEN 
.UCRACK 

.kbaRh 
.SMALL 
.HHMAX 
.FULL 


•FF(NNDIM) 

• CD ( NNO  1 M ) 
COMMON/PARAMS/ 


•08 

•obful 

• BETA 

• AP 

• DTCP 

• TP 

•COMPEN 

• SHEN 

• YPl 

• YP2 

• KMaX 

• K&AR 

• UMAX 

, IKMAXP 

• Y SEP 

•nnmaX 

INTEGER 

F *0B 

,V(  ID.JD) 

•AMXtlO.JD) 

» S 1 I ( I0U01  #Si3Ud.J0) 

,F( ID, JD) 

,Xk(KD) 

.R( ID) 

> XPL  | Id) 

, D XP  t ID) 

,YI  JD) 

, DTP  1 JD  1 

,TaU( ID) 

,XBI 1 JD) 

,ybi ijoi 

,FT(  IJD) 

.FBI IJD) 

, RMOVB 1 ID) 

,T|3BI  ID) 

» POB  t IJD) 

.XCT(IjD) 

,UOB I IJD) 

,V0B{ I JD) 

•TTINNDIM) 

. ZZ I NNo I M ) 

•ffaainndim)  » V V 1 nnd  1 M 1 

,SUR 

. EHP  *BND 

,G 

, AS  iRMOZ 

.tlast 

.TDUMP  .DTDUMP 

•ttotal 

,PM|N  .VSCALE 

• bq 

, ck  ,xpi 

, IMAX 

■ JM  A X .IMAXM 

• NDUMP 

, NC  Y C ,ICR 

• REV 

,IStP  ,jsep 

•ZZPRT 

.DELZ2 

• SUR 

,EMP  ,BND 

• .PART  un«m  ,"ti  , . y..D»y,y 

DATA  FULL/ |/SUR/**/EMP/7/BND/ lO/FAK /13/OB/I  6/ P ARY/S/ 


.small 


,REV 


FAK 

HMU 

TCP 

EPS 

XP2 

JMAXM 

JCR 
X SEP 

,FAK 


DATA  REV/15/SMALL/IH/ 

OEFINE  INDEX! l ,J)»FLDIO,lB«F  t I . J ) ) 
OEFINE  NBlTtNB.n0j»FL0(3*-NB.I .»0) 

INCLUDE  gelcmn.list 


END 

gelcmn  proc 

PARAMETER  QLMAX-So 
PARAMETER  NGEL-S»ULMAX*|2*|1 

COMMON  /GEL  I / XBULIOLMAX)  .YBUL(QLMAX) ,PBUL<8UMAX)  .LMAX.l  , 

. IDUrtP.  I PLOT,  I Edit.  | STOP,  NAME  I 12)  , SrtASS  , l icmax 

• , Snort, UBUL(QLMAX) ,V8UL(«LMAX) 

• .ACC.SDT.SVEL.uISP.VZERO 


8*  C 

8»  END 


oooooo 

oooooo 

oooooo 

oooooo 

•00000 

oooooo 

oooooo 

oooooo 

•000*0 

•ooooo 

•QOOOO 

*00000 

00*000 

Oooooo 

•ooooo 

oooooo 

oooooo 

oooooo 

OQOOOO 

OOOOOO 

oooooo 

Oodooo 

0000*0 

0000*0 

oooooo 

oooooo 

•ooooo 

OOOMO 

OOOOOO 

Oooooo 

oooooo 

OOOOOO 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

OQOOOO 

OOOOOO 

OOOOOO 

oooooo 

oooooo 

OOOOOO 

OOOOOO 

oooooo 

oooooo 

oooooo 

OQOOOO 

oooooo 

oooooo 

oodooo 

oooooo 

oooooo 
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DUMP 


0013** 

?• 

parameter  itap«9 

00135 

10« 

l KM  A AP* I KMaX 

00136 

1 1 • 

CALL  NTRAN(9.I,nPaR*FULL»I5TATi 

00137 

1 2» 

CALL  NTRAN<9,1,NARR.U.!STAT» 

OOHO 

1 3» 

CALL  NTRAN(9,22) 

oom 

1 H • 

RETURN 

00  1 H 2 

15» 

END 

END  OF  COMPILATIONS  NO  DIAGNOSTICS. 


BHDG 


EDIT 


onoooc 

300000 

oroooi 

OOOOIO 

000017 

000023 

0Q0Q3H 
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WFOR.S  LDIT 

FOR  SE2C*09/l9/75-0’:36:S7  <Oi> 


EDIT 


SUBROUTINE  EDIT  ENTRY  POINT  JC036.J 


STORAGE  USED:  code ( I ) 000366;  DATA(u)  JOOIIH;  BLANK  C0MM0N<2>  OOOOOO 


COMMON 

blocks: 

0003 

arrays 

loom 

OOOH 

PARAMS 

000073 

OOOS 

GEL  1 

000H2M 

0006 

FORC 

000001 

EXTERNAL  REFERENCES  (BLOCK,  NAME) 

0007  S3MARN 
0010  CPR1NT 
OOU  SPLOTS 

0012  DUMP 

0013  TICKER 
001**  NPRTS 

00 1 5 N 1 0 2 S 

00 1 6 NERR3S 


STORAGE  ASSIGNMENT  (BLOCK,  TYPE,  RELATIVE  LOCATION,  NAME) 


0000 

00001 1 

IF 

3001 

00003H 

1 0 1 L 

0001 

000062 

102L 

0001 

0001 1H 

1C5L 

0001 

0003)6 

I09L 

0001 

0003HI 

1I1L 

0001 

0001 H 1 

21HG 

00  J 1 

000331 

307  G 

0000 

OOOOSH 

HF 

OOOS 

OOOH 1 7 

ACC 

00u3 

07673H 

AFOB 

0003 

97S60S 

ALN 

0004 

R 

00001  I 

AS 

0033 

075667 

BEN 

OOOH 

0000 1 H 

BETA 

OOOH 

00003S 

BQ 

0003 

R 

I 00 106 

CD 

OOOH 

000036 

CK 

OOOS 

OOOH22 

DISP 

OOOH 

R 

000007 

DT 

OOOH 

r 

000023 

DTCP 

0003 

07M  7 1 6 

DX 

0003 

07H7S7 

DXP 

0003 

075272 

DY 

OOOH 

000031 

EPS 

0003 

I 

06I23S 

F 

OOOH 

i 

OOOUOH 

FAK 

0003 

R 

I0902H 

FF  A A 

0003 

0761  |S 

FL 

00  J 6 

R 

OOOOOO 

FORCE 

OOOH 

I 

OOOOOO 

FULL 

0003 

020337 

FX 

0003 

02572H 

FY 

OOOH 

000013 

HHU 

0000 

I 

000006 

I 

OOOH 

000055 

ICR 

OOOS 

1 

000232 

1E0IT 

003H 

000057 

UMAX 

0005 

00025 1 

IKHaX 

OOOH 

OOOOHH 

1 M A X 

OOOH 

I 

0000H6 

IMAXM 

0000 

000101 

1NJP* 

OOOS 

1 

000233 

ISTOP 

0000 

1 

03000S 

J 

OOOH 

000056 

JCR 

OOOH 

OOOOHS 

UMAX 

OOOH 

I 

00D0H7 

JMAXM 

OOOH 

00006H 

JSEP 

OOOH 

000050 

KMAX 

OOOS 

000226 

LMAX 

OOOH 

000070 

MMMaX 

OOOH 

1 

OOOOSH 

ncyc 

OOOH 

I 

000053 

NDUMP 

OOOH 

l 

000067 

NNHAX 

0003 

053650 

P 

0000 

1 

OOOOOO 

PART 

OOOS 

0001 HH 

pbul 

0003 

R 

1001 H 1 

PRO ACC 

0003 

R 

1 00 1 HO 

PRQPEn 

0003 

R 

100137 

PROVEL 

OOOH 

I 

000062 

REV 

0003 

076571 

RHOVB 

OOOH 

R 

000012 

RMOZ 

OOOH 

I 

000061 

SMALL 

OOOS 

R 

000250 

SMaSS 

OOOS 

0002S2 

smom 

OOOS 

R 

OOOH  2 1 

SVEL 

0003 

033311 

SI  1 

0003 

0H0676 

S 1 3 

0001 

000233 

I03L 

000! 

000077 

1 O^L 

0000 

000022 

2F 

000! 

OOOIHO 

21  U 

0000 

000067 

5F 

0003 

R 

077773 

AA 

0003 

0I27S2 

amx 

OOOH 

0000»S 

AP 

OOOH 

1 

000003 

BND 

OOOH 

000016 

BP 

OOOH 

000032 

COHPEN 

OOOH 

R 

000072 

DELZ2 

OOOH 

R 

000021 

DTOUMP 

OOOH 

R 

00002S 

DTP 

0003 

075H17 

DYP 

OOOH 

1 

000002 

EMP 

0003 

0763H3 

FB 

0003 

R 

0777H2 

FF 

0003 

076177 

FR 

0003 

0762*1 

FT 

OOOH 

000010 

G 

OOOS 

R 

OOOH20 

gdt 

0003 

077162 

1 CRACK 

ooos 

1 

000230 

IDUm? 

OOOH 

000060 

JKMAXP 

0003 

0775JH 

1 MAS 

OOQ5 

1 

000231 

IPLOT 

OOOH 

000063 

l SEP 

0003 

077307 

JCR ACK 

0003 

077576 

JM  AS 

OOOH 

OOOOSI 

kbar 

OOOH 

000052 

kbarm 

0000 

1 

000010 

N 

0005 

000231* 

NAME 

OOOH 

I 

000005 

OB 

OOOH 

000006 

obful 

OOOH 

000027 

PhIN 

0003 

077016 

pob 

0000 

R 

000007 

PVEL 

0003 

07H5S3 

R 

0003 

07H6SS 

«PL 

OOOH 

000033 

SHCN 

OOOH 

R 

00003H 

SPEN 

OOOH 

1 

000001 

SUR 

0003 

0H6263 

S3  3 

OOOS 

R 

000227 

T 

EDIT 


0003  975S44  TaU 

0000  R OOCDOl  THPl 

0003  376673  j33b 

0003  97 7 3bO  uOB 

0003  077H32  V OB 

0C03  074S12  X 

0003  O7***!**  XPL 

0003  976033  rB 

OOOS  030041  YPl 


GOG4* 

K 

000022 

rep 

Lf*j4 

R 

000021 

TP 

3-33 

R 

U 

aso  3 

R 

3C.S36S 

V 

0C9H 

000033 

if  SC  AL£ 

00u3 

3757S 1 

XB 

000** 

300037 

XP1 

OOJS 

000062 

ybul 

0004 

000012 

YP2 

0030 

»< 

03l.JG2 

TCYCLE 

0033 

R 

97  /o  SO 

TT 

3035 

90C253 

UBUL 

OCJS 

9C0i3S 

VBUt 

0033 

R 

lOGOSs 

w 

0005 

oocooo 

XBUi 

0031 

0CJL40 

xP2 

0003 

076507 

fCT 

0001 

000064 

YSEP 

0C31 

H 

003020 

TOUMP 

3001 

R 

000026 

T TO  T A L 

0001 

000013 

UCRACK 

0003 

076125 

VF  06 

3003 

1C0137 

vvv 

3003 

077100 

XCT 

0001 

R 

00006S 

XSEP 

0003 

071556 

YK 

0003 

R 

07771  I 

zz 

9001 

R 

003017 

TLAST 

0003 

076632 

T 13b 

0000 

R 

000003 

UMAX 

0003 

R 

OOOOQI 

vmax 

ooos 

R 

0*0123 

VZERO 

0003 

066622 

XK 

0003 

075*20 

Y 

0003 

07SHS 

YPL 

0001 

R 

000071 

ZZPRl 

OOIOI 

00  K 0 1 
OOIOI 
OOIOI 
OOIOI 
OOIOI 
00103 
00103 
00103 
00103 
OOIOH 
OOIOS 

» 00106 
•g  00107 

001  to 

£ OOIIO 
-J  ooljo 
OOIIO 
001 10 
001 10 
OOIIO 

001  to 

OOIIO 
001  10 
001 10 
001  10 
OOIIO 

00110 
001  1 1 
001  1 1 
001 1 1 
0011  I 

001 1 1 

001 1 I 
OOlll 
001 1 1 
OOlll 
OCI  12 
COI  12 
OCI  13 

0012  J 


I • 
2* 
3* 
4* 
5* 
6 • 
7 • 

e* 
?• 
9 • 
9 • 
9« 
9* 
9 • 
9* 

9* 
?• 
9« 
9 • 
9* 
9* 
9® 
9« 
9 • 
9 • 
9* 
9 • 


SUBROUTINE  EDIT 

c • •••  EDIT  CONTROLS  PRINTING,  PLOTS,  DUMPS  ETC*  

INCLUDE  COM, LIST 


C*«.i 

c#«., 

COM* 


rununtic."  m r ' 

COMMON/ ARR AYS/U ( l D,JD> 

• FX  I 1 D I JO ) ,FY(|D,JD1 


...»  print  CONSERVATION  QUANTITIES. 

PROC  _ 

PARAMETER  10*33  ,JD-8S  »KD*ISOO  .ND»|2  .|J0*50 

PARAHEIER  LD-ISO  »NN0 I H*25  ,MMD1N*I0 

PARAMETER  NARR*IO*IO*JD*I|*ID*S*JO*I7*IJD*2*KD»7*nNOIm+m,,DIh 

PARAMETER  NPaR*5Y 

.VUD.JDI  ,AHX«1d,JD) 

• S I I ( 1 0 i JO  I *Sl3| 1 0 • JO  ) 

•P(lD»jD>  i F I 1 0 i JO  ) .XKIKOI 

, X ( I u * iRIIDl  » XPL  | 1 0 I 

,ox<io>  iDxp(io)  f y i jo i 

1 0 Y ( JD I • OTP ( JO  I ,TaU|Id> 

> BEN ( I JD  ) .XeilJO)  , YB I I JO  I 

i F R I i JD ) • F T ( I JD I .FBlIJOl 

, TC  T i 1 JO  ) ,RH0V»UD>  .T|3tt(|0| 

.ArObllJDI  iPOB ( I JD  I .VCTTIJOI 

• JCR aCK (10)  i UOB I I JO  I « VOB I I JO ) 

•JPAjllJOl  .TTINNOIMI  .22INNo|MI 

(AAINNOIMI  .FFAAINNOlMl  (VVTNNuIMI 


• S33I  ID) JD) 

• YlC(KO) 
•RPLI 101 

• YPH  J0» 

• ALNl  I JD I 

• FLI  1 JO) 

• vFOfll  I JD I 
•133BIID) 

• I CRACK ( JD  > 

• I HAS  I I JO  > 
•FFINNOIMI 


9* 

•COINNDIM)  ,VVV|HMDIM| 

9 • 

COMMON/P ARAMS/ 

FULL 

,SUR 

.EMP 

1 »ND 

, F A X. 

1 

9* 

• OB 

, ObEUL 

,DT 

.6 

.AS 

• RHOZ 

1 H M U 

l 

9* 

• BETA 

, AP 

, BP 

.TLAST 

.TDUMP 

, 0 TDUMp 

.TCP 

1 

9 • 

• D TCP 

.TP 

, DTP 

.TTOTAL 

» PM  I N 

• VSCALE 

• EPS 

* 

9 • 

•COMPEN 

, SHEN 

• SPE  N 

,BU 

.CK 

,XPI 

, X P 2 

1 

9* 

• YPl 

,YP2 

.UCRACF 

, 1MAX 

,jmaX 

, I M A X H 

, J M A X M 

• 

9 • 

• KMAX 

, K 8 AR 

iKBARM 

.KUUMP 

,NCVC 

• ICR 

1 J C R 

• 

9 • 

• UMAX 

, 1KMAXP 

•SMALL 

• RE  V 

. isep 

.jSEP 

, X SEP 

• 

9 • 

• YSEP 

• NNM  A X 

, MMM A X 

, ZZPR  Y 

• DEL  2 1 

9* 

INTEGER 

F ,0B 

• FULL 

■ SUR 

.EMP 

,dND 

, F A X 

9* 

• .PART 

,S»AtL  . Rr  V 

9« 

DAT*  FULL/ 1 7SUR/4/EMP/7/P  4D 

✓ I0/Fa*/!3/uB/|6/J» 

*RT / >/ 

9* 

DATA  r\  l • 

/ 15/SNALL/14/ 

000000 

000000 

000000 

000000 

ooOooo 

000000 

OOOOOO 

OOOOOO 

ooOooo 

OOOOOO 

OOOOOO 

OOOOOO 

0,0000 

OQOOOO 

OoOooo 

OOOOOO 

OOOOOO 

OOOOOO 

0*0000 

*00000 

OOOOOO 

*00000 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

00*000 

OOOOOO 

00*000 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 


EDIT 


00126 

9® 

define  index*  1 ,j*«fld*o,  ta.Ft i .j> i 

00127 

9® 

DEF 1 NE  N81T ( N B • W 0 ) «FLD( 3 * - N 8 * 1 *WD) 

00130 

?• 

INCLUDE  GELCHN, LIST 

00130 

9* 

END 

00130 

9® 

gelchn  proc 

00131 

9 • 

parameter  qlmax-su 

00132 

9* 

PARAMETER  NGEL»5»JLMAX*l2*l4 

00133 

9® 

COMMON  /GEL  1 / XbUlCQLMAX)  lYBUL(QLMAX)  .PBUlIQI-MAX)  tLMAX,T, 

00133 

IDUMP, l PLOT, lEolT.l STOP, NAME* 12) .SrtASS,  P*MaX 

00133 

9 • 

• , SMOM.UBULIQLMAX) iVBUL(QLHAX) 

00133 

9® 

• .ACC.OOT.SVEL.UlSP.VjERO 

00133 

9* 

C 

00133 

9 • 

END 

00I3H 

10* 

comhon/forcvforce 

00135 

1 !• 

EQUIVALENCE  ( PRO V tL  • V V V ( 1 ) ) , (PROPEN, VVV< 21 > , ( PRO AcC • V V V l 3 ) 1 

00136 

12® 

IFCNCYC.EQ.OIPROVEL-VZERO 

00140 

13* 

1ST0P-0 

00141 

1 M • 

1ED1T-0 

00  M 2 

IS* 

1 D U M P ® 0 

00143 

16* 

1PL0T-U 

00144 

17® 

T«T*DT 

001*15 

18® 

NCYC*NC YC* 1 

001  HS 

19® 

C® 

00IH4 

20* 

CALL  S3WARN(9C,S,*101 1 

00146 

21® 

00147 

22® 

1FIT.LT. *TLAST“.0|»DT) IgO  to  102 

00151 

23® 

TLAST«2.0*TLAST 

00151 

2 9® 

C* 

00152 

25* 

101  CALL  CPRINT 

00153 

24* 

CALL  SPLOTS 

00154 

27* 

CALL  DUMP 

00155 

28* 

PRINT  l ,NOUMP,T,NcTC 

00162 

29* 

| format*!**  » BHDUMP  N0.tl3.6H  AT  T«  » l PE  1 2.4 , 1 1 H .CYCLE  NO*. 14) 

00 1 6 3 

30® 

10UMP-1 

00164 

31® 

1 PLOT* 1 

00I6S 

32® 

1ED  1 T » 1 

00166 

33® 

1ST  OP ■ 1 

00167 

3H® 

GO  TO  105 

00167 

35® 

c« 

00167 

34® 

c« 

00170 

37* 

102  IF*T.LT.TCP-.0*»*>TtO0  TO  104 

00172 

38® 

CALL  CPRINT 

00173 

39® 

TCP*TCP*OTCP 

00174 

HO* 

1E01T-I 

00174 

HI* 

c« 

00175 

H2* 

104  IF«T.LT.TP-.Ol«DT)GO  TO  105 

00177 

H3* 

CALL  SPLOTS 

00200 

HS  • 

TP»TP*OTP 

00201 

HS* 

1 PLOT • 1 

00202 

H4* 

105  CONTINUE 

00203 

H 7 • 

CALL  T1CKER*TMP1 ) 

00204 

H 8 • 

TCTCLE-TMPI-TTOTAL 

00205 

H9* 

TTOTAL»THP 1 

00205 

SO® 

C( 

900000 

000000 

000000 

000000 

OQOOOO 

000000 

000000 

oooooo 

OOOooO 

oooooo 

oooooo 

oooooo 

Oooooo 

OOOOOO 

•OOoOO 

oooooo 

OoOool 

OOOOO** 

000005 

000006 

ooooor 

000012 

000012 

000015 

OOOOI* 

000022 

000030 

ooOojo 

000031 

000035 

OO0O37 

ooOo«i 

000050 

oo6oso 

000052 
00005*i 
000055 
000050 
000050 
000050 
000052 
000057 
000071 
600074 
000074 
000077 
000104 
600105 
OOOH  I 

006114 

000(14 

000(15 

000(21 

OO0I2I 
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E j IT 


30206 

5 1 • 

000123 

002C  7 

52* 

VHAX*u*0 

000124 

00210 

S3® 

uO  1 C 6 U*2tJMA*fl 

OO0  1 4 l 

302  | 3 

SM  • 

DO  1 w6  I * 2 t I M A X M 

OOOlil 

302)6 

SS® 

IF(AdS(V(i.J)).GT.VMAX)VrAX®A9biVl|.JM 

000141 

30220 

56* 

IT  ( ABS  l U4  I i J)  ) *QT  .UrlAX  ) UMAXsABS(U(I«JJl 

000 l 46 

002  22 

S7  • 

106 

CONTINUE 

000|60 

00222 

58* 

c®®®* 

•••••  short  PRINT. 

000160 

C022S 

S9® 

PVEL«VZEWO-SVEL 

000|60 

00226 

6 0 • 

spen-spen®pvel®ot 

000163 

00227 

6|  • 

PHI  NT  2,NCYC.T,Dr,UMAX,VHAX,PVEL.4S.SPfN,TCYCLt 

000)66 

00242 

62» 

2 

FORMAT! 1H  ,*N"«  ,I4,»  T».  , IPL12.4  , • U T ■ t » l PE  1 2 . H • • UX-», 

OO02O3 

30242 

63« 

• 1 PE  l 2 • 4 , • VX"*  • l PE  1 2 • 4 i ' SV"*  i 1 PE  1 2 • 4 ( 1 AS" • . | PE  1 2 . 4 , 

000203 

002  H 2 

69® 

• • SP«* • IPEI2.4,  • SECS-* ,0PF*.3I 

000203 

002  M 3 

65  • 

IF! T • LT  #TDUMP-«C*  • DT ) GO  TO  133 

000203 

3024S 

66  * 

tdump«tdump®dtdum’ 

000211 

002  4 i 

67  • 

call  dump 

000214 

00247 

68* 

PRINT  1 .NOUMP.T  ,l4tTC 

000  >16 

00254 

69* 

MDUMP*NDUMP* 1 

000225 

00256 

73* 

I DUMPS) 

000230 

00266 

7|® 

133 

C ON  T I WUE 

000233 

00257 

72* 

GOT  * D T 

000233 

00260 

7 3® 

proacc-force/smas j 

000234 

00261 

7 • 

provel®pRovel-proacc«ot 

000237 

00262 

7 5* 

PR OPEN® PROPEN ®PROv EL ®D T 

000242 

0026) 

76* 

IFCSPEN.LT.ZZPRTUO  TO  109 

000245 

00265 

77* 

IF!NNHAXM .GT.NNDiM )G0  TO  109 

000251 

00267 

7 8 • 

NNMAX-NNMAX®! 

00025. 

00270 

7 9* 

NsNNMAA 

0002.1 

00271 

80* 

TT (N)«T 

0002.2 

00272 

8 l • 

22CN)»PR0PEN 

0002.5 

00273 

82* 

FFINl-FORCE 

0002*7 

00274 

83# 

AA (N) *ASEP®®2®3* 1 M 1 6 

000271 

00275 

8 H • 

FFAA(N)*FFIN1/AAIn) 

000275 

00276 

85  • 

VV ( N 1 ■PROVEL 

000300 

00277 

8 6 • 

CD(N)*FFIN)/( • 5®RhOZ®W(N| • • l • A A ( ► ) ) 

000)02 

00300 

87® 

22PRT«ZZPRT®OEL2Z 

COO) 1 2 

00301 

69* 

lav 

X F t I 5 TOP ♦ NE • 1 >G"  TO  111 

30031. 

0030) 

87® 

PRINT  H 

000)20 

OOOS 

H 

FORMAT  I JH  »5X • 1 HZ • | u t 1 MT • 9X  « 3HF /A , | 1 1 , 1 MV  1 1 Ox |2HCU • 

OOOJ24 

00)06 

9)® 

• 1 1 X , IHA  . 1 1 X , IHF  ) 

000)24 

00306 

DO  1)2  N® ) » NNMA  X 

000324 

0031  I 

93® 

PRINT  5|ZZIN),TTlH).FFAA(N),yv(N)#cDlH).AAtRI.PF<N) 

000)31 

00322 

9 H • 

5 

FORMAT! ) H ,1P7E)2.*H 

000)45 

00323 

95® 

112 

continue 

000345 

00325 

96® 

t 1 1 

continue 

000)45 

00326 

9T 

RETURN 

000345 

00327 

98® 

END 

0003*5 

END  OF  CUMPIlATiON 


NO  1>I  AoN’JST  ICS 


WHO  b EIUPOT 
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ofor.s  «-1»iput 

FOR  se2c-o’/ i 9/75-ov : 37 :co  to. I 


E I NPUT 


SUBROUTINE  EINPUT  ENTRY  hOlNl  -002'/ 


STORa-E  USED:  COOE(l»  JC  023C  DaTa(O)  -3-'l*7;  BLANK  COMMON  2!  000000 

COMMON  BLOCKS; 

0003  ARRAYS  loom 
0009  PARAMS  COCO 7 3 
OOOS  GELl  000929 


EXTERNAL  REFERENCES  (BLOCK.  NAME) 


(BLOCK,  TYPE,  RELATIVE  LOCATION,  MAMEI 


000* 

TICKER 

0007 

HESH 

0013 

FLUID 

001  1 

PRO 

0312 

PEPRO 

0013 

SETPLT 

0019 

CPR I NT 

0015 

SPLOTS 

001* 

restrt 

0017 

korum 

0020 

nprts 

0021 

NI03* 

0022 

NI02* 

0023 

NR0C5 

0029 

NIOIS 

0025 

NERR3S 

STORAGE 

ASSIGNMENT  ( 

0000 

000005 

IOF 

0000 

000013 

I3F 

0003 

07*739 

AFOB 

0003 

07S**7 

BEN 

0003 

10010* 

CD 

0009  R 

000007 

DT 

0003 

079757 

DXP 

0003  1 

0*1235 

F 

0003 

07*115 

FL 

0003 

025729 

FT 

0003 

0771*2 

ICRACI 

0009 

0000*0 

ikmaxi 

0005 

30023 1 

1PL0T 

0003 

07757* 

JMAS 

0009 

030052 

kbarm 

0005  | 

000239 

Name 

0331 

000173 

IOOL 

0000 

000197 

\HF 

0333 

075*05 

ALN 

0009 

R 

000019 

beta 

0009 

R 

00003* 

CK 

0009 

R 

000023 

D TCP 

0003 

07S272 

DY 

0009 

I 

000009 

FAK 

0003 

07*177 

FR 

0009 

R 

000010 

G 

0005 

000230 

IDUMP 

0003 

077519 

imas 

0009 

000063 

I SEP 

0009 

C3009S 

JMaX 

0009 

300050 

KM  A X 

0009 

000059 

NCYC 

uOj! 

000201 

1 0 1 L 

0031 

OCO 1 97 

2H7G 

0003 

012752 

AM  X 

0039 

1 

000003 

bnd 

0039 

000032 

compen 

0009 

n 

00002 1 

dtduhp 

0003 

075917 

DYP 

0003 

07*393 

F0 

0003 

07*2*1 

FT 

0005 

000920 

GOT 

0005 

000232 

1EDIT 

0009 

000099 

JMAX 

0035 

003233 

ISTOP 

0039 

000397 

JM  A X M 

0030 

i 

00C009 

L 

0CC9 

1 

C00US3 

NDUMP 

0000  000007  I IF 

0003  077773  AA 

0009  R 000015  AP 
0009  R 0000(9  BP 
0009  R 000072  OELZZ 
0009  R 000025  OTP 
0009  | 000002  CMP 
0003  077792  PF 

0009  I 000000  PULL 
0009  R 000013  MHO 
0009  000057  UMAX 

0009  00009*  IMAXM 

0009  00005*  JCR 

0009  0000*9  3SEP 

0005  I 00022*  LMAX 
0009  0000*7  MNMAX 


0000 

00001 1 

1 If 

0305 

000917 

ACC 

0009 

00001 1 

AS 

0009 

n 

000035 

M 

0005 

000922 

D|Sf 

0003 

07971* 

OX 

0009 

n 

ooooSi 

CPS 

0003 

|000|9 

ffh  A 

0003 

0*0)37 

rx 

6009 

oooott 

ten 

6005 

ofiolil 

UMAX 

6000 

060153 

XNJPI 

0OO3 

077307 

JCMacc 

0009 

OOOOBl 

K»AR 

0009 

000070 

HHMAX 

0009 

l 

000005 

06 
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E1NPUT 


000s 

000006 

OBfUL 

0003 

053653 

P 

OC30 

I 

000000 

PART 

ooos 

000144 

PBUL 

0004 

R 

000027 

PM  I N 

0003 

077016 

POB 

0033 

074SS3 

R 

3CJ4 

1 

00b062 

REV 

0003 

076571 

RHOVB 

0004 

R 

000012 

RHOZ 

0003 

07  M655 

KPL 

CCUH 

CJ0033 

SHE.R 

0034 

1 

000j6 1 

small 

0005 

H 

0002S0 

smass 

OOOS 

000252 

5M0M 

ooos 

00003H 

spen 

u30* 

i 

930001 

SUR 

uC  jS 

000421 

svel 

0003 

03331 1 

511 

0003 

0*0*76 

Sll 

0003 

046263 

S3  3 

C30S 

000227 

T 

0903 

07SS14 

TAU 

0004 

R 

000022 

TCP 

0004 

R 

000020 

TDUmP 

OOOS 

R 0000 1 7 

tlast 

COOO 

R 

OGOOC 1 

ThPl 

00C1 

* 

000024 

TP 

0003 

077660 

TT 

0004 

000026 

ttotal 

0003 

076632 

TI  3b 

0003 

076673 

T330 

0093 

000000 

U 

OOOS 

0002S3 

UBUL 

0004 

R 

060&*1 

UCRaCK 

0003 

0773SO 

UOB 

0003 

005365 

V 

OOOS 

030J3& 

VBUL 

0003 

076425 

VFOB 

Oooo 

R 

000002 

Vise 

0000 

R 000003 

VHIN 

0003 

077S32 

VOB 

0004 

n 

000030 

vscale 

0003 

100055 

VV 

0003 

160117 

vw 

ooos 

OOOS23 

VZERO 

0003 

07HS12 

X 

0093 

07S7SI 

X& 

0005 

R 

000000 

XBUL 

0003 

077 1 00 

XCT 

0003 

0*6622 

XK 

0003 

0746|1 

XPL 

0034 

n 

000037 

XPI 

0004 

R 

000040 

X P 2 

0004 

00006S 

xsep 

0003 

07S020 

Y 

0003 

076033 

YB 

OOOS 

n 

000062 

YBUL 

0003 

076S07 

TCT 

0003 

071516 

tic 

0003 

Q7SI4S 

YPL 

OOOH 

R 

00004  1 

YP1 

0004 

R 

000042 

YP  2 

0004 

000066 

tsep 

0003 

077711 

zz 

OOOS  R 000071  ZZPRT 


OOIOI 

nnim 

f 

SUBROUTINE  EINPUT (KOOMP) 

oooooo 

UUlUl 

i • 

uuiui 

OOIOI 

J • 

••••••  IHPUf  HANDLES  INPUT  OaTa  AND  PROBLEM  SETUP. 

000000 

OOIOI 

OOIOI 

6 • 

00103 

7 • 

1 NCLUOE  COM, LIST 

OOOOOO 

00103 

at 

00103 

• • 

COM* 

PROC 

OOOOOO 

OOIOI 

• • 

PARAMETER  10*33  ,JD*8» 

• KO-IBOO  . NO*  1 2 HJO-SO 

OOOOOO 

OOIOS 

!• 

PARAMETER  LO* 1 50  i nno I M*2S 

. HMD  1 M* 10 

•00000 

00106 

•• 

parameter  narr*io*id»jd*u« 

10*5«J0*I7«1 J0*2»KD*7*NNDlHtMM0|M 

OOOOOO 

00107 

!• 

PARAMETER  NPAR-SV 

OQOQOO 

001 10 

at 

common/aRrays/u< id, jo) 

. V 1 1 0 , JO ) ,AMX|I0,U0) 

1 

OoOeoo 

001 10 

8* 

• 7 X ( 10,30)  » F Y 1 1 0 , JO ) 

, S I 1 ( 1 0 , JO  I *5|3I1d»jO) 

• 

OOOOOO 

001 10 

8 • 

• S33 1 1 0 i JO ) .P(IO.JD) 

• FHD.JO)  ,Xk(KD) 

• 

Oodooo 

001 10 

8 • 

•YKIKO)  iX(tU) 

« R I 10)  , XPL (lO) 

• 

oooooo 

001  10 

8* 

• RPLUO)  .0X110) 

. OXP ( ID)  . Y 1 JO ) 

• 

oooooo 

001  to 

8* 

• YPL 1 JO ) i 0 Y 1 JO  ) 

. 0 YP  < JO  ) .TaUIIo) 

% 

oooooo 

001  10 

e* 

• ALN1IJ0)  .BEN i 1 JO ) 

■ XB(IJD)  .VBIUD) 

1 

oooooo 

001  10 

8* 

• PL  1 1 JO  1 »FRI 1 JO) 

.FT1IJ0)  iFBlIJO) 

» 

oooooo 

001  10 

8 • 

• VFOB  I 1 JO ) iYCT(IJO) 

, RriOVB (10)  , T 1 3B  1 I 0 ) 

• 

ooOooo 

001 10 

8 • 

•T33BIID)  ,Af0ol|JD) 

. POB 1 | JO ) ,XCT ( 1 jO 1 

I 

OOOOOO 

001 10 

e» 

• I CRACK ( JO  ) ,JCKaCK(|0) 

,UOB(|JO>  , VOB  1 1 JD ) 

1 

oooooo 

001  10 

8* 

• IMAS11JD)  , JI1  AS  1 1 JO  ) 

.TTINNOIM)  , ZZ  1 NNd I m ) 

• 

oooooo 

001  10 

8* 

•FF INNOlM)  (AAlNNDIM) 

,FFAA|nNOIM)  ,VV(NNd|M) 

» 

OOOOOO 

001  10 

8# 

• CD  1 NNO  I M ) , VVV | MMO 1 M ) 

oooooo 

001  1 1 

8* 

COMMON/PARAHS/  FULL 

, SUR  ,EMP  .UNO 

.FA<  , 

oooooo 

0011  1 

8« 

•OB  , OBFUL  , OT 

.G  , AS  .RHOZ 

» HMU  t 

OOOOOO 

001  I 1 

a* 

•beta  .ap  ,bp 

.tlast  .toomp  .otdump 

i T CP  » 

OOOOOO 

001  1 1 

8 • 

•OTCP  .TP  , DTP 

.TTOTal  .PHlN  , VSCALE 

i EPS  , 

oooooo 

001 1 1 

0* 

•COMPCN  . SHEN  .spen 

• B«t  . CK  .XPI 

i XP2  , 

oooooo 

001 1 1 

8 • 

• YP | . YP2  .UCRACK 

. I MAX  UMAX  » | HAXM 

•JMAXH  » 

oooooo 

001 1 I 

8* 

•KMAA  ,KbAR  iKBARM 

.NOUMP  ,NCYC  .ICR 

» JCR  i 

oooooo 

001  1 1 

8* 

• 1JMAX  , 1 < H A X P .SMALL 

.REV  . I SEP  . jSEP 

» XSEP  • 

oooooo 

001  I 1 

8 • 

• Y SEP  .NhMAX  ,MMHAx 

.ZZPRT  .OElZZ 

oooooo 
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e input 


aci  12 

30112 
Oil  13 
00121 
00126 
00127 
00130 

00130 
00130 

00131 

00132 

00133 
00131 
00133 
00133 
00133 
00133 
00131 
00131 
90135 
OCI36 
00111 
30111 
00112 
00112 
00111 
00151 
00165 
00176 
00202 
002O3 
00201 
00205 
00205 
00205 
00205 
00237 
00237 
00237 
00237 
00237 
00237 
00237 
00237 
00237 
00237 
00237 
00237 
00237 

00210 

00211 
00212 
00213 
00211 


e*  I N T E G E iv  F »i*n  .FULL  .Sl/R  *E"'  ,iiN0 

a*  * ,P»RT  ,SPAUL  f*'L  v 

0.  OAJ^  F ULL/ 1 /SUK/1/E*P/7 /BmC  / ID/Fa..  / 1 3/  JP/ l T/ 

y.  OATA  Rtl/15/5MALu/H, 

a»  DEFINE  INDEX!  t <1  • J I I 

a*  DEFINE  Nd  I T ( NB  > I »r  LD  I 3*“Nb  • I . *U  > 

a*  INCLUDE  GElCMN.lIsI 

a*  end 

8 • GELCMN  PROC 

a*  parameter  <5Lhax«S3 

a*  PARAMETER  NGEL»5»ULMAX*|2»11 

a*  COMMON  /GEL  l / XuUulOLMAX I ,YBUL tOLMAX  I ,PBUu  18LMAX 1 ,LMAX , T , 

8.  , I0UMP.1PL0T,1Ed1T,1ST0P,NAM£( 12>,SHa5S,1KMaX 

a*  . , SMOM.UUULIQLMAA) .VBULlaLMAX) 

a*  • .acc.gdt.svel.oisp.vzero 

a*  c 

8 • END 

9*  CALL  TICKER1TMPP 

15.  c...» FIRST  CrfRD 

II*  I 5 FORMAT  ( 1 2*  * . IS  I 

12*  pr I NT  l I > name 

I J • ||  F j .i  M A T I I H 1 a I 2 A 6 ) 

i<i.  c.» .......  i,'  restart  Ron*  go  ido 

IS*  IFllCDUMP*GT*0»0)Gu  TO  1 03 

16*  c. ••••••«•  READ  and  print  general  input. 

17.  READ  I2,DT,DTCP,DTP.DTDUHP,G.VSCALE 

IS*  READ  12, RMOZ.MMU. Vise, AP.BP.TLAST.EPS 

| 9*  read  I2,BQ,VMIN,PhIN,XP|  ,XP*.YP1  ,tP2 

20*  READ  I2,UCRACK,0ELZZ 

21*  12  F0RMATI7E1O.3) 

22*  CK*WHIN**2 

23*  BETA*HMU/V  ISC 

2h*  PRINT  13.DT,DTCP,jIP.DTDUMP,g,VSCALE, 

25*  »RH02 .HMU.BETA  , AP.dP  .TLAsT ,EPS.VISC.Ba.YMlN»PM|N 


26* 

27* 

28* 

21* 

30* 

>!• 

12* 

33* 

31* 

35* 

34* 

37* 

38* 

3t* 

10» 

11* 

12* 

13* 

11* 

15* 


• •XPI.XP2.TPI  • YP2  « UCRACK .OElZZ 
• .SMASS 

13  FORMAT  ( I H ,3HDT*i»X»IPE|2.4/lH  , 5|,o  TCP- • 3 X . I PE  1 2 • 1/ 

• IH  .1HDTP-.1X,  IPEI2.1/IH  , 7 HD ToUMP • . 1 X . I PE  1 2 . 4 / 


• IH  .2HG-.6X,  IPEI2.1/ 

•|H  ,7HVSCALE-,IX,*PE12.1/ 

•IH  »5hRH0Z-.3X.|Pe12.1/|H  ,1hHMU-,1X 
•IH  ,5HBETA-,3X,1PE12.1/|H  ,3HAP*.5X. 

•IH  ,3H8P-,5X.IPE‘2.1/IH  ,*hTLAST-,2X 
•|H  ,1h£P5-,1X,|PE|2*1/1H  .5HVISC-.3X 
•IH  ,3HBQ-*SX,IP£l2*1/IH  , 5HVM I N- , 3X  . 
•IH  ,5HPM1N«,3X.|PE12.1/IH  .fHXPl-.IX 
•IH  ,1HXP2-.1X»1PE|2.1/IH  .1HTPI-.1X, 

• IH  ,1HTP2-.1X,IPE|2*1/IH  .7HUCRACIC-I 
•IH  ,4H0ELZZ-.2X,lpEI2.1/lH  .6HSMASS- 

ZZPRT-OELZZ 


•1PEI2.1/ 

I PE*  I 2.1/ 

, IPEI2.1/ 

, lPE12*1' 

I PE 1 2 « 1/ 

, I PE  12*12 
I PE  I 2 • 1/ 

IX.  IPEI2.1/ 
.2X.1PE12.1///1 


toump-dtdump 

TCP-DTCP 


TP*DTP 

NDOMP-1 


,F»X 


900000 

000000 

Droooa 

ODOCDO 

300000 

oeoooo 

000000 

oooooo 

000000 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

ooOooo 

OOOOOO 

orocoo 

OOUOBQ 

oconoz 

300032 

00001  I 
00001 1 
00001 1 
0000 1 1 
000015 
000027 
000012 
000055 
000063 
000063 
000066 
000071 
000071 
0^0071 
000071 
OCO I 25 
000125 
000125 
OCO  | 25 
000125 

000  | 25 
000125 
000125 
000125 
000125 
000125 
000125 
000 | 25 
000125 

000 1 27 
000131 
000133 
000 | 35 
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ElNPUT 


002  H 5 

PRINT 

IM.UBULIL* .TuULtL) ,L«I 

0025H 

IH 

FORMA 

i T ( 1 H «IP2E12,1I 

002SH 

C1 

SET  UP  CELL  MESH. 

00255 

call 

MESH 

00255 

50® 

C« 

GENERATE  FLUID. 

00256 

5|» 

CALL 

FLU  ( D 

00256 

52* 

c 

SET  UP  PROJECT (LE 

00257 

53® 

CALL 

PKO 

00240 

SH# 

CALL 

REPRO 

00240 

55  • 

c « 

PLOT  GRIO  ANu  CELL  FLAGS 

00241 

56  • 

CALL 

SeTPLT 

00242 

57® 

CALL 

CPRINT 

00243 

58« 

CALL 

SPLOTS 

00241 

5f  • 

GO  TO 

l 101 

00241 

60« 

c* 

RE AO  RESTART  DUMP. 

00245 

4 1 • 

100 

CALL 

RtSTRT(KDUMP) 

00244 

6 2 • 

NDUMP 

■NDUMP* 1 

00247 

6 3 • 

101 

CALL 

ADR  UM 

00270 

6M# 

RETURN 

00271 

65* 

ENO 

ENO  OF  COMPILATIONS  NO  0 1 AuNOST I CS  • 


SHOO 


(I 


ENPLT 


OPO INI 
300 1 S3 
000153 
000(53 
000(53 
000(56 
000(55 
000(57 
0D0(4( 
000 (41 
000(53 
000 | 45 
000|47 
000 ( 7 ( 
000(71 
000(73 
000|75 
00020( 
000202 
00^230 
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enplT 


ttF  OR  , S fcNPLT 

FOR  SE2C*09/19/7b-C9: 37:03  ij.l 

SUBROU  T INC  LNPLi  tU«r  POIM 


SIORAGE  USED:  COOE(l)  CuOllMJ  D A T A U ) J3006mJ  bLANK  CO^nOnJ)  "OCOjO 

COMMON  BLOCKS! 

0003  ARRAYS  | OC 1 S I 

OOOR  PARAMS  0C0073 

0005  GELl  0Q0H2H 


EXTERNAL  REFERENCES  (BLOCK,  NAME) 

0306  NPRTS 

0307  NI025 
0310  NERR3S 


STORAGE  ASSlChnENT  ULUCK,  Ur't.  RELATIVE  lOLaTION,  NAME) 


0000 

000012 

1CF 

tool 

oaout  2 

1 3Si, 

00  3 1 

333J21 

IH7G 

0303 

077773 

AA 

0335 

3001 1 7 

ACC 

3033 

076/31 

aFOb 

oooh 

300015 

AP 

oOOl 

03001  1 

AS 

3 003 

075«67 

ben 

OOOH 

000016 

BP 

0301 

000035 

B<* 

3003 

100106 

CD 

OOOH 

000072 

DEL2Z 

0005 

300122 

DlSP 

0031 

090307 

OT 

oaoi 

000025 

DTP 

0003 

0/1/16 

DX 

0003 

074/57 

DXP 

OOOH 

1 

000002 

EMP 

OOOH 

0w303 1 

EPS 

0003 

1 

06 i 235 

F 

0003 

077712 

FF 

3003 

130021 

ffaa 

0003 

076115 

FL 

OOOH 

I 

000000 

FULL 

0003 

023337 

FA 

3003 

025/21 

FT 

OOOH 

000013 

HMD 

0030 

I 

300006 

1 

oo:h 

030355 

I C*! 

0005 

000232 

1 ED  I T 

OCOi 

C0C35  7 

UMAX 

u 0*5 

03u25 1 

I KM  a x 

OOOH 

OOOOHH 

l M A X 

OOOH 

I 

UwOOH 6 

IMA  AM 

cooo 

0 C t’  3 H 3 

1NJPS 

0005 

00G233 

1 STOP 

0030 

1 

000905 

J 

OGClH 

000056 

JCR 

OOOH 

0000H5 

JMAX 

OOOH 

I 

OOOOH  7 

JMAAM 

0001 

033361 

JSEP 

OOOH 

000050 

KM  A X 

0305 

030226 

lmax 

0031 

C00U7C 

MMMaX 

OOOH 

000Q5H 

nctc 

OOOH 

000053 

NDUMP 

OOOH 

030067 

NNM  A X 

0003 

053650 

p 

C030 

l 

000000 

PART 

3005 

000 1 Hi 

PBUL 

0003 

071553 

R 

OOOH 

I 

000062 

REV 

0003 

076571 

RMOVB 

OOOH 

R 

000033 

SHEN 

0000 

R 

000007 

SKE 

OOOH 

I 

000061 

small 

OOOH 

00003H 

SPEN 

OOOH 

I 

00000 1 

SUR 

0005 

R 

000H2I 

SVEL 

0003 

016263 

S33 

0005 

000227 

T 

0003 

07S5MH 

TAU 

0000 

R 

00001 1 

TEN 

OOOH 

000017 

TLAST 

0000 

R 

000010 

TMOM 

0303 

077660 

TT 

OOOH 

000026 

TTOTAl 

0003 

076632 

T13B 

0005 

000253 

UBUL 

OOOH 

0000H3 

ucrack 

0003 

077350 

UOB 

0003 

076125 

VFOB 

0003 

077132 

VOB 

OOOH 

000030 

VSCALE 

0005 

000123 

V ZERO 

0033 

C71512 

X 

0003 

075751 

XB 

0003 

066622 

XK 

0000 

R 

OOOOOH 

xke 

0000 

n 

000003 

XHOM 

OOOH 

300010 

XP2 

OOOH 

C00065 

XSEP 

3003 

075020 

Y 

0003 

076507 

YCT 

0033 

071556 

YK 

0003 

075115 

TPL 

0001 

000025 

1526 

ooon 

0000) 3 

3F 

0033 

075605 

ALN 

0003 

R 

012752 

AMX 

OOOH 

00001 H 

BETA 

OOOH 

| 

000003 

BND 

OOOH 

000036 

CK 

OOOH 

R 

000032 

COMpEN 

3001 

000023 

DTCP 

OOOH 

000021 

DTDUMP 

0003 

075272 

DY 

0003 

07SH|7 

DTP 

OOOH 

I 

OOOOOH 

fak 

0003 

076313 

FB 

0003 

076177 

FR 

0003 

076241 

FT 

3001 

oonoio 

6 

0006 

000120 

BDT 

0003 

077162 

I CRACK 

0005 

000230 

IDUhP 

0001 

000060 

1KMAAP 

0003 

07  75 1 H 

IMAS 

0005 

000231 

IPLOT 

OOOH 

000063 

I SEP 

0003 

077307 

JCR ACK 

<0003 

077576 

JM  A S 

OOOH 

000051 

KBAR 

OOOH 

000US2 

KBARM 

OOGO 

I 

000001 

N 

0005 

000231 

name 

OOOH 

I 

OOOOOS 

OB 

OOOH 

000004 

OBFUL 

0031 

000027 

PM  l N 

0003 

077044 

POB 

OOOH 

000012 

RMOZ 

0003 

071455 

RPL 

0005 

R 

000250 

smass 

0005 

R 

000252 

SMOh 

0003 

033311 

su 

6003 

0H0476 

S 1 3 

OOOH 

000022 

TCP 

OOOH 

000020 

tdump 

0000 

R 

000002 

TOTMAS 

OOOH 

000021 

TP 

0003 

076673 

T33B 

0003 

R 

000000 

U 

0003 

R 

005365 

V 

0005 

000*35 

VBUL 

0003 

100055 

W 

0OO3 

100137 

VW 

0005 

000000 

XBUL 

0003 

077100 

XCT 

0003 

0716 | H 

XPL 

OOOH 

000027 

XPI 

0003 

076033 

tb 

0005 

000042 

tbul 

0031 

OOOOH 1 

TP  1 

OOOH 

0000H2 

YP2 
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EnPlT 


0001  000066  ySEP  0003  0777|l  ZZ  0CJ1  000071  ZZPRT 


0C10I 

X • 

subroutine  enplt 

000012 

00  1 u I 
rt  n I n i 

<f 

1 a 

UU1U1 
ftft  i n i 

J • 

DO  1 MTC  lATll 

MfturMTllM.  rNTRCY  • 

FTT  a 

mon  1 2 

UUIUI 

v • • • 

PR  I N I 5 TOT  AL 

Vy«U 1 4 

001  0 1 
OOICI 

D • 
6® 

00103 

7® 

INCLUDE  COM i L 1 ST 

•OOolZ 

001  03 

00103 

o • 
8 • 

COM® 

PROC 

* ^Jfsoo 

000012 

00101 

8* 

PARAMETER  10-33  ,JD«9S 

. NO* 1 2 .iJO-SO 

•00012 

00105 

a* 

PARAMETER  LO-ISC  i N f 4 0 1 M ■ 2 

S »MMD1M»10 

000012 

00106 

8* 

parameter  narrmo®xd#jd4|  i 

• IU®b®JD* 1 7®l J0®2®XD*7®tfN0lM*MMDlM 

000012 

00107 

8® 

parameter  npar«s* 

000012 

001 10 

8* 

common/arrays /U<lu» JO) 

|VI  ID, JO) 

, AMXC lo, JD) 

• 

000012 

001 10 

8* 

•FX(ID.JC>  » F Y 1 I D . JO  I 

.SIIIIO.Jul  . S 1 3 ( 1 0 , JO  I 

• 

oodoiz 

oot  to 

8* 

• S33 ( ID  1 30  ) .P(lO.JO) 

.FI  10,  JD) 

,xk(K0) 

» 

000012 

Ootto 

8* 

•YK(KO)  tX(lo) 

• R 1 1 0 | 

. XPL ( I 0 1 

9 

000012 

0O1 10 

8 • 

•RPLCIDl  ,0X<101 

|0XP< 10) 

,Y( JO) 

9 

000012 

001 10 

8 • 

• YPLUO)  > OY 1 JO ) 

•OYPIJD) 

•TAU(Io) 

9 

0Q&0 1 2 

00110 

8 • 

•ALN(IJD)  i BEN ( 1 JO ) 

,XB( I JDi 

. Y, ( 1 JO ) 

9 

0000 12 

ooi  io 

8® 

• FL(IJO)  i FR 1 1 JO  I 

• FTC  1 JD) 

,FB( I JO) 

• 

• OOoU 

00110 

8® 

•VFOBIIJO)  .YCT(IJO) 

,RHOV§( ID) 

i T I 3B ( ; 0 ) 

9 

•00012 

001 10 

8* 

• T 33B  ( 10)  lAFOadJOl 

,POB(| JO) 

iXCTCUO) 

9 

000012 

ooiio 

8* 

•ICRACK(JO)  (JCRaCK(IO) 

,UOB( 1 JD) 

. VOB ( 1 JO  1 

9 

000012 

00110 

8* 

• INaSUJD)  .JMASUJO) 

.TTINNDIM) 

. ZZ ( NNo 1 M ) 

9 

000012 

001  10 

8® 

•FF<NNOIM)  .AAINND1M) 

, rr  A A ( NND 1 

Ml  .VVINNoIH) 

» 

00001, 

001 10 

8® 

• CD  1 NNO I M 1 i V V V t HMD  1 M ) 

OoOoll 

00111 

8® 

COMMON/PARAMS/  full 

• SUR 

. EMP  .BNO 

iFAIC  , 

000011 

00111 

8® 

•OB  iOBFUL  iOT 

• G 

.AS  .RHOZ 

9 HMU  i 

OOOOI, 

GO  1 1 1 

8® 

•BETA  ,AP  ,BP 

, TL AST 

.TOUMP  .OTOUMP 

• TCP  9 

000012 

OOI  1 1 

8® 

• DTCP  .TP  1 0 TP 

•ttotal 

,PM|N  , /SCALE 

• EPS  , 

000012 

OOI  1 1 

8® 

♦COMPEN  ,SHEN  ,SPEN 

• BW 

> CK  ,XPl 

, XP 2 , 

000012 

0011  1 

8® 

•YP|  ,YP2  .UCRACK 

, 1 M A A 

UMAX  . I MAXM 

•JHAXH  | 

000012 

001  1 1 

8® 

• KMAX  . KB AH  , K fl  AKM 

• NOUMP 

,NCYC  .ICR 

9 JC  R 9 

000012 

00111 

8® 

• UMAX  .IKHAXP  .SMALL 

, R E V 

. 1 St P . JSEP 

•X5EP  , 

000012 

OOI  11 

8® 

•YSEP  . NNMAX  .MHMAX 

, 2 ZPK  T 

.OELZZ 

000012 

00112 

8® 

INTEGER  F .OB  .FULL 

• SUR 

.EMP  .BNO 

• FAX 

000012 

00112 

8® 

• .PART  .SHALL  ,rev 

000012 

00113 

8® 

OaTa  FULL/ 1 /SUR/9/EMP/7/BND/ 1 O/FAK/ I3/0B/ 16/P ART/5/ 

000012 

00123 

8® 

DATA  REV/ IS/SHALL/11/ 

000012 

00126 

8® 

DEFINE  INDEX! 1 .JlaFLOlO, 18 

.FI  1 .Jl 1 

000012 

00127 

8® 

DEFINE  NBITIN8»nO)-FLOI36> 

NB.  1 »H0| 

000012 

00130 

8® 

INCLUDE  gelchn.list 

000012 

00  130 

8® 

f ND 

000012 

00I3C 

8® 

6ELCHN  PROC 

000012 

00131 

8* 

PARAMETER  QLMAX.So 

000012 

90132 

8® 

PARAMETER  NGEL»5*yLMAX* \2+ 1 H 

0000 1 2 

00133 

8® 

COMMON  /GELI/  XOULCGLMAXI, 

YBUL (OlMAX  1 , 

PBULiQLMAX ) ,lmax  ,T  . 

000012 

00133 

8 • 

. IOUMP. IPLOT , ICuIT i ISTOP 

, N AMt 112)  .SMASS  , IKMaX 

000012 
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tup  lT 


001  33 
CO  1 3 3 
0C133 

00133 

00134 
00137 

00142 

00143 

00144 

00145 

00145 

00146 
00151 

00154 

00155 

00156 

00157 
00162 
00162 

00163 
OC  163 

00164 

00164 

00165 

00165 

00166 
00167 

00200 
00200 

00201 
00202 


g • • , 5M0M ,U6ULC QLMA X > • V 6 UL l 3L M A X 1 

8*  • , ACC i GOT t SV£L » 0 I SP i VZCHt 

8®  C 

8*  END 

9 • 00  1 00  N* I i 4 

10®  lOu  PRINT  10 

11  • 10  FOKHAT l IH  ) 

12®  T0TMaS»0*0 

13*  XM0M*0 • 0 

14®  X KE  * J • 0 

IS®  £•••••••#•  SUM  MASS,  I OMNIUM  AND  K I NE  T I C ENERGY  OVER  AlL  CELLS. 

16®  DO  101  J»2,JHAXH 

17®  DO  101  I ■ 2 , I M A X M 

IB®  T0TMAS-TOTMAS®AMA(  I ,J) 

19®  XMOM»XMOM®AMX(  l , JJ • IV ( 1 , J ) +SV£L ) 

20®  XKE»XKE*AHX( I,J)®(U(|,J|®«2t(V(i.Jl®SVEL)®®2) 

21®  10!  CONTINUE 

22®  XKE*»S®XKE 

23®  c***9M*M  PROJECTILE  MOMENTUM 

24®  SM0M*5hASS®SVEL 

2 S • PROJECTILE  * t N t T \ C E 4 l 4 *>  Y 

26®  SKE*«5*SMaSS»SvEL«*7 

2 7®  c*MC***M  TOTAL  rtOMfMlUM 

28®  TM0M»XM0M®SM0M 

29®  £•••••••••  TUTAL  ENERGY 

30®  TEN«XKE®SKE®COMPEn®SHEN 

31#  PRINT  3,T0TMAS.TM0M,SKEfXKttC0flPEN,SHEM,TEN 

32®  3 FORMAT ( I H , 9 MASS* 9 • I PE  1 2 • 4 , 9 MUM* • , I P 1 1 2 • 4 , 9 SKE* • • 1 PE  1 2 • 4 • 

33®  KE-9 , IPE12.4  , • CE« 9 , I PE  1 2 t 4 , 9 SE* 9 • I PE  1 2 • 4 • 9 TE* 9 , l PE  I 2 . 4 ) 

34®  RETURN 

35®  END 


000012 

000012 

000012 

000012 

000012 

000012 

000016 

000016 

000017 

000020 

000020 

000025 

000025 

000026 

000031 

000035 

000052 

900052 

000052 

000054 

000054 

000057 

000057 

000065 

000065 

000067 

000073 

000106 

000106 

000106 

000133 


end  of  compilation:  no  diagnostics. 


WHDG 


EULER 


Page  168 


BFOR.S  EULER 

FOR  SE2C-09/I9/7S-o?:37:05  CO.» 


EULER 


SUBROUTINE  EULER  ENTRY  POINT  OOOO67 


STORAGE  USED:  cODE(i)  000071;  DATA(O)  OOOOOH;  „LANK  COMMONU)  COOOOO 


EXTERNAL  REFERENCES  (BLOCK,  NAHE) 


0003  RDRUM 
OOOH  PRO 

0005  REPRO 

0006  CREATE 

0007  SPOINT 

0010  REFLAG 

0011  CRACK 

0012  AREAS 

0013  SURVOL 

00  I *t  SCELLS 

0013  SHHAS 

0016  NASS 

0017  SHIFT 

0020  COT 

0021  PRES 

0022  PHASE1 

0023  STRESS 
0021  PHASES 

0025  ACCEL 

0026  HOVE 

0027  PHASE2 

0030  EDIT 

0031  PPRES 

0032  AIDRUM 

0033  NERR3S 

STORAGE  ASSIGNMENT  (BLOCK,  TYPE,  RELATIVE  LOCATION,  NAME) 
0000  000000  1NJPS 


00100  I* 

OOlOO  2* 

00 1 CO  3* 

OOlOO  R* 

OOlOO  S* 

00100  6* 

00101  7* 

00103  8* 






(•••••••••  impact  is  the  main  program  That  acts  as  a drjver  and 

c. controls  the  overall  flor  of  the  program. 



c* ....... » 


SUBROUTINE  EULER 
CALL  RURUM 


000000 

009000 

000000 

000000 

000000 

000000 

000000 

oooooo 
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EULER 


00103 

9 • 

C*** 

00109 

10* 

call 

00!0* 

1 1 • 

c*** 

OOIOS 

l 2 • 

CALL 

OOIOS 

1 3* 

C*** 

00106 

IO 

% 

call 

OOIOA 

IS* 

C*M 

00107 

U* 

CALL 

00107 

17* 

C*M 

001 10 

18* 

call 

001  10 

19* 

€••• 

0011 1 

20* 

CALL 

001 1 1 

21* 

c**« 

00112 

22* 

CALL 

00112 

23* 

c**4 

00113 

2 9* 

CALL 

00113 

25* 

C**4 

0011* 

26* 

CALL 

0011* 

27* 

c**4 

001  |S 

28* 

call 

00116 

29* 

call 

001 16 

30* 

C**4 

00117 

31* 

call 

00117 

32* 

00120 

33* 

call 

0OI2O 

39* 

C**4 

00121 

35* 

call 

00121 

36* 

C**4 

00122 

37* 

CALL 

00122 

38* 

c** 

00123 

39* 

CALL 

00123 

90* 

c** 

0012* 

9 1 • 

call 

0012* 

92* 

c** 

0012S 

93* 

CALL 

00I2S 

99* 

c** 

00126 

95* 

CALL 

00126 

96* 

c** 

00127 

97* 

call 

60127 

98* 

c** 

00130 

99* 

CALL 

00130 

so* 

c*# 

00131 

S|* 

CALL 

00131 

S2* 

c** 

00132 

S3* 

CALL 

00133 

S9  • 

retu 

0013* 

ss* 

END 

calculate  quantities  for  os  cells  etc, 
pro 

reflag  for  projectile  position, 
repro 

CREATE  NE»  P*RTICLES  WHEN  NEEOED. 

CREATE 

FIND  SEPARATION  PO|NT. 

SPOINT 

REFLAG  CELLS  FROM  eHP  TO  SUR,  SUR  TO  FULL.  ETC. 

REFLAG 

PROROGATE  cRack. 

CRACK 

CALCULATE  FRACTIONAL  AREAS. 

AREAS 

CALCULATE  VOLUME  FoR  SUR  CELLS 
SURVOL 

locate  full  neighbors  FOR  SMALL  cells 

SCELLS 

CHECK  MASSES  AND  AOJUST  WHERE  NEEUEO. 

SMMAS 

MASS 

AUD  AND  SUBThACI  ROWS  OF  CELLS. 

SHIFT 

CALCULATE  TIME  STEP. 

COT 

CALCULATE  PRESSURES. 

PRES 

CALCULATE  ACCELERATIONS  DUE  TO  PRESSURE  GRADIENTS, 

PHASEI 

CALCULATE  DEVIATOR  STRESSES. 

STRESS 

CALCULATE  ACCELERATIONS  DUE  TO  OEVIATOR  STRESSES. 

PHASES 

CALCULATE  PROJECTILE  ACCELERATION,  VELOCITY  *NO  PENETRATION. 
ACCEL 

HOVE  MARKER  PARTICLES. 

MOVE 

CALCULATE  MOMENTUM  AND  HASS  TRANSPORT, 

PMASE2 

PRINT,  PLOT.  DUMP.  ETC* 

EDIT 

GET  PRESSURES  ALONG  PROJECTILE  SURFACE 
PPRES 

WRITE  COMMON  DATA  ON  DRUM 


OOOOOO 

OOOOOI 

00000! 

000003 

000003 

OOOOOS 

000005 

000007 

006007 
00001 1 
00001 1 

000013 

6000I3 

oooois 

OOOOIS 

000017 

OO0OI7 

0Q002I 

000021 

000023 

00002$ 

00002$ 

000027 

000027 

QQ0031 

006031 

000033 

006033 

OoOoss 

00003S 

000037 

0Q0037 

ooOqri 

ooboii 

000013 

0060R3 

OOOORS 

oooois 

0000*7 

0000*7 

ooOosi 

oqOosi 

0Q00S3 

000013 

OOOOSS 

OOOOS7 

00&Q7O 


END  OF  COMPILATION!  NO  DIAGNOSTICS, 
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FLUID 


wFOR.S  FLUID 

FOR  SE2C-0»/I9/7S-o?:37:07  tc»> 

subroutine  fluid  entry  point  uC037» 


STORAuE  USED;  CODE  I I ) 000412;  DaTA(C)  j00112;  BLANK  C0HMON(2)  000000 
COMMON  BLOCKS! 

0003  ARRAYS  100151 

0004  PARAMS  0000/3 

0005  CEL  I 000424 


EXTERNAL  REFERENCES  (BLOCK,  NAME) 

0006  CELL 

0007  ON 
0010  OFF 
OOU  SURVOL 

0012  BNDCEL 

0013  NRDCS 

0014  N I 02S 

0015  NIOIS 
0014  NPRTS 
0017  NERR6S 
0020  NERR3S 


STORAGE  ASSIGNMENT  (BLOCK,  TYPE,  RELATIVE  LOCATION,  NAME) 


0000 

ooooso 

IOF 

0001 

000105 

1 0 1 L 

0031 

000246 

I02L 

0001 

000331 

10SL 

0001 

C 3035 1 

I06l 

0030 

000951 

I I F 

0001 

000032 

152G 

0901 

000043 

1606 

cool 

000061 

1726 

0001 

000301 

2H  76 

0003 

077773 

AA 

OOOS 

0G3417 

ACC 

0003 

R 

012752 

AHX 

0004 

000015 

AP 

0004 

OOOUl  1 

AS 

0004 

1 

000003 

BND 

0004 

000016 

BP 

00C4 

000035 

BQ 

0004 

000032 

COMPEN 

0034 

000072 

DElZZ 

0005 

000422 

DISP 

0004 

000021 

DTDUMP 

0004 

000t)25 

OTP 

0033 

074716 

ox 

0003 

R 

075272 

OY 

0000 

R 

CC0044 

DYK 

9033 

075417 

DYP 

0003 

1 

OM 235 

F 

0004 

l 

030004 

FAK 

0003 

076J43 

FB 

0003 

07611b 

F L 

0003 

076177 

FR 

0033 

076261 

FT 

0003 

02572* 

FY 

0004 

000010 

G 

0005 

000420 

GOT 

0004 

000055 

ICR 

0003 

077|62 

ICRACk 

0005 

000230 

I DUMP 

0005 

000251 

UMAX 

0004 

000060 

IKHAXp 

0003 

077514 

1 MAS 

0000 

000063 

INJPS 

0035 

000231 

IPLOT 

0004 

000963 

1 SEP 

0004 

000056 

JCR 

0003 

077307 

JCRACK 

0033 

077576 

JHAS 

0004 

00006* 

JSEP 

0000 

1 

000037 

K 

0034 

1 00005 1 

KBAR 

0005 

000226 

lmax 

0004 

030070 

MMMaX 

OCOO 

1 000U4I 

N 

0004 

000053 

NOUMP 

0030 

l 

C00042 

NM 

0004 

000367 

nnmax 

0004 

l 

0000Q5 

08 

0034 

CjOOO* 

OBFOL 

0003 

0SJ6S0 

P 

0004 

000027 

PM  IKI 

0503 

077016 

POB 

0033 

0 7s553 

R 

0001  000167 

0030  000053 

0001  000164 

0003  076734 

0003  075667 

0003  100106 

0004  000007 

0000  R 000043 
0004  1 000002 

0003  077742 

0004  1 000000 

0004  000013 

0005  000232 

0004  000044 

0005  000233 

0004  000045 

0004  I 000052 

0005  000234 
0000  1 000040 
0000  I 000000 
0004  I 000062 


1 03L 

0001 

12F 

0001 

2 1 *G 

0001 

AFOB 

0003 

BEN 

0004 

CO 

0004 

OT 

0004 

DXK 

6003 

EMP 

0004 

ff 

0003 

FULL 

0003 

HMU 

0000 

I 

IE01T 

0004 

I M A X 

0004 

1 

ISTOP 

0000 

1 

JM  A X 

0004 

1 

XBARH 

0004 

1 

name 

0004 

NPTS 

0000 

I 

PART 

6005 

REV 

0003 

000219  104l 
000021  I44C 
000277  244( 
075605  ALN 
000014  BETA 
000036  CK 
000023  OTCP 
074757  DXP 
000031  EPS 
100024  f fA a 
020)37  FI 
000045  I 
000057  IjHaX 
000046  IhAXM 
000044  J 
000047  JHAXH 
000050  KH AX 
000054  NCYC 
000025  HUM 
000144  PBUL 
074571  RHOVB 
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FlUIO 


0304  R 330012  RHOZ 

000*  000252  SHOM 

0003  G4Q676  513 

3004  003020  TDUMP 

0003  376632  Tl3B 

0003  3/7353  UOB 

0003  077*432  VOB 

0303  07*4512  X 

0003  0 7 *4 6 | H *PL 

0003  075020  Y 

0003  075145  Y PL 

0003  077711  ZZ 


oC-3 

C/4655 

RPL 

GO  JH 

300034 

SPEN 

0003 

046263 

S 33 

jOOH 

000017 

tlast 

03u3 

076673 

T 33B 

OOjO 

N 

330347 

UZERU 

OOOH 

300330 

VSCALE 

0003 

075751 

XB 

0000 

K 

oooooi 

XPTS 

0003 

076033 

YB 

0030 

R 

000013 

YPTS 

0001 

030071 

ZZPRT 

JS34 

CSC  j33 

SHE  4 

JCJ  4 

I 

0CCJ3I 

5UR 

OOl-S 

30j227 

T 

GC34 

303a2H 

TP 

00  33 

R 

OOOOOO 

U 

jCj3 

R 

03b 365 

V 

3333 

1 JOO&S 

vv 

0335 

33O000 

aBUL 

u004 

CO 003  7 

API 

ocos 

0000*2 

ybul 

U004 

COOOH 1 

YPi 

0C0‘»  1 

03006 1 

SMALL 

OOjb 

000421 

5VEL 

0003  * 

375544 

TAU 

00C3 

077660 

TT 

oocs 

000253 

UBUL 

ooos 

000335 

VBUL 

0003 

100137 

VVV 

0003 

077100 

XCT 

OOOH 

000040 

X P 2 

0003 

076507 

YCT 

OOOH 

000042 

YP2 

00.35 

000250 

0003 

033311 

OOO" 

000022 

000“ 

0&0326 

OOOH 

OOOOH  3 

0003 

076H2S 

0005 

R 

OOOH  23 

0003 

R 

06*622 

OOOH 

000065 

fiooa 

R 

07tS56 

OOOH 

000066 

SrtASS 
SI  1 
TCP 

ttot  *1 
UcPaCX 
VFOB 
V ZERO 
XK 

XSEP 

YlC 

YSEP 


00101 

00101 

00101 

00101 

0010! 

00101 

00103 

00103 

00103 

00104 

00105 
00104 
00107 
001  10 
00110 
00110 
00110 
601  10 
001  10 
001  10 
00110 
00110 
00110 
00110 
00110 
001  10 

00110 

001  1 1 

001  1 1 
0011  1 
001  1 1 
0011  1 

00111 
0011  1 
001 1 1 
0011  1 
00112 
00112 


1 • 


SUBROUTINE  FLUID 


8 • 
8 • 
8 • 

8* 

8* 

8* 

8* 

8« 

8* 

8» 

8* 


3 • 

C*M< 

4* 

£•••••••••  THIS 

RO'JTtuE  GENEK*TC> 

the  Flu i 9 < 

5* 

£••••••••••••••< 

•«••••••••• 

6» 

^••.•.....•••••••••••9,>99M*9,9f 

»«»••••«••* 

7* 

89 

8 • 

COM* 

PHOC 

8* 

PARAMETER 

|D»33  .JD*8S 

i KU* 1 533 

8 • 

PARAMETER 

LD»ISO  .NNDlM-75 

• HMD  1 M*  1 Q 

8 • 

PARAMETER 

NARR»10t  1D9J0+1  1 • l D*5» JO* 1 7 • 

8 • 

parameter 

NPAR-5* 

8» 

COMMON/ A«R AYS /U< Io*JD) 

• V ( ID. JD) 

89 

• FX(  IO.JD) 

.FT  1 IO.JD) 

• SI  1 ( ID. JD 

8 • 

•S33 ( IO.JD 

) ,P(lD.JD) 

. F ( ID. JD) 

8* 

•YK ( KO ) 

* * e Id) 

.MIDI 

8* 

• RPH  10) 

.0X1 |D) 

• DA  P ( JO) 

8* 

•YPL< JD> 

.OYt JD) 

•DTP( JO) 

8* 

• ALN ( 1 JD) 

.BEN| | JO) 

» X b ( 1 JD) 

8 • 

• FL(  1 JO) 

,FR< 1 JO) 

•FT (IJO) 

8 • 

• VFOB l 1 JD> 

, YCT ( IJO) 

.RHOVB ( 1 D ) 

8 • 

•T33BI 10) 

.ATOdl IJO) 

. PUB ( 1 JD) 

8* 

• 1 CRACK l JD 

) ,JC«*CMIO) 

« UQB ( 1 JD) 

8 • 

• IMASI I JO) 

, JtlASI  1 JD) 

.TT(HNDIH) 

8* 

•FF(NNOIM) 

iAA(NNDIM) 

,FF AAINN01 

8* 

•CD(NNDIM) 

i VVV ( MMD 1 M | 

>«•••§#••••••••••••••********* 

>#•••••••••••••••••••••••••••• 


• ND ■ 1 2 


» ] JD**0 


• AHX  C ID. 3D) 

• S 1 3 1 1 p • JD ) 
,X*UD) 

• X PL  I Ip) 

,YC JO) 

.TaUC Id) 

.ybU  Ju) 

• FB< 1 JD) 

i T 1 3B I 1 D 1 
,XCT< 1 JD ) 
fV08( I JD) 
•ZZlNNolH) 

, V V « NUO 1 H > 


• OB 

• BETA 

• DTCP 
•COMPEN 

• Y P 1 

• KHAX 

•I jhax 

• YSEP 
INTEGER 

• .PART 


.OBFUL 
.AP 
• TP 


FULL 

• DI 
.BP 

• DTP 
.SPEN 


iSUR 
,G 

• TL AST 
.TTOTAL 
.80 


. ENP 
.AS 


t T D UMP 
P M 1 N 
CK 


• UNO 

• RHOZ 

.dtouhp 

.VSCALE 

.XPI 


• YP2 

. UCR  AC  X 

• 1MAX 

.JHAX 

, 1MAXH 

• KBAR 

.XBARM 

.NDUMP 

.NCYC 

.ICR 

, ikmaxp 

•SMALL 

.REV 

, ISEP 

• jSEP 

.NNHAX 

. MMHA  X 

•ZZPRT 

iDCL22 

F .UB 

.FULL 

• SUR 

, EMP 

.BUD 

FAX 

HHU 

TCP 

EPS 

XP2 

JMAXM 

JCR 

XSEP 

,fak 


•SHAlL 


.REV 


000000 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

OQOOOO 

ooOooo 

oooooo 

oooooo 

oooooo 

oooooo 

006000 

oooooo 

oooooo 

oooooo 

oooooo 

OOOOOO 

030000 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

OQOOOO 

OOOOOO 

OQOOOO 

OOOOOO 

oooooo 

oooooo 

oooooo 

OOOOOO 

oooooo 

oooooo 

030003 
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fluid 


00113 

8* 

DAT*  FULL/ l/SUR/1/EHP/7/flr.0/ 1 0/FAK/ 13/OB/ 1 6/P*H T/5/ 

000000 

00123 

8* 

DATA  REV/I5/SMALL/11/ 

000000 

00126 

8* 

DEFINE  INDEX(I,J>aFLD!0,l8,Fll,JI) 

000000 

00127 

8 • 

DEFINE  NBIT(NB»|7Dj«FLD(36-NB>1  »*U) 

000000 

00130 

8 • 

INCLUDE  GELCMN. Ll$T 

000000 

00130 

8 • 

END 

000000 

00130 

8* 

GELCMN  PROC 

000000 

00132 

8* 

PARAMETER  QLMAX-&0 

000000 

00132 

0 • 

PARAMETER  NGEL-5»gLMAX*i2*|1 

000000 

00133 

8 • 

COMMON  /GEL  1/  XBUliULMAX) .yBULIQlMaX) ,PBUl1«LMAX) ,LMAX,Tt 

000000 

00133 

ft* 

. 1 DUMP , IPLOT ,IE()IT, 1ST  OP, NAME  1121. 5maSS,(KHAX 

000000 

00133 

8* 

• , SMOM.UBUL(QLMAX)  .VBULIQLHAX  ) 

000000 

00133 

ft* 

• , ACC,GDT,SVEL,DlSP,VZERO 

000000 

00133 

8 • 

C 

onoooo 

00133 

8* 

END 

000000 

00131 

?• 

DIMENSION  XPTSI IOi lYPTSt 131 thUMC 101 

ooOooo 

00  1 35 

ID* 

K8AR-  1 

000000 

00136 

U* 

K ■ 1 

oooooi 

00 1 36 

12* 

c 

•••••  READ  data  NEEDED  To  G£NE*aTl  PARTICLES. 

oooooi 

00137 

13* 

READ  10.NPTS 

000002 

00112 

1 H • 

READ  1 1 , I XPTSIN)  ,N-I ,NPTS) 

OO60IO 

00150 

IS* 

READ  U,1YPTS(N).N»IiNPTS) 

000021 

00156 

14* 

READ  10, INUMINl ,N.l .nPTSI 

000035 

00161 

17* 

10 

FORMAT! 11151 

000016 

00165 

16* 

1 1 

FORM A T ( 7 E 1 0 • 3 ) 

000016 

00166 

19* 

NM-NPTS-  1 

OOOQ16 

00166 

20* 

c 

STORE  FIRST  PARTICLE. 

000016 

00167 

21* 

XK ( K 1 »XP  TS  ! 1 1 

0Q005I 

00170 

22* 

TKlKl-TPTSdl 

00005} 

00170 

23* 

c 

•••♦•  LOOP  THROUGH  SETS  OF  POINTS. 

00005} 

00171 

2H  • 

DO  100  N«l  ,NM 

000061 

00171 

25* 

DXK-! XPTSIN* I l-XPTSCNI )/InUM(N)-|  1 

000061 

00175 

24* 

OYK-! YPTS!N*I 1-YPTSlNl) /(NUMIN)-I 1 

000070 

00176 

27* 

KBAR»KBAR*NUH(N)-1 

000100 

00176 

20* 

c 

•••••  ADVANCE  TO  NeXT  PARTICLE# 

000100 

00177 

2 ?• 

101 

K ■ K ♦ 1 

000105 

00177 

30» 

c 

•••♦•  STORE  PARTICLE  and  FLaG  CELL  AS  SUR. 

000105 

00200 

31* 

XKIKlaXKlK-l )*DXK 

oob|  io 

00201 

32* 

YKIM-TK1K-1  1*0YK 

00011} 

00202 

33  • 

CALL  CELL!  I , J « K ) 

000116 

00203 

3H» 

CALL  ON  1 SUR ,F ( I , J ) 1 

000123 

00201 

35  • 

CALL  OFF  !EMP,F! I . Jl) 

000(35 

00205 

34* 

ifik.lt.kbaRigo  To  ioi 

000111 

00207 

37* 

100 

CONTINUE 

000 | 52 

0021  1 

38* 

KBARHaKBAR-1 

000152 

00212 

39* 

KMAX-KBAR 

000(5} 

00212 

HO* 

c 

LOOP  THROUGH  CELLS,  LOCATE  CELLS  INSlOE  FLUlp  AN0  FLAG  FULL. 

000(55 

002 1 3 

H|* 

DO  102  1-2i1MAXM 

000(61 

002 1 6 

H 2 • 

J* JMAXM 

000(61 

00217 

H3  • 

103 

JM  NB  J T < SUR  ,F  < l , J j ) *EQ  • 1 > GO  TO  104 

000(67 

00221 

HM* 

J«  J-  1 

000200 

00222 

MS® 

I F C J.GT.i )G0  TO  1 u 3 

000203 

00221 

H4* 

GO  TO  IC2 

000206 

00225 

H 7 • 

104 

J*J-1 

000210 
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Fl.li  I C 


00224 

00230 

Hf  ♦ 

00232 

so* 

00233 

si* 

00231 

S2* 

002  35 

53* 

00235 

5M  • 

00237 

SS* 

00213 

S4* 

00214 

57* 

002SI 

5I» 

002SI 

5?* 

002S3 

80* 

00251 

41* 

0025S 

42* 

00254 

43  • 

• 0241 

4^® 

00243 

4S* 

00245 

44* 

00244 

47* 

00247 

4 • • 

00247 

4 9* 

00270 

70* 

00270 

71* 

•0271 

72* 

00272 

7 3* 

• •273 

71* 

IF  C J.Ei*.  I 160  TO  1 1)2 


C 


C 


IF INB1 T ISUR ,F I I , J) I *E3* 11  GO  TO  1j2 
CALL  ONIFULL.FC | ,jl » 

CALL  OFFlEMP.FI | ,JJ I 
60  TO  101 
102  CONTINUE 

READ  fluid  velocity* 

READ  1 I «UZERO  * VZEWO 
00  IOS  J»2,JHAXH 
00  105  l«»2*IMAXM 

irtNBI HFULL.FI 1 *J»  > .NE.l  .AND.NBITISUK.FI  I .J»l 
••••••••  STORE  VELOCITY  ANO  HASS  FOR  FLUID  CELLS* 


VII  , ji»uzero 
V ( I ,J)«VZERO 

AHXII  ,J)«TAUm»OY(  JI*RmOZ 
IOS  CONTINUE 

IFIICMAA.LE.KDIGO  TO  IC4 
PRINT  12 

12  F ORNAT I 1 H ///*KHAa  EXCEEDS  DIMENSION 


LIMIT*  > 


•NE. 1 I«0 


TO 


IOS 


RETURNO 

••••••••  CALCULATE  FLUID  VOLUME  and  MASS  fur  sur  CELLS* 

CALL  SURVOL 

••••••••  STORE  BOUNDARY  VALUES. 

CALL  BNDCEL 

RETURN 

END 


000212 
0002  IN 
0C0224 
0002  35 
0002*11 
00021? 
000217 
000217 
000301 
ooOjoi 
000301 
000301 
000320 
000322 
000321 
000334 
000334 
000312 
000314 
000314 
000351 
000351 
0Q035I 
000351 
000)52 
000351 
OOOll I 


end  OF  COMPILATION!  NO  DIAGNOSTICS. 
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INTER 

OFOR,S  INTER 

TOR  5E2C-09/l?/75-0»:37: 10  1C, I 

SUBROUTINE  inter  EHTRT  POINT  U002**o 

storage  used:  codeiu  0002&1;  dataioi  000121:  blank  cohmonui  000000 


EXTERNAL  REFERENCES  (BLOCK,  NAME) 

0003  NPRTS 
DOOM  N 1 02S 

0005  N101S 

0006  NERR3S 


STORAGE 

ASS  I GNHtNT 

(BLOCK,  TYPi 

, RELATIVE  location,  n 

A 

ME) 

0001 

00016* 

100L 

0001 

OOOI77 

ISOL 

0001 

000211 

160l 

0001 

00021s 

200L 

0001 

000222 

300l 

0001 

000046 

*001 

0001 

000G3S 

SOL 

0000 

0000  IS 

800F 

0000 

00001 7 

• OSF 

0000 

0000*4 

• 10  F 

0000 

000030 

82  OF 

0000  R 

00001  1 

FI 

0000 

R 

300012 

F2 

0000 

R 

000013 

F3 

OoOQ 

1 

OOOOOO 

1C 

0000  | 

000001 

IL 

0000 

00007 1 

1NJPS 

0000 

R 

0000 1 1 

PLS 

0000 

R 

000002 

PI 

OOOQ 

R 

000003 

P2 

0000  R 

OOOOOH 

P3 

0000  R 

000010 

R 1 

0000 

R 

00000* 

Rl 

0000 

R 

000006 

R2 

6000 

R 

000007 

R3 

00101 

1 • 

SUBROUTINE  1NTER(pL,PE«RL,RE,IEMAX, ILMAX) 

00001* 

00103 

2* 

0|  MENS  ION  PEC  10) .PL (20) ,RE{ 10) ,RLC20) 

oooots 

00  ION 

3* 

1F1RLC 1 1 .GT.REl 1 ) (PRINT  BOO 

00001* 

00107 

*• 

BOO 

FORMAT (SA , ’CAUTION, LA6RANGEAN  ZONE  N 1 OER  * , 

00002* 

00107 

5* 

|*  THAN  EULERIAN  ZONE • 1 

0o6o2» 

00110 

6® 

IE-1 

ooOozt 

0011 1 

7® 

IL-1 

000027 

601 12 

8® 

PRINT  BIO 

000030 

001  11 

9® 

50 

CONTINUE 

00003$ 

001  IS 

10* 

1F(  IE-2.GE. IEMAX)  GO  TO  10o 

00003* 

00117 

I 1 • 

P 1 -PE « IE) 

000011 

00120 

12* 

P2-PE ( IE* 1 ) 

00001* 

00121 

1 3* 

P3-PEI IE-2) 

*000*1 

00122 

If 

Rl-REC IE) 

6*00*3 

00123 

1 5* 

R2-REI IE-1 ) 

•0*04) 

00121 

1 4 • 

R3-REI IE-2) 

6*6043 

0012S 

17* 

*00 

CONTINUE 

**0046 

00126 

18* 

R 1 -RL ( IL) 

000046 

00127 

19® 

Fl-(R|"R2)-(RI”R3)/(Rl-R2)y(RI*R3) 

000071 

00130 

20® 

F2-IR1-R1 ) • ( R 1 “R3 j / ( R2-R 1 )/(R2-R3| 

Oooio* 

00131 

21® 

F3-IR1-RI )-<Rl-R2)/(R3-RI )/(N3-R2) 

000 | 20 

00132 

22® 

PLS-FI -PI -F2-P2+FJ-P3 

000)31 

00133 

23® 

PL ( I L ) -PLS 

OqO| 37 

00131 

2Hm 

PRINT  80S  IL.RLi IL) ,PL( IL) . IE  ,RE( IE) ,PE( ID 

000)12 

00111 

2 5® 

1L-IL-I 

000)62 

Page  175 


1 ITER 


001*15 

26  • 

! 3u 

001*17 

2 7* 

00150 

2 8* 

150 

00152 

2 9® 

0015*1 

30® 

00155 

3 1 • 

160 

00156 

32  • 

00157 

33* 

200 

00160 

3M® 

00162 

35® 

00163 

36* 

300 

00I6H 

37® 

820 

0016*1 

31® 

00165 

39® 

805 

00166 

MO* 

810 

00167 

MI® 

END  of 

COHPILAT I 

IF 

l«L( 

I L ) • G T 

• RE  ( 

GO 

TO 

2G0 

IF 

1 1 E ♦ l .LT.  I 

EMAX 

PR 

INT 

820 

GO 

TO 

200 

IE 

■ l E < 

►1 

GO 

TO 

100 

TO  ISJ 


TO  I 60 


CONTINUE 

IFt  IL.GTt  1LHAX1G0  TO  300 
GO  TO  GO 
RETURN 

FORMAT 12X  , »CAUT  JON.EAGRANgI AN  ZONE 
i BEYOND  EULERJAN  GRIO*) 

805  F0RMAT12Xi  |3*5X,lp2E|3«S»2X»  l 3 1 2X  * 
810  FORMAT <3X,» IE* , *X , • RL • , 1 2X . • PL • . *X 
END 


NO  OIAoNOiT ICS. 


EXTENDS 
I P2E I 3 * 5 ) 

t*le*.7X.*"E,.l2X.,« 


• 1 


000166 

300J7S 

000177 

900203 

000207 

000211 

000213 

000215 

000215 

000220 

000222 

000260 

000260 

000260 

000260 

000260 


BHOG 


LCtCL 
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9F0R  | S LCELL 

FOR  SE2C-0?/l?/75-09:37:l2  «0.» 


LCELL 


SUBROUTINE  (.CELL  ENTRY  POINT  OOOI  3o 


STORAGE  USED:  COOEtt)  000172;  OATAIO)  OOOOIOI  BLANK  C0MH0N(2»  000000 
COMMON  BLOCKS; 

0003  ARRAYS  1001SI 
000*)  PARAMS  000073 
0005  0EL1  000121 


EXTERNAL  REFERENCES  (BLOCK.  NAME  I 
0006  NERR3S 


STORAGE  ASSIGNMENT  (BLOCK.  TYPE.  RELATIVE  LOCATION.  NaMEI 


0001 

000052 

101L 

0001 

000125 

IO*L 

0003 

012752 

AH  X 

0001 

I 000003 

BND 

0000 

000032 

cohpen 

0000 

000021 

DTDUMP 

0003 

075017 

DTP 

0003 

076303 

FB 

0003 

076261 

FT 

0005 

000020 

GDT 

0005 

000232 

IEDIT 

0000 

oooooo 

IMAX 

0005 

000233 

ISTOP 

0000 

1 000007 

JHAXH 

0005 

000226 

UMAX 

0000 

000067 

nnhax 

0005 

000100 

P8UL 

0003 

076571 

RHOVB 

0005 

0002SO 

SHASS 

0003 

033311 

511 

0000 

000022 

TCP 

0000 

000026 

TTOTAL 

0000 

000003 

UCRACK 

0003 

077032 

VOB 

0003 

070512 

X 

0003 

R 070610 

X PL 

0003 

076033 

YB 

0000 

OOOOHl 

YPl 

0001 

000063 

102L 

0003 

077773 

AA 

0000 

000015 

AP 

0000 

OOOO 1 6 

BP 

0000 

000072 

DELZZ 

0000 

000025 

OTP 

0000 

1 

000002 

EMP 

0003 

0777*12 

FF 

oooo 

1 

oooooo 

full 

0000 

000013 

HHU 

oooo 

000057 

1JHAX 

oooo 

I 

000014 

IHAXH 

oooo 

000056 

JCR 

OOOO 

000061 

JSEP 

OOOO 

000070 

HHHAX 

oooo 

1 

000005 

OB 

oooo 

003027 

PM  | N 

oooo 

000012 

RHOZ 

0005 

000252 

SMOM 

0003 

010676 

513 

oooo 

000020 

TDUMP 

0003 

076632 

TUB 

0003 

077350 

UOB 

oooo 

000030 

VSCALE 

0003 

07S7S1 

XB 

oooo 

C00037 

XP1 

0005 

R 

000362 

YBUL 

oooo 

000012 

YP2 

0001 

000075 

103L 

0005 

000117 

ACC 

0001 

00001 1 

AS 

0001 

00003t 

BQ 

0005 

000122 

OISP 

0003 

071714 

DX 

0001 

000031 

EPS 

0003 

100021 

FF  A A 

0003 

020337 

FX 

0001 

000055 

ICR 

0005 

000251 

IKMaX 

30C0 

000001 

INJPS 

0003 

077307 

JCRaCK 

0001 

000051 

KB  AR 

0005 

000231 

NAME 

0001 

000006 

OBFUL 

0003 

077014 

POB 

0003 

071655 

RPL 

0001 

000031 

SPEN 

0003 

016263 

S3  3 

0001 

000017 

TL  AST 

0003 

076673 

j33B 

0003 

005365 

V 

0003 

100055 

W 

0005 

R OOOOOO 

XBUL 

0031 

000010 

XP2 

0003 

076507 

YCT 

0001 

000066 

YSEP 

0001 

000102 

0003 

074731 

0003 

075667 

0003 

100104 

0001 

000007 

0003 

0717S7 

0003 

I 061235 

0003 

076115 

0003 

025721 

0003 

077142 

0001 

000040 

0005 

000231 

0003 

077576 

0001 

000052 

0001 

000051 

0003 

053650 

0003 

071553 

0301 

000033 

0001 

1 000001 

0005 

000227 

0031 

000021 

0003 

OOOOOO 

0005 

000335 

0003 

100137 

0003 

077100 

0001 

000045 

0003 

071554 

0003 

077711 

IORL 

0001 

AFOB 

0003 

BEN 

000*1 

CO 

0001 

OT 

0001 

OXP 

0003 

F 

dQOI 

FL 

0003 

FY 

0001 

1 CRACK 

0005 

IKHAXP 

0003 

l plot 

Oooi 

jmas 

0001 

KBARM 

0001 

NCYC 

Oooi 

p 

oooo 

R 

0301 

SHEN 

0001 

SUR 

0005 

T 

0003 

TP 

0003 

u 

0005 

VBUL 

0003 

wv 

0006 

XCT 

0003 

XSEP 

0003 

YK 

0003 

ZZ 

0001 

0001 J3  I05L 
075405  ALN 
000060  BETA 
000034  CK 
0000|3  OTCP 
076272  DV 
i oooooo  r as 

074177  FR 
000010  « 
000230  IDUhP 
077610  | MAS 
000063  1 SEP 
OOOOOS  UMAX 
000060  KM AX 
O00053  NOUHF 
I 000000  PART 
| 000042  REV 
i 000041  shah 
00002 1 SVEL 
076600  TAU 
077440  TT 
000263  UBVL 
074025  VFOB 
000*123  V ZERO 
044422  XK 
075020  T 
r 076116  YPL 
00007 1 ZZPRT 
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l c F L L 


CO  1 0 1 

00101 
30101 
00101 
00101 
00101 
0010  1 
00103 
00103 
00103 
00103 
00104* 

00105 

00106 

00  1 07 
00110 

001  10 
00110 

001  10 
00110 
001  10 
001  10 
00110 
001  10 
00110 
001  10 
001  10 
00110 
00110 
001  1 I 
001  I 
0011 
0011 
001  1 
001  1 
0011 
001  1 
0011 
00112 
00112 
00113 
00123 
00126 
00127 
00130 
00130 

00130 

00131 

00132 

00133 
00133 
CO  1 33 
00133 


1 • 

2 • 

3 • 

H • 
5* 
6* 
7* 

a* 
*• 
10* 
10* 
10* 
10* 
10* 
io* 
10* 
10* 
10* 
10* 
10* 
10* 
io* 
10* 
10* 
10* 
10* 
10* 
10* 
10* 
10* 
10* 
10* 
10* 
10* 
10* 
10* 
to* 
10* 
10* 
10* 
10* 
10* 
10* 
10* 
to* 
10* 
10* 
10* 
13* 
10* 
10* 
10* 
1 0 • 


SUBROUTINE  LCELL<l»J»L> 

THIS  ROUTINE  FtHDS  CElL  Cl.JI  CONTAINING  PROJECTILE 

£•••••*•«•  POINT  NUHBER  L • 

£•••••••••••*•••••••••••••••••••••••••••••*•••••*** 

£•••••••••••••••••••••••••• 

INCLUDE  COM  |L 1ST 


•••••< 


»••••••#•*••••••••< 


c**#* 

<;•••• 

COM* 


PROC 


if  i or  J out  of  Range, 

t JO 


PARAMETER  ID*  3 3 , J0»8§  »r.w-i  juu 

parameter  ldmso  iNndim«2s  •mmdim-io 

PARAMETER  NARR*10«lD«JD^l 1«10*5*JD*17* 
PARAMETER  NPaR-59 
COMMON/ AMR a YS/U1 lu,JO» 

• F X l 1 D • JD>  tFY  * I 0 i JL»  1 


SET  TO  CENTER  OF  MESh, 

•KQ-1&00  § NO*  1 2 

0 

1 J0#2 


• 1 J0*50 
ko*7*nndim^mhdim 


• S 3 3 ( ID • JD  ) 

• YK  CADI 

• mPL CIO) 

• TPL  C JO  ) 

• A L M 1 JO) 
•FLC 1 JDI 
•VFOBC I JD  > 
•T33BC ID) 
•1CRACKC JD) 

• 1HASC  t JD) 


• PC  ID.JCI 

• a< Id) 

• D X ( »0j 
•DYC JD) 

• BEN  C I JD) 

• FR( I JD) 
•YCT( I JD) 

• AFObC 1 JD) 

• JCRaCM  I D i 
, JMASC I JD) 
•AACNND1M) 


•VI 10 i JO) 

• S 1 I ( l 0 • J i/  f 

• MU  , JD) 

• R l Id) 

•DAPC 10) 
,DYP( JO) 
•Xd< I JD) 

• FTC  1 JD) 

• RhOVBUDJ 
•POB ( I JD) 

• UOB  C 1 JD) 

• TT  CNNDlM l 


• A M X ( 1 0 • J 0 ) 

• S 1 3 C 1 o • JD  ) 
i X K C X 0 ) 

• xpl (Id) 

,Y( JO) 
•TAOflol 

• YbUJD) 

• FBUJD) 

• T 1 35  C ID) 

• XCT ( 1 JD 1 
•VOBCl JD) 
•22CNN01M) 
,VV(NN01M) 


• CDCNNDlM)  i V VV  < MMO 1 M ) 

COMMON/PARAMS/  FULL 

• SUR 

• EMP 

• BND 

• fak 

• OB 

•obful 

• 0T 

• G 

• AS 

• RHOZ 

• HMU 

• BETA 

• AP 

• BP 

•tlast 

•TDUMP 

i oTDUMp 

• Ter 

•DTCP 

• TP 

• DTP 

•TIOTal 

• P M 1 N 

i V SC  ALE 

• EPS 

•COMPEN 

• SHEN 

• SPEN 

,Bw 

• CK 

• XPI 

• X P 2 

• YP  1 

• TP2 

•UC«ACK 

. 1MAX 

• JMaX 

, J M A XM 

• JMAXM 

• KMAX 

, Kb  AH 

•KBARh 

•NDUMP 

• ncyc 

• ICR 

• JC  R 

• | JM A X 

i IKMAXP 

•SMALL 

• R t V 

. IScP 

• JSEP 

• XSEP 

• Y SEP 
INTEGER 

•NNMAX 
F ,00 

•MMMAX 
• FULL 

•ZZPRT 
• SuR 

•DElZZ 
, EMP 

• JNB 

• FAK 

• PART 


•SHAlL 


I R r *r  ~ T , a W ' 

DATA  REV/15/SMALL/1M/ 

OEF INE  1NDEXC  I • J ) »FLD ( 0 , 1 8 • F ( 1 • 
DEFINE  NB1T (NB»WD)»FLD(36-nB, I • 
INCLUDE  GELCMNiLIST 

END 

GELCMN  PROC 

PARAMETER  QLMAX«5o 
PARAMETER  NGEL«5*ULMaXm2M«I 
COMMON  / DEL  1 / XBOlCWLHA) 


J)  ) 
WD) 


PARAMETER  QLr1AX«50 
PARAMETER  NGEL«5*WLMaXm2m* 

COMMON  /GEL  1 / XODt (OLMAX ) • YBUL ( QlM AX ) ,PBUl C OLhAX ) tLMAX  , T , 
. I DUMP  . 1 PLOT  • 1E01T  , 1 STOP  .NAME  {12>.SmaSS,IKmAX 
• , SMOM.UbDLCOLHAa)  • VBUl(CILMAX) 

>/•/■  r.nr.tufi  . . I SP  . u rf  a.i 


000000 

000003 

000000 

000000 

000000 

000000 

oqOooo 

000000 

000000 

000000 

000000 

000000 

000000 

oooooo 

000000 

OOOOOO 

SOOOOO 
00000 
•00000 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 

OOOOOO 

oooooo 

ooooao 

OOOOOO 

oooooo 

000000 

•ooooo 

ooooto 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

OOOOOO 

OOOOOO 

OOOOOO 

oooooo 

oooooo 

oqOooo 

oooooo 

oqOooo 

oooooo 

oooooo 

oooooo 

oooooo 
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lcell 


00133 

10* 

c 

00133 

10» 

END 

00I3N 

1 It 

30136 

12* 

00136 

13* 

c****< 

00 1 40 

14* 

00142 

15* 

101 

00143 

16* 

00145 

17* 

00IH6 

18* 

102 

00 1 N 7 

\9* 

00151 

20# 

001 5 1 

2 I • 

C • • # • 1 

00)52 

22* 

103 

00  ISM 

23* 

104 

00155 

24  • 

00157 

25* 

00 1 60 

26* 

105 

00161 

21* 

00163 

28* 

00161 

29* 

106 

00165 

30* 

END  of 

COMP  I L AT  1 

|F(I.LT.2»0R*l*6T»)HAXM)|»|MAXM/2 
IFI J.LT.2.0R.J.GT.JMAXM) J«jMaXM/2 

....  find  COLUMN  containing  point. 
ifixbulili.lt. XPLIIIIGO  To  102 
I - 1 ♦ I 

IFIXBULID.GT.XPHIMCO  TO  101 

GO  TO  103 

l*fl 

IF(XBULIL) . LT.XPL< I ) ICO  TO  102 
I • I ♦ t 

■••••  FIND 
I F ( YBUL  CL 


R0»  CONTAINING  POINT. 
) .LT.TPL(U) »G0  TO  tos 


IF(TBULIL) .GT.YPL(J) 160  TO  ION 
GO  TO  106 

IF  I YBULIL  I .LT  » TPL  ( J)  ) GO  TO  105 

j.j*| 

RETURN 

CNO 

)NS  NO  diagnostics. 


SMOG 


4 


MASS 


000000 

oooooo 

oooooo 

000021 

000021 

OOOONN 

000052 

OOOOSN 

000061 

000063 

000065 

000072 

000072 

000075 

000)02 

bobio* 

0001 II 
oob)  13 
000)15 
000)22 
000)25 
Oo0)71 


A* 
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yFOR,s  mass 

FOR  SF2C-09/l9/7S-0?:37: M C G » ) 


mass 


subroutine:  mass  entry  point  000367 


STORaoE  USEO:  codec!)  OOORoI;  OaTA(O)  J00037;  aLANK  C0MM0h(2)  OOOOOO 

common  blocks: 

0003  ARRAYS  1001b! 

OOOM  PARAMS  000073 
0005  GEL!  000R2H 


EXTERNAL  REFERENCES  (BLOCK,  NAME) 


0006  RHO 

0007  NERR6S 
0010  NERH3S 


STORAGE  ASSIGNMENT  (BLOCK,  TYPE,  RELATIVE  LOCATION,  NAME) 


0001 

ooous 

100L 

0001 

000133 

1 0 1 L 

0001 

000145 

I02L 

0001 

000211 

IOSL 

0001 

000223 

I 06 1 

OCJI 

000240 

!07l 

0001 

000274 

1 10L 

0001 

000344 

I11L 

0001 

OCOlO* 

1 12L 

0001 

000321 

2**0G 

0001 

000322 

2H3G 

0003 

077773 

AA 

0003 

07S*0S 

aln 

0003 

R 

012752 

AMX 

0004 

OOOOIS 

AP 

000s 

000014 

BETA 

0004 

I 

000003 

BND 

0004 

OCOOl* 

BP 

0004 

000036 

CK 

0004 

000032 

COMPEn 

0004 

000072 

DEL  H 

DOOM 

000023 

OTCP 

0004 

000021 

dtdump 

0004 

000025 

OTP 

0003 

R 

075272 

DV 

0003 

0754  I 7 

OYP 

0004 

l 

000302 

EMP 

0004 

I 

000004 

FAK 

0003 

07*343 

fb 

00o3 

077742 

FF 

0003 

07*177 

FR 

0003 

07*2*1 

FT 

U004 

I 

OOOOOO 

full 

0004 

000010 

G 

OOCS 

000420 

GDT 

0004 

0300 1 7 

HMU 

0003 

0771*2 

ICRACK 

OOOS 

000230 

I DUMP 

0035 

000232 

I EO  I T 

OOOS 

0002S 1 

UMAX 

0004 

0000*0 

IKMAXp 

0003 

077514 

I HAS 

0000 

000012 

INJPS 

0000 

I 

ooooos 

IP 

OOOS 

030231 

I PLOT 

0000 

1 

000001 

J 

0004 

00005* 

JCR 

0003 

077307 

JCRACK 

0004 

I 

000047 

JMAXM 

0000 

I 

00000* 

JP 

0004 

0000*4 

JSEP 

0004 

ooooso 

KM  AX 

OOOS 

00022* 

lmax 

0004 

C00C7O 

HMMaX 

0004 

0000S3 

NDUMP 

0004 

0000*7 

NNMAX 

0004 

I 

000005 

06 

0000 

I 

OOOOOO 

PART 

OOOS 

000144 

PBUL 

0004 

000027 

PMIN 

0004 

I 

0000*2 

REV 

000* 

R 

OOOOOO 

RHO 

0003 

07*571 

RH0V6 

0004 

000033 

shen 

0004 

I 

0000*1 

small 

0095 

000250 

SMA5S 

0004 

I 

000001 

SUR 

OOOS 

000421 

SVEL 

0003 

033311 

SI  I 

OOOS 

000227 

T 

0003 

R 

075544 

TAU 

0004 

000022 

TCP 

0004 

000024 

TP 

0003 

077**0 

TT 

0004 

000u2* 

TTOTAL 

0003 

R 

OOOOOO 

U 

OOOS 

000253 

UBUL 

0004 

00 JuH  3 

UCRACK 

OOOS 

00033S 

VBUL 

0000 

R 

030003 

VF 

0003 

R 

G7**»2S 

VFOB 

0004 

00003C 

vscale 

0033 

1 C005S 

W 

3033 

1001 37 

VW 

0003 

075751 

XB 

OCwS 

OOOObO 

XBUL 

0033 

077100 

XCT 

003 1 

0001*2 

I 03L 

0001 

00017S 

ion 

0001 

0002S3 

I08l 

0001 

000255 

ion 

0001 

000004 

I3SG 

0001 

000030 

UOg 

OOOS 

000417 

ACC 

0003 

0?*?34 

AFOB 

0004 

00001 1 

AS 

0003 

075**7 

BEN 

0004 

00003S 

BQ 

0003 

10010* 

CD 

OOOS 

000422 

OlSP 

0004 

0000*7 

DT 

0003 

07471* 

OX 

0003 

0747$7 

DXP 

0004 

000031 

EPS 

Aooa 

I 

0*12)5 

F 

0003 

100024 

FF  A A 

6003 

07*115 

FL 

0003 

020337 

FX 

0003 

025724 

FT 

0000 

I 

000002 

I 

0004 

000055 

ICR 

0000 

I 

000004 

i J 

0OO4 

O0O0S7 

I jmax 

0034 

000044 

IMAX 

0004 

I 

o0OO4* 

ihaxm 

0004 

0000*3 

I SEP 

0005 

000233 

ISTOP 

0003 

07757* 

JMAS 

0004 

000045 

JMAX 

0004 

00005 1 

kbaR 

0004 

000052 

KBARH 

OOOS 

000234 

NAME 

0004 

0000*4 

NCYC 

0004 

00000* 

OBFUL 

0003 

053*50 

P 

0003 

07701* 

POB 

0003 

074553 

n 

0004 

R 

000012 

Rhoz 

0003 

074*55 

RPL 

OOOS 

0002S2 

SMOM 

6004 

000034 

SPEn 

00o3 

040*7* 

SIT 

0003 

04*2*3 

S33 

0004 

000020 

TOUMP 

0004 

0000,7 

tlast 

000) 

07**32 

T l 38 

0003 

07**7) 

T 3 3b 

0003 

077350 

UOB 

0003 

ft 

0053*5 

V 

0000 

R 

000007 

VM 

0003 

077432 

VOB 

OO3S 

300423 

VZEKO 

0003 

074512 

X 

0003 

06*622 

XK 

0003 

074*14 

XPL 
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0004  000037  XPl 

0005  000062  YBUL 

C001  300012  Y P2 


OOJ1  030010  XP2 

0003  Q765t>7  YCT 

0001  000066  YStP 


CC01  00Q06S  XSEP 

0003  fj7|5S6  YK 

0003  C 7 7 7 I I ZZ 


0003  075020  Y 

0003  075MS  YPL 

0001  000071  ZZPRT 


0003  076033  YB 

0001  000011  YPI 


00101 

1 • 

00101 

2 • 

00101 

3« 

00101 

H • 

00101 

5* 

00101 

6* 

00103 

7 • 

DO  103 

8 • 

00103 

9# 

00103 

?• 

0010H 

9^ 

00105 

?• 

00106 

?• 

00107 

9® 

001  10 

9^ 

001  10 

9 • 

001  10 

9^ 

00110 

9» 

00110 

99 

00110 

9 • 

00110 

9 • 

001 10 

?• 

00110 

9 • 

00110 

9 • 

00110 

9 • 

001 10 

9 • 

001 10 

9 • 

00110 

9^ 

0011 1 

9* 

001  1 1 

9 • 

001  1 1 

9 • 

001  1 1 

9« 

001  1 1 

9 • 

001  l 1 

9 • 

0011  1 

9 • 

00111 

9» 

001 1 1 

9« 

00112 

9 • 

00112 

9« 

00113 

9^ 

00123 

9 • 

00126 

99 

00127 

9« 

00130 

9® 

00130 

9* 

00130 

9* 

00131 

9« 

SUBROUTINE  HASS 


*M««n«»«»»»»»‘»»»*»*»*****,|**’**'***'|* 

c .. •••••• ••••••••••••••••••••••••••*••••••••••••••••••••••**********  * * 

MASS  CHECKS  THE  CELL  HASSES  ANO  AOJUSTS  WHERe  NEEDCO. 



^•••••••••••••••••••••••••••••••••••••••••••••••**** *************************** 


INCLUDE  COM, LIST 


COM* 


through 

CELLS. 

PROC 

PARAMETER 

10-33 

• JD>85 

, KD> 1 SOO 

parameter 

to- 1 SO 

,NNDIM»2S 

•MMOIM-IO 

parameter 

narr-io* 

ID* JD® l 1 • »D*5« JD*  t 7* . 

parameter 

NPAR-59 

COMMON/aRRAYS/UUd 

• JD) 

•VI IO.JD) 

• F X I ID, JO) 

,FY<  iO.  JD) 

, S 1 1 I | D 1 JD 

• S33I  ID . JO 

) .PHD 

• JO) 

•FI I0,JDI 

•YKIKD) 

•XI 1 0 ) 

, R I 101 

• KPLI  ID) 

• DX 1 |0> 

•OXPIID) 

•YPL 1 JD ) 

,0YI JD) 

•OYFIJO) 

• A L N 1 1 JO ) 

,BEN( | JD) 

•XBIIJO) 

•FLI t JO) 

,FPt 1 JD) 

,FT(  I JO ) 

• VFOBl I JO* 

, YCT ( 1 JD ) 

•RHOV.I ID) 

• T 33B 1 ID) 

•AFObI 1 JO) 

• POBI  | JD) 

• I CRACK  1 JO 

) ,jcRaCkiidi 

, UOB I 1 JD ) 

•IMASI 1 JD ) 

• JMASI 1 JD) 

•TTINNOIH) 

•FF(NNDIM) 

.aainnoim) 

.ffaainndi 

•CDINNDIM) 

,VVV(MMD|M) 

COMMON/P  ARAMS/ 

FULL 

, SUR 

• 08  • 

OBFUL 

• DT 

.6 

•BETA  • 

AP 

• BP 

.TLAST 

• DTC?  . 

TP 

.DTP 

.ttotal 

•COMPEN  . 

SHEN 

.SPEN 

• BQ 

•YPI  . 

YP2 

•UCRACK 

• l HA  X 

•KMAX  • 

KB  AR 

.KBARM 

.noump 

• UMAX  . 

IKMAXP 

•SMALL 

• REV 

•YSEP  • 

NNMAX 

•MMMAX 

, ZZPRT 

INTEGER 

F .00 

• FULL 

• SUR 

• .PART 

.shall  ,rev 

, ND» I 2 1 | JD*50 

| J0*2»KD*7*HN0lH*MMDlM 


, amx I Id.JD) 
, S | 3 ( Ip, JO) 
,Xk(KO) 
,XPL| lo) 

, Y | JO  I 

,TaO(Io) 
,YB< IU0) 

, FBI  I JO) 

, T I 3 B I I 0 I 
• XCT  I I JO ) 
,VOB(  I JOI 
.ZZ(NNolH) 
.VVINNOIM) 


• emp 

• AS 

.TOUMP 
,PH|N 
. CK 
, JMAX 
,NCYC 
. ISEP 

• OELZZ 
,EMP 


,t>HO 

,RHOZ 

,otoump 
, VSC ALE 
,XPl 
, | MAXM 
, ICR 
, JSEP 

,BND 


DATA  REV/tS/SMALL/11/ 

DEFINE  INDEX! I , J ) -FLO ( 0 , l 8 , E I l , J) ) 
OEFINE  NB|T(NB.nD)-FLD(36-NB,l »WD) 
INCLUDE  GELCMN.LI5T 

END 

iELCMN  PROL 

PARAMETER  QLMAXoSc 


fak 

HMU 

TCP 

EPS 

XP2 

JMAXM 

JCR 

XSEP 

,fak 


000000 

000000 

000000 

oooooo 

000000 

oooooo 

OOOOOO 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

ooflooo 

OOOOOO 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

ooOooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

006000 

OOOOOO 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

OOOOOO 

oooooo 
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MASS 


00132 

9* 

PARAMETER  nGlL*S*^LMAX^ i 2*  l M 

00133 

9 • 

COHrtON  /GEL  1 / XQUulQLMAx  ) .YBULIGlHaX)  .^BULlQLMAX I #T . 

00133 

9* 

• 

IOUHP  , I PLOT  ,IEulT,lST0P.NAMtll2),Sr1ASS,IAMA* 

00133 

?• 

• 

, SMOH.UBULIQLMAXI .VBULIQlMaX ( 

00133 

9* 

• 

.ACC.GDT.SVEL.DlSP.VZERO 

00133 

9 • 

c 

00133 

9 • 

END 

00131 

10* 

DO  1 10  J-2,  JHAXH 

00137 

l !• 

00  110  1-2.  jtiAxn 

00137 

12* 

C 

••••  OLTERMINE  CELL  TYPE  AND  SIGN  OF  HaSS. 

00112 

13* 

IF  I NBITIEMP.FI l , J) 1 .EQ. 1 1G0  TO  100 

OOHI 

IM* 

IF!  AMX  ( 1 . J)  .LE.C.ClGO  TO  100 

0011* 

IS* 

IFINBI T (FULL .F t ( • J)1 .NE. 1 ) GO  TO  HO 

00150 

16* 

IFtRHOI 1 .JI.GT..’5»Rh02)G0  TO  110 

001S2 

17* 

VF-I  .0 

00 1 S3 

18* 

IFINBITI0B.FI I .J) ) .NE. 1 )G0  TO  112 

00155 

19* 

1 J-INDEX ( I ,J> 

001  S6 

20* 

VF-VF0B1 l J) 

00IS7 

21* 

1 12 

AMX( | tJ)-RHOZ*VF*TAU( 1 1 - 0 T 1 J ) • « ’5 

00160 

22* 

GO  TO  no 

00160 

23* 

c 

••••  IF  MASS*0«0#  GO  TO  NexT  CcLL • 

00161 

•DIAGNOSTIC 

; • 

The 

TEST  FOR  EQUALITY  BETWEEN  NON- 1 NTeGEMS  Ma*  N0T  Bl  MEANINGFUL 

001*1 

2M  • 

100 

IFCAHXC  1 ,J).EQ.O>v*0  TO  IIO 

001*1 

2S* 

C 

••••  FIND  A NEIGHBORING  FULL  CELL  TO  DISTRIBUTE  H*SS  TO. 

001*3 

26* 

IP-l 

001*1 

27* 

IFINBITIFULL.FI I »J*I 1 1 .NE. 1 ICO  TO  10J 

001** 

28* 

JP-J+I 

001*7 

29* 

GO  TO  10’ 

0OI7O 

30* 

101 

IFINBITIFULL.FI l.J-1 1 l.NE.l IGO  TO  102 

00172 

31* 

JP-J-1 

00173 

32* 

GO  TO  10’ 

00171 

33* 

102 

JP- J 

00175 

3** 

IF (NB1T (FULL.F ( |*| .J) 1 .NE. I )G0  TO  103 

00177 

35* 

IP-1+1 

00200 

36* 

GO  TO  10’ 

00201 

37  • 

103 

IFINBITIFULL.FI 1-1 .J) 1 «nE. | IGO  TO  101 

00203 

38* 

1P-I-I 

00201 

39* 

GO  TO  10’ 

00201 

MO* 

c 

•*••  FIND  A NEIGHBORING  SuR  CELL  TO  Gl^E  MASS  TO. 

00205 

M 1 • 

10M 

I P-  I 

0020* 

M2* 

IF  ( NS  l T ( SUR  iF  ( 1 , J*  1 > ) .NE  . 1 > GO  TO  |0S 

00210 

M3* 

JP- JM 

002|l 

MM* 

GO  TO  109 

00212 

M5* 

10s 

1F1NBIT CSUR#FU # J-ll 1 .NE. 1)G0  10  106 

002H 

M6* 

JP-J-1 

00215 

M 7 • 

GO  TO  109 

002(* 

M8* 

106 

JP-J 

00217 

Mf  • 

!FCNBIT(SUR,F( !♦! VJ)) .NE* 1 ) GO  TO  107 

00221 

50* 

1P-1*1 

00222 

SI* 

GO  TO  109 

00223 

52* 

107 

IFINBI T 1 SUR #F (I- 1 .Jll .NE* 11G0  TO  108 

00225 

53* 

IP-l-I 

0022* 

SM* 

GO  TO  109 

00227 

ss* 

10a 

RETURN,} 

onoooo 

onoooo 

oooooo 

000000 

000000 

000000 

oooooo 

000000 

000030 

000030 

000033 

0000*12 

000015 

00005*1 

OOOO** 

000070 

000077 

000103 

000(0* 

000(13 

000|I3 

000(15 
0Q0( IS 
000(1* 
000|20 
000(27 
000( 3 1 
000|33 
000(11 
000(13 
000(15 
000(1* 
000 ( 55 
000(60 
000,62 
000(70 
000(73 
000(73 
000(75 
000(7* 
000205 
000207 
000211 
000217 
000221 
000223 
000221 
OO0233 
00023* 
000210 
OO021* 
000251 
000253 
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MASS 


00227 

56* 

00230 

57® 

00231 

58  • 

00232 

59® 

00233 

6C  • 

0023*4 

61* 

00237 

62® 

002*12 

63® 

002*42 

6*4® 

002*45 

65® 

002*47 

68* 

00250 

67® 

002SI 

68® 

0025*4 

69® 

00255 

70® 

END  OF 

*HDG 


••••••••  GIVE  HASS  ANU  MOMENTUM  TO  CELL  IH.JP. 

139  VM» AMX  < j P • JP  1 • V ( IP.JPUaMXC  1 . J J • V < 1 f J ) 

amxup.jp >»amx(  IP, JPMAMX ( I |J) 

V ( IP|JP)»VM/AHX( IP.JP) 

A M X I 1 . JJ*0.0 

110  CONTINUE 

DO  III  J»2. JHAXM 
DO  111  I »2  • I MAXM 

••••••••  ZERO  VELOCITIES  IN  EHP  AND  f kK  CtcLS. 

ifcnbi t cfull.f < I • J> I »E«. 1 .or«n» it CSUR.F C I i j 

UC I • J)«0*0 
VC l t J)»0«0 

111  CONTINUE 
RETURN 
END 


compilation:  l DIAGNOSTICS. 


hcSrt 


000253 

CQ0255 

000265 

000270 

000272 

000300 

000300 

000322 

000322 

000322 

0003*11 

0003H2 

0003M7 

0003*17 

000*100 
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i*F0R,5  MESH 

FOR  5£ZC“09/l9/7S“ij9:37:  IB  ( 0 . > 


ML  S H 


SUBROUT  1 Nt  HESh  ENTRY  POINT  OCC1&1 


STORAGE  USEO:  COOEH)  000170;  DaTACO)  COO  12  3;  BLANK  COMMO'I  ( i 1 oooooo 

COMMON  BLOCKS: 

0003  ARRAYS  IOOISI 
000*1  PARAMS  000073 
OOOS  GEL  I 0C0121 


EXTERNAL  REFERENCES  tBLOCK,  NAMEI 


0006 

ON 

0007 

NRDCS 

0010 

M02I 

001  1 

NPRTS 

0012 

U 1 0 1 $ 

0013 

NERR6S 

0319 

NERR35 

STORAGE 

ASSIGNMENT  (BLOCK,  TYPE 

, RELATIVE  location,  < 

i amE  1 

0000 

000003 

10F 

0001 

000117 

1C7L 

3031 

030 1 37 

108L 

0030 

000063 

13F 

0000 

000017 

1 9 F 

ocoo 

000031 

15F 

0001 

00007S 

1 70G 

0001 

000103 

17&G 

OCOl 

3 CO  1 2 3 

21  tG 

0001 

000210 

26  ^ G 

0301 

000253 

2 7 l G 

3031 

0^027 1 

300G 

0001 

0001 l 7 

3 3 6 G 

0301 

000012 

99L 

3003 

07/773 

AA 

0003 

075605 

ALN 

00  j3 

012752 

AM* 

3C3H 

OCGO 1 c 

A P 

0001 

0000  1 ** 

beta 

0001 

l 

03C0&3 

BNO 

&0G9 

OCOul 6 

BP 

0001 

000036 

CK 

0009 

030332 

COMPEn 

CC39 

JOCU72 

DEL2Z 

0001 

000023 

DTCP 

0031 

300021 

OTDUMp 

009  9 

030025 

OTP 

0003 

R 

075272 

DY 

0CU3 

R 

0751(7 

DVP 

UCCM 

1 

003002 

EMP 

0001 

I 

000001 

fak 

0033 

076313 

F & 

0033 

37 / /92 

FF 

0003 

076177 

FR 

0003 

076261 

FT 

30CM 

I 

OOOOOO 

FULL 

0001 

000010 

G 

OOOS 

000120 

GOT 

OCCR 

COOOl 3 

HMU 

0003 

077162 

I CRACK 

0005 

030230 

1 DUMP 

000& 

000232 

I ED  I T 

0001 

000060 

ikhaap 

0033 

077511 

1MAS 

0009 

1 

030099 

IMAX 

0005 

000231 

iplot 

0031 

300063 

I SEP 

OOOS 

000233 

l STOP 

0003 

077307 

JCRACK 

0303 

077S7* 

jmas 

0009 

l 

000096 

jmax 

0001 

000051 

KBAR 

0001 

000052 

KBARh 

0009 

OOGOSO 

KM  A A 

0005 

000231 

NAME 

0001 

030051 

NCTC 

0009 

300353 

NDUMP 

0001 

000006 

OBFUL 

0033 

053650 

P 

0030 

I 

003000 

PART 

0003 

077016 

POB 

0003 

R 

071SS3 

R 

0009 

1 

00C062 

REV 

0303 

R 

07M655 

RPL 

0031 

000033 

SHEH 

0009 

I 

003061 

SMALL 

0001 

000031 

SPEN 

0031 

I 

coooci 

SOR 

00C5 

000921 

SVEL 

0003 

016263 

533 

0035 

000227 

T 

0003 

R 

075599 

TAU 

0001 

000017 

tlast 

0001 

330021 

TP 

3003 

07 /660 

TT 

0000 

000001 

l IF 

0000 

000061 

I2F 

0000 

000015 

1 6F 

0001 

000061 

U2G 

000  1 

000153 

227G 

0001 

000200 

299G 

OOQl 

0003(7 

307G 

0001 

000101 

322G 

3005 

OCCFl ! 7 

ACC 

0003 

076731 

AFOb 

0009 

00301 1 

AS 

0003 

07*647 

BEN 

0009 

000035 

BQ 

0003 

100106 

CO 

0005 

000122 

D1SP 

0001 

000007 

OT 

0003 

R 

071716 

0 X 

0003 

9 

0?1?S7 

DXP 

0C39 

000031 

EPS 

0003 

I 

061235 

F 

0033 

100021 

Fr  AA 

0003 

076115 

FL 

0003 

020337 

rx 

0003 

02*721 

FT 

0000 

I 

OOOOOl 

1 

0001 

I 

ooooss 

IC* 

0009 

000057 

UMAX 

0005 

000251 

UMAX 

0009 

I 

000016 

IMAXM 

oooo 

00007* 

INJPS 

0030 

I 

000002 

J 

0001 

1 

0000*6 

0009 

1 

003017 

JMAXM 

0001 

000041 

JSCP 

0005 

000226 

LMAX 

0001 

oooo?o 

mmmax 

0009 

000067 

NNMAX 

0001 

I 

000005 

OB 

0005 

0001H 

P8UL 

0001 

000027 

PMIN 

OOO  3 

076571 

RHOVB 

0001 

000012 

RHOZ 

0035 

0002S0 

SMASS 

0005 

000252 

SMOM 

00o3 

033311 

SI  1 

0003 

010474 

S13 

3909 

000022 

TCP 

Oooi 

000020 

TDUmP 

0009 

0CC026 

ttotal 

0003 

074432 

T l 3q 

mesh 


0003 

074473 

T33B 

0033 

OOOOOO 

u 

0005  000253 

uauL 

OOOH 

OOOOH3 

UCRACK 

0003 

077350 

uoa 

0003 

005365 

V 

ooos 

000335 

V0UL 

0003  076H2S 

VF  Ob 

0033 

077H32 

VOB 

009H 

000030 

VSCAtE 

0003 

100055 

VV 

0C33 

1001 37 

vvv 

0005  330423 

VZERO 

0003 

K 07H512 

X 

0303 

0?S7SI 

XB 

0005 

000000 

XBUL 

3333 

077100 

XCT 

0033  366422 

XK 

0003 

R 07H61H 

XPI 

OOOH 

000037 

xpi 

oooh 

OOOOHO 

XP2 

OOOH 

000065 

XSEP 

0033  R 07S020 

Y 

0003 

076033 

YB 

0005 

000062 

TBUL 

0903 

074507 

YCT 

0033 

071556 

YK 

0033  R 37S1HS 

YPL 

OOOH 

OOOOHl 

YPl 

OOOH 

0000H2 

rp2 

OOOH 

000044 

YSEP 

0003 

077711 

zz 

OOOH  090071 

zzprt 

00101 

1 * 

SUBROUTINE  mesh 

000000 

00  I 01 

2* 

00101 

3* 

00101 

H • 

, MESH. 

oooooo 

0010! 

5* 

0010! 

4* 

00103 

T 

INCLUDE  COH.LIST 

000000 

00103 

B* 

00103 

9* 

€••• 

OOOOOO 

00103 

9* 

COM* 

PROC 

OOOOOO 

OOIOH 

9* 

PARAMETER  I D“33  i JD ■ 85 

•KD-1500 

• ND*I2  • J JD*50 

OOOOOO 

00105 

9* 

PARAMETER  LO* 1 So  •NN0iM*25 

• HMD l H» 1 0 

OOOOOO 

00106 

?• 

parameter  na«r«io»id»jo*i i •id*5»jo*i 7»i jd*2«ico*7*nndim+mmdim 

OOOOOO 

00107 

?• 

parameter  NPAR-5* 

oooooo 

2*  00110 

9* 

COHMON/aRRAYS/U(  It),  JD) 

•V! ID. JD) 

• A M X i 1 p • JD ) 

• 

oooooo 

'g  oo no 

9* 

• FX ( 1 D , JD ) « F Y ( i D , JD ) 

tSII(ID.JD)  ,S|3(lo.JO) 

• 

OOOOOO 

001 10 

•S33 ( I 0 , JD ) .P(lu.JO) 

.F(  ID, JD) 

,XK(KD) 

9 

OOOOOO 

m 00110 

9^ 

•YK(KD)  iXIlDl 

iR(IO) 

• XPL ( 1 0 1 

• 

OOOOOO 

•*»  001  10 

9* 

•RPL(ID)  ,0X<|0) 

•DXP(ID) 

. Y ( JO ) 

• 

OOOOOO 

001  lo 

9* 

• TPL1JD)  , D Y < JO ) 

oDYP(JD) 

.TAUIId) 

9 

oooooo 

001 10 

9* 

•ALN(IJO)  .BCN(IJD) 

tXBU  JD) 

• YB(UD) 

9 

oooooo 

001 10 

9* 

•FL(IJD)  ,FR|JJD) 

• FTUJO) 

.ra(tJD) 

9 

oooooo 

00110 

9* 

•VFOB(IJD)  (TcT(lJD) 

•RHOVft ( ID 

) > T I 3B ( |DI 

» 

ooOooo 

001 10 

9* 

• T33BUD)  ,AFOb«|JD) 

•POBII JD) 

. XCT ( I JD) 

• 

oooooo 

001 10 

9* 

•ICRACK(JD)  ,JCKaCK(ID| 

,UOB< l JD) 

.VOBtIJDI 

9 

oooooo 

OOllO 

9* 

• 1MASUJD)  .JMASIIJD) 

•ttinnoih 

t «ZZ(NNo|H) 

9 

oooooo 

90110 

9* 

• FF(NNDIM)  , AA(nNOIH) 

.ffaainnd 

I H ) ,VV!NND|M» 

9 

oooooo 

OOllO 

9* 

•CD(NNDIM)  ,VVV(MMD|H| 

oooooo 

001 1 1 

9* 

common/parahs/  full 

• SUR 

.EMP  .SNO 

• Fax  I 

oooooo 

OOIII 

9* 

•OB  tOBFUL  ,DT 

• G 

.AS  .RHOZ 

'MMU  • 

oooooo 

0011 1 

9» 

• BETA  » AP  • BP 

•TLAST 

.TOUMP  .DTDUMP 

9 TCP  » 

OOOOOO 

OOIII 

9 • 

•DTCP  .TP  .DTP 

•ttotal 

, PM  | N .VSCALE 

9 EPS  , 

oooooo 

OOIII 

9 • 

• COMPEN  . SHEN  .SPEN 

tBQ 

,CK  .XPI 

9 XP2  9 

oooooo 

001 1 1 

9* 

•YPl  ,YP2  .UCRACK 

. IMAX 

,JMaX  ,|MAXM 

•JMAXM  | 

ooOooo 

OOIII 

9 • 

•UMAX  .KBAR  .KBARh 

• NDUMP 

,NCYC  . 1 CR 

9 J C R 9 

OOOOOO 

OOIII 

9* 

• UMAX  .ikmaxp  .small 

• REV 

,|S£P  • JSEP 

•XSEP  9 

ooOooo 

001 1 1 

9* 

•YSEP  .NNMAX  .MMMAX 

•ZZPRY 

.dclzz 

oooooo 

00112 

9* 

INTEGER  F .Ob  .FULL 

• SUR 

.EMP  .aND 

oFAK 

oooooo 

00112 

9* 

• .PART  .SHALL  ,REV 

oooooo 

001 13 

9 • 

DATA  FULL/1/SUR/H/EHP/7/BND/10/FAK/13/OB/1 4/PaRT/5/ 

OOOOOO 

00123 

9* 

DATA  RtV/l5/SMALL/!H/ 

oooooo 

00124 

9* 

DEFINE  INDEX! 1 .Jl.FLDIC, I8.F! I . J > 1 

OOOOOO 

00127 

9* 

DEFINE  NBIT(NB.MD|aFLD!36-NB 

• ! • RD ) 

oooooo 

A 
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MESH 


30130 

30130 

00130 

00131 

00132 

00133 
00133 
00133 
00133 
00133 
00133 
0013* 
001*2 
001*3 
001 5 I 
00151 

00 1 52 
0015* 

00156 

00157 
00157 
00160 
00166 
0017* 
00177 
00201 
0020* 
0020* 

00205 

00206 
00210 
00213 

002  1 5 
00220 
00220 
00221 
00222 
0022* 
00225 

00225 

00226 
00231 
90232 
00233 
0023* 

00236 

00237 
002*0 
002*1 
002*2 
002*3 
CC2*6 
CC2S7 
00250 


9« 


INCLUDt  OELCMN.LlbT 


9« 
?• 
?• 
9 • 
9# 
9 • 
9 • 
9 • 


END 

gelcmu  PPOC 

PARAMETER  ^LMAX-Sj 
PARAMETER  N6EL*S*wLMAX*  I 2«-|  * 

COMMON  /GEL!/  XoUlCQLMAX ) .YB^LTQLMAX)  •PBUl<CLMAX)  ,LMAX  ,T  , 

• l DUMP  I l PLOT , lEp I T , I STOP .NAME  1 1 2 1 >5MaSS , 1 KMaX 

• , SMOM ,UBUL 1 QLMAX ) • VBUL < QLMAX ) 

• .acc.gdt.svel.disp.vzero 


9« 
9« 
10* 
l I • 
12* 
13* 

1 *• 
15* 

1 6 • 

» 7* 
16* 
19# 
20* 
21* 
Zf 
23* 
2** 
25* 
26* 

27  • 

28  • 
29» 
30* 
3 1 • 
32  • 
3 3® 
3** 
35  • 
36* 
37® 
38  • 
39* 
*0* 
* 1 • 
*2* 

* 3* 
**• 
*5* 

* 6 • 

* 7 • 
*8* 

* 9 • 
50* 
SI* 
52# 


C 

END 

READ  10.IMAX.JMAX.1CR.JCR 

10  FORMAT  1 1*15) 

PRINT  | 1 ■ IMAX.JMAX. ICR.JCR  - lrD  . 

11  FORMAT (IN  . 5h I M aX« i 1 5/ 1 H . 5M JM A X- , 1 5/ 1 H .SHlCR  t*HJCR  •. 


C 


• 15) 

IF ( I M A X • L E • ID*AND«JMAX.lE#JD)GO  TO  99 
PRINT  1* 

1M  formatcim  ///#eiTher  IMax  or  jmax  exceeds  dimension 
9V  CONTINUE 

READ  COORDINATES  of  CELL  edges* 

READ  12.IXPLII ) .1*1  i l M A X ) 

READ  12.IYPLIJ) .J*l  .JMAX» 

DO  107  J-2.JMAX 

IFCYPLC  J>  •GT*YPl«  J-i  DGO  TO  107 
PRINT  15. J 

15  FORMAT  1 !H  ///•YPUJ-l)  IS  GREATER  THAN  OR  EQUAL  T0 

• • FOR  J«f  . 151 


LIMITS* 


rPUJ)*» 


i 


RETURNO 
107  CONTINUE 

DO  108  1*2. IMAX 

IF I XPLC 11 *GT .XPL « I -1 ) ) GO  TO  106 

PRINT  16.1  rtll  _ 

16  FORMAT  I 1 M ///'XPL(l-l)  15  GREATER  THAN  OR  EQUAL  T0 

• • FOR  I ■ • » I 5 1 
RETURNO 


XPL ( 1 > * . 


108  CONTINUE 

IMAXM» IMAX-1 
JHAXM-JMAX-1 

••••••••  generate  OTHER  cell  variables  required* 

DO  100  J"2.JMAX 

Yl Jl«l YPLC JI9YPLC j-l!l/2«0 

DT ( Jl-YPLI J)-YPL< J-l > 

DYPI J-l )-Y( J|-Y(J-1 ) 

100  CONTINUE 
Y( t )«-T <2) 

DY(t>"9Y<2> 

DYPI 1 )*2.0»Y 12) 

DYP ( JMAX ) «DYP ( JMAX- 1) 

12  F ORM AT ( 7 E I 0 • 3 ) 

DO  101  1*2. IMAX 

X|  t 1-IXPLl  t > ♦XPL  • l-m/2.0 

R ( I 1 *X  I l I 

RPLC 1 )*XPL( 1 ) 


300000 

000000 

000000 

oooooo 

090000 

oooooo 
oooooo 
oooooo 
ooOooo 
oooooo 
OOOOOO 
OOOOOO 
000007 
000007 
OOOO 1 7 
000017 
000017 
000035 
0000*2 
0000*2 
0000*2 
0000*2 
000067 
000103 
000|03 
000107 

ooon* 
00011* 
OOOli* 
000123 
000123 
000123 
000127 
00013* 
000 | 3* 
00013* 
000 1 HO 
0001*0 
0001*3 
000i*3 
0001*6 
000153 
0QO1S4 
000161 
00016* 
00016* 
000166 
000170 
000173 
000200 
000200 
000200 
000203 
00020* 
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MESH 


0C25I 

53  • 

0 X ( I J-xPLl  I J-XPL1 1-1 ) 

0025  2 

54« 

DXPl  1-1  l>M|  )-X<  1-1  » 

0025  j 

S5* 

TAU(  1 )»2.0»3.14|6*R( | ) »0XC | ) 

00254 

S6  • 

101  CONTINUE 

00256 

S7  • 

TAU<  1 )>TAU<2) 

00257 

58» 

0X1 1 I >0X ( 2 ) 

00260 

5?  • 

X( 1 ) »”X ( 2 ) 

00261 

6Q  • 

R1 l )•-«( 21 

00262 

6|* 

RPL<  1 )«OtO 

00263 

62  • 

DXP  ( 1 ) ■ 2 • 0*  X ( 2 ) 

00264 

63  • 

DXP< I HAX ) «OXP< IhAX-1 ) 

00264 

64  • 

00265 

6S* 

00  102  J"2  t JHAXH 

00270 

66* 

00  102  I-2.IMAXM 

00273 

6 7* 

CALL  ON ( EMP  »F  1 l ,J» 1 

00274 

68  • 

102  CONTINUE 

00277 

6** 

DO  103  J*2 • JM AXH 

00302 

70» 

CALL  ON1BNO.F1 1 , Jj 1 

00303 

7 I • 

CALL  ONlBNOfPl  IflAXiJ)  1 

00304 

72* 

103  CONTINUE 

00306 

7 3* 

00  104  I«2,!MAX?i 

003|| 

7 4 4 

CALL  ONIBND.Fl I ,1 | ) 

003|2 

7S« 

CALL  ON ( BNO  * F I I ,JMAX)  ) 

003  | 3 

74* 

104  CONTINUE 

003 1 S 

77* 

CALL  ON(FAK,Fll,l/> 

00316 

78* 

CALL  0N1FAK.F1 1 .JhAXJ I 

003|7 

7 9* 

CALL  ONIFAKiFI I MAX  > 1 ) ) 

00320 

80« 

CALL  ONIFAK.Fl IMAX.JMAX)) 

00321 

81* 

00  105  J-l * JMAX 

00324 

82* 

PRINT  I3iT1J) »YPL( JJ ,OY(J) .0TP1J) 

00332 

83* 

105  CONTINUE 

00334 

8 4* 

13  FORMATUH  ,IP8E|2.4> 

00335 

85® 

00  106  I • I tlMAX 

00340 

86* 

PRINT  1 3 . X < I ) ,R( I » ,XPL< I ) , RPl 1 1 1 .0X1 M ,0XP( I ) , T AU  I I ) 

0035 1 

8 7 • 

106  CONTINUE 

00353 

8 8 * 

RETURN 

00354 

89* 

END 

CN[>  OF 

COMPILATION;  NO  DIAGNOSTICS. 

0C02Q6 

000210 

000212 

000217 

000217 

000221 

000223 

000225 

000227 

000230 

000233 

000233 

000240 

000253 

000253 

000263 

000263 

000271 

000277 

000312 

000312 

000317 

000325 

000340 

000340 

000344 
000354 
000363 
000374 
OO04O4 
000417 
000417 
000417 
0o0*t  1 7 
000432 
000432 
000*67 


OHOS 


move 
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tfFOR.S  HOVE 

FOR  Sfc2C-09/l9/7S-0*:37:2l  (5t| 


MOVE 


SUBROUTINE  HOVE  ENTRY  POINT  UCQ7t>j 


STORAGE  USED:  CGl)E(l)  G00776*  DaTA(O)  jU3US6j  bLANK  COMMUN^)  OCOOOO 

COMMON  BLOCKS: 

OOOJ  ARRAYS  1 00 i S l 
OOOH  PARAMS  000073 
0005  GEL!  003H2H 


EXTERNAL  REFERENCES  (BLOCK,  NAME) 

0006  CELL 

0007  NERK3S 


STORAGE  ASSIGNMENT  (BLOCK,  TYPE,  RELATIVE  LOCATION,  NAME) 


0001 

000213 

IOGL 

90C1 

000315 

1 01  L 

OGJl 

000360 

102l 

0001 

000501 

IO*L 

0001 

000517 

10&L 

DC  3 1 

000515 

I07l 

0001 

000720 

1 10L 

0001 

0001  1 2 

1 1 IL 

□ 0D1 

030152 

1 1 2l 

0001 

000713 

1 2 1 L 

0001 

oooooi 

1 35G 

OGJl 

000737 

275S 

0003 

076731 

afob 

0003 

075605 

ALN 

0003 

C 1 2752 

*MX 

0000 

R 

000010 

A ! 

0000 

R 

00001  > 

A 2 

0000 

H 

0G0O12 

A 3 

0001 

OOOOH 

BETA 

0001 

I 

000003 

BND 

OGOH 

OOOOl* 

BP 

0001 

000036 

CK 

0001 

000032 

compen 

dour 

000072 

DEL  ZZ 

0001 

000023 

DT  CP 

DO01 

000021 

DTDUMp 

000  H 

000025 

OTP 

0003 

075272 

DY 

0003 

R 

075117 

DYP 

000** 

! 

0C3U02 

EMP 

0001 

I 

000001 

FAK 

001(3 

076313 

FB 

0003 

077/12 

FF 

0003 

076177 

FR 

0003 

0762t>l 

FT 

OGOH 

I 

030000 

full 

0001 

000010 

G 

0005 

000120 

GDT 

300H 

000013 

HMU 

0003 

077162 

ICRACK 

0005 

000230 

I DUMP 

0005 

000232 

1 CD  I T 

0001 

000060 

IKMAXP 

0003 

077511 

inas 

OOOH 

003011 

IHAX 

0000 

1 

000001 

IP 

0005 

000231 

IPLOT 

OOUH 

000063 

l SEP 

0001 

000056 

JCR 

0003 

077307 

JCRACK 

0003 

07/576 

jmas 

0000 

I 

000005 

JP 

0001 

000061 

JSEP 

0000 

1 

OOOOOl 

K 

0001 

1 

coooso 

KM  A X 

0000 

1 

000026 

K 1 

0005 

0C0226 

LM  AX 

0001 

000051 

ncyc 

0001 

000053 

nduhp 

OOOH 

000067 

NNM  A X 

0003 

0S36SO 

P 

0000 

I 

000000 

PART 

0005 

ooom 

PBUL 

0003 

R 

07*4553 

H 

0001 

I 

000062 

REV 

0003 

076571 

RHOVB 

0001 

000033 

SHEN 

0001 

I 

C0006  1 

SMALL 

0005 

000250 

SMASS 

0001 

I 

OOOOOl 

SUR 

0005 

000121 

SVEL 

0000 

R 

000006 

sx 

0003 

010676 

SI  j 

0003 

016263 

$33 

0005 

000227 

T 

0001 

000020 

TOUMP 

0001 

000017 

TLAST 

OOOH 

000021 

TP 

0003 

076632 

T 1 3 B 

0003 

076673 

T33B 

0003 

R 

oocooo 

U 

0000 

R 

000021 

UK 

0000 

R 

OOOOH 

ULL 

0000 

R 

030016 

ULR 

0000 

R 

000022 

OUR 

0003 

R 

005365 

V 

0005 

000335 

V6UL 

0000 

R 

C00015 

VLL 

0030 

R 

0000 1 7 

VIR 

00C3 

07/i32 

VOB 

0001 

000106 

I q3L 

0001 

000121 

IOHt 

0001 

000560 

109L 

0001 

000661 

10*L 

OQOl 

000207 

1 13L 

0001 

000171 

uu 

0003 

077773 

AA 

boos 

000117 

ACC 

OOOH 

000015 

AP 

Oooi 

OOOOJ 1 

AS 

0000 

R 

000013 

AH 

0003 

075667 

BEN 

OOOH 

000035 

BQ 

0003 

100106 

CO 

0005 

000122 

DI5P 

0001 

R 

0000Q7 

OT 

0003 

0717(6 

DX 

0003 

R 

071757 

DXP 

OOOH 

300031 

EPS 

0003 

I 

061235 

F 

0003 

100021 

FFAA 

0003 

07.6115 

FL 

0003 

020337 

FX 

0003 

02S721 

FY 

0000 

I 

000002 

1 

0001 

00005S 

ICR 

OOOH 

000057 

UMAX 

0005 

000251 

U*aX 

OOOH 

000016 

1 M A XM 

0030 

000031 

INJPS 

00  j5 

000233 

1ST0P 

0300 

I 

000003 

J 

OOOH 

000015 

JhAX 

0001 

000017 

JHAXH 

OOOH 

1 

000051 

KBAR 

000“ 

000052 

kbarh 

OOOH 

000070 

HMHAX 

0305 

000231 

name 

OOOH 

I 

ooooos 

OB 

0301 

00000* 

OBFUL 

OOOH 

000027 

PM  1 N 

0003 

077016 

POB 

OOOH 

000012 

R HO  2 

0003 

071655 

RPU 

0005 

000252 

SMOM 

0001 

000031 

SPEN 

0000 

R 

000307 

SY 

0003 

033311 

su 

0003 

075511 

TAU 

0001 

000022 

TCP 

0003 

077660 

TT 

0001 

000026 

ttotal 

ooos 

000253 

ubul 

0001 

R 

000013 

UCRaCK 

0003 

077350 

UOB 

0300 

R 

000020 

UUL 

00  C 3 

376125 

VFOB 

0300 

R 

000025 

VK 

00  JH 

000030 

VSCALE 

0033 

R 

000021 

VUL 
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HOVE 


0000  R 000023  vuR 

0003  025751  XB 

0004  000037  XPl 

0005  000062  Y0UL 

0004  000042  VP2 


0003 

100055 

vv 

0005 

OOOOOO 

X&UL 

0004 

000040 

XP2 

0003 

Q765Q7 

YCT 

0004 

o 

c 

o 

o 

O' 

YSEP 

0003  100137  WV 

0003  077100  XCT 

0004  00006%  XSEP 

0003  R 071556  YK 

0003  B77711  ZZ 


OOjS  000423  VZERO 
0003  R 066622  XK 
0003  R 075020  V 

0003  075145  VPL 

0004  000071  ZZPRT 


0003  R 

074512 

X 

0003 

0746J4 

xpl 

6003 

076033 

Yi 

0004 

QOO041 

YPl 

00101 

I* 

00101 

2* 

00101 

3* 

00101 

O 

00101 

S* 

00101 

4« 

00103 

?• 

00103 

• • 

00103 

f* 

00103 

00104 

f 

901  OS 

9* 

00104 

ft 

00107 

f 

001 10 

ft 

bouo 

?• 

00110 

f* 

00110 

00110 

f» 

bouo 

ft 

eoiio 

ft 

00110 

t* 

ootto 

f* 

bouo 

ft 

00110 

M 

00110 

ft 

001  to 

00110 

ft 

00111 

ft 

00111 

ft 

00111 

ft 

dot  1 1 

ft 

00111 

f* 

00111 

99 

00111 

99 

00111 

99 

0011! 

99 

00112 

99 

00112 

99 

00113 

99 

00123 

99 

00124 

99 

00127 

99 

00130 

99 

00130 

ft 

SUBROUTINE  hove  ...... 


••••••••••••••• 


;•••••••••••••••••••••••••••••••••••••••••••  #t 

this  routine  hoves  the  marker  particles.  

c 

«•••••••••••••••• ••••••••••*••••••♦••••♦• 


c**« 

c»»« 

COM* 


include  coh. list 

through  ALL  MARKER  particles. 

,N0»12 


>•••••  LOOP 
PROC 

PARAHETER 
PARAMETER 
PARAHETER 

PARAHETER  «•  ~ 

cohhon/aRRats/u< id. jd) 

•FXl ID.JD) 


. | JB*SO 


• S33(  ID. JD) 
•YKIKD) 

•RPL< ID) 

•YPLI JD) 

* aln < i jo) 

•FL( I JD) 

•VFDB1 I JD ) 
•T33BI ID) 

• I CRACK  I JD I 

• IHASI | JD ) 
•FFINNDIH) 
•CDINNDtH) 

COHMON/PARAMS/ 

•OB 


10*33  • JD*SS  . KD* 1900 

LD-150  .NN0IH-25  .HHDIH-10 

NARR*I0* ID«JD.l l •ID*5*JD*17» I JD*2*XD*7*NNDlHtHHD 

NPAR*5» 

•V(ID.JD) 

.Sill  ID. JO) 

.FIID.JO) 

.RIIDI 
,DXP( ID) 

•otpi jd) 

.XB(IJD) 

.FT 1 1 JD) 

.RHDVBI ID) 

.POB(tJD) 

•UOBI I JOI 
.TTINNDlH) 

.FFAAINNOIH) 


IH 


.FT  I I D . JD ) 
.PIlD.JD) 
«X| ID) 

,0X1  ID) 
.DYiJD) 
•BENI t JD) 

, FP I I JD I 
,YCT| I JD) 
•AFOBl I JD) 
•JCRaCKIID) 
. JHASI I JD) 
.AAlNNOIH) 
.VWIHHD1H) 

FULL 


.AMXIID.JPI 
,S13( Id.JD) 
.XkIKD) 

• XPH  fD) 
,VIJD> 
•TAUilD) 
.YBlUD) 

• FBI  I JD) 

• T 1 3B I ID) 

, XCT 1 1 JD I 
,VOB( IJDI 
.ZZINNdIH) 
.W(NNdIH) 


• BETA 

• DTCP 
•COHPEN 

• TP1 

• KHAX 
•1JHAX 

• YSEP 
INTEGER 

.PART 


.OBFUL 
.AP 
.TP 
.SHEN 
,TP2 
.KBAR 
. IKHAXP 
.NNHAX 
F .OB 

.SHALL 


.DT 

.BP 


• SUR 
.6 

■ TLASY 


,EHP 
• AS 

.TOUHP 


• bnd 

• RHOZ 
.OTDUHP 


• DTP 

•ttotal 

»PH  1 N 

• VSCALI 

• SPEN 

• 08 

• c* 

• XP1 

iUCRACK 

• l max 

• UMAX 

t 1HAXM 

• KBARM 

t NDUMP 

.NCYC 

t ICR 

•SMALL 

• REV 

• 1 SEP 

• jSZP 

.MMMAX 

•2ZPRT 

•DCLZZ 

• PULL 

• SUR 

• EMP 

• BND 

* REV 


DATA  rULL/l75UR/4/EHP/7/BND/IO/FAK/»3/OB/|6/PARTF5/ 
DATA  REV/IS/SHALL/14/ 

DEFINE  IND£XCI.J)*FLDIO,la»FI I . J) ) 

DEFINE  NBITINB»RD|«FLDI36«nB» I . W D ) 

INCLUDE  gelchn.ust 


fak 

HHU 

TCP 

EPS 

XP2 

jhaxh 

JCR 

XSEP 

• FA* 


END 


oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oodooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

Oooooo 

oooooo 

Oooooo 

oooooo 

OQOOOO 

oooooo 

oooooo 

oooooo 

OOOOOO 

OOOOOO 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

OOOOOO 

OOOOOO 

Oooooo 

oooooo 

oooooo 

oooooo 
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move 


30130 

?• 

Of LChN  PROC 

- 

000000 

00131 

9* 

PARAMETER  yLMAX*bj 

300000 

00132 

9® 

PARAMETER  NGEL«5*yLHAXM2MM 

000030 

00133 

9 • 

COMMON  Z^iEL  1 / XBULliLMAAl  .TBVJHOtMAXl  ,PBUtl«LMAX)  #l«AX#T  , 

000000 

00133 

9* 

, 1 DUMP  > 1 PLOT , lEut  7 , 1ST0P .NAME 1 1 2) .SmaSS,  IKMaX 

oooooo 

00133 

9 • 

• , SHOM.UBUL(QLMAa) »YBUl(OLRAX ) 

000000 

00133 

9* 

• .ACC.GOT.SVEL.UlSP.ViERO 

oooooo 

00133 

9* 

C 

oooooo 

00133 

9 • 

END 

ooOooo 

00131 

10* 

00  llo  K« 1 9 KM AX 

oooooo 

00131 

11* 

c 

•••••  GET  l.J  FOR  PARTICLE  K. 

oooooo 

00137 

12* 

CALL  CELL! 1 • J.K) 

00O001 

00137 

I 3 • 

c 

FIND  IP.JP  FOR  L0»Er  LEFT  CELL  CENTER  OF  THE  FOUR  CELL 

000001 

00137 

IM* 

c 

• ••••  CENTERS  SURROUNDING  PARTICLE  K . 

000001 

00110 

15* 

IP-1 

000016 

00  Ml 

!*• 

JP«J 

000020 

Q0IM2 

1 7 • 

IFIXKCO  • L T • X ( l ) ) iP»l-l 

000025 

001  MM 

18* 

IF  C YKIK1 .LT  . Y ( J ) ) JP»J-I 

000035 

00111 

19# 

c 

•••••  |F  l,j  IS  A FAR  CELL,  GiVE  IT  A VELOCITY. 

000035 

00116 

20* 

IFINBI  T IFAK.FU  ,J|  l.NE.  | »G0  TO  100 

000015 

00150 

2l* 

IF  C N0  I T (FULL  ,F  ( l ♦ J , J ))  • NE  . 1 . ANi;  * !«*  1 T ( Surt  • F ( I ♦ l • J > ) . NE  • I 1 CO 

TO 

Ill 

000055 

00152 

22* 

U( 1 » J ) *U ( !♦! »J)*R ( 1*1  ) / R ( 1 ) 

000101 

OOIS3 

23* 

VI I , U ) ■ V I 1*1. J» 

000)06 

00151 

2M* 

GO  TO  100 

000) 10 

OOISS 

25* 

1 1 1 

1F<NB1TIFULL,FI1-1,J)).NE. 1 . ANu«N0 I T IS JR ,F ( 1 - 1 . J > I . NE . 1 ) GO 

TO 

H2 

000)12 

00157 

24* 

U( 1 , JI»Ut  1-1 • Jl *R  C l-l  1/Rl  | | 

000)12 

00160 

27* 

VII ,dl"VI l-I .Jl 

000)1. 

00161 

28  • 

GO  TO  ICO 

000)50 

00162 

29* 

1 12 

IF1N0 1 T (FULL ,F( 1 , J- 1 » ) .NE. 1 . AND . N» I T 1 SUR  t F I 1 . J- 1 1 ) • NE . 1 ) 60 

TO 

I 13 

000)52 

00161 

30* 

U( | , J)*U< 1 , J-l 1 

00020) 

00165 

3 1 • 

VI | ,J)-V(  l ,J-I  1 

000203 

00166 

32* 

GO  TO  100 

000205 

00167 

33* 

1 13 

IF (N8I T (FULL.F  I I . J* 1)1 .NE. | . ANO.NBl T ISUR .Fl  1 . J*l » ) .NE.  1 )60 

TO 

100 

000207 

00171 

3M  • 

U« 1 , J)»ll( 1 . J*l  ) 

000236 

00172 

3S* 

VI 1 * U ) ■ V t 1 ,J*t  1 

000210 

00173 

38* 

100 

CONTINUE 

000213 

00173 

37  • 

c 

•••*•  CALCULATE  area  WEIGHTING  COEFFICIENTS. 

000213 

00171 

38* 

SX«I.S*(A(|P»n*X(IP))-xK(Kll/OXP(lP) 

000217 

00175 

39  • 

SY»I.S»|TljP*l  >*T  (JPH-yMKI  I/DTP  |JP> 

000255 

00176 

MO* 

A l • 1 .5*SX) •! «5-ST| 

000263 

00177 

Ml* 

A2«1.5-SXI»(.5-ST> 

000267 

00200 

M2* 

A3« I .S*S* 1 • 1 » 5*S  T | 

000275 

00201 

M3* 

A1*I.S-SXI»(.S*SV) 

000303 

00201 

MM* 

c 

•••••  CHOOSE  VELOCITY  FOR  LOWER  LEFT  CORNER. 

000303 

00202 

M5* 

IF (NB IT (EMP.FI  IP,  JP } » .Eg. l . OR. NB 1 T I FA K , F 1 1 P . JP 11 . EO . 1 1 60  TO 

101 

0003) ) 

00201 

M8* 

ULL«UC IP. JP1 

000337 

00205 

M 7* 

VLL-VI IP. UP) 

000311 

00206 

M 8 • 

GO  TO  102 

000313 

00207 

M 9 • 

101 

ULL-UI 1 , J)*R 1 I ) /R| IP) 

000315 

00210 

50* 

VLL-VII ,J) 

000355 

002 1 o 

51* 

C< 

•••••  CHOOSE  VELOCITY  FOR  LOWER  RIGHT  CORNER. 

000355 

002 1 | 

52* 

102 

IF (NUI T IEHP  .FI IP*I . JPI) .EO. 1 >G0  TO  103 

000360 

00213 

S3* 

IFINBI TIFAK  ,F( IP* 1 .UP)) .EW. | )60  TO  103 

000371 

00215 

5M  • 

ULR«UI |P*I • JP1 

000100 
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HOVE 


002|6 

00217 

00220 

00221 

00221 

00222 

00221 

00226 

00226 

00290 

00231 

00232 

00233 
00231 

00235 

00236 

00237 
00237 
00210 
00212 
00211 

00215 

00216 
00217 
00250 

00250 

00251 

00252 

00253 
00253 

00255 

00256 
00256 
00260 
00261 
00263 
00263 

00265 

00266 
00267 
00271 
00273 
00273 
00271 
00277 

00300 

00302 

00303 

00301 


55*  VLR-Vt IP-M  , JP1 

56*  60  TO  101 

57*  103  ULR"lMl.J»*Rtl)/R(tP*ll 

58»  VLR-V ( I i J ) 

59*  [••♦••••••  CHOOSE  VELOCITY  FOR  UPPER  LEFT  CORNER  • 

60*  101  1FINB1 TIEHP.FI IP, jP*l)> .EO.I IGO  To  105 

61*  IF INBIT I F AK  *F I IPijP*! 1 I . £8  , 1 160  TO  105 

82*  1F( Ndl T (BNO |F  < IP i JP*I) ) .EO.l . AND. 

63*  •NB1TIFAK ,FC IP*I , JP*l »> .EQ. 1160  TO  III 

6i»  uul-ui  ip  * jp*h 

65*  VUL-VI |P,JP*1  > 

66*  GO  TO  I0& 

67*  111  UUL-UI IPiJP) 

68*  VUL-V (IPiJP) 

69*  60  TO  106 

70*  105  UUL-UI  I i J»*RI  I 1/RUP) 

71-  VUL-VI 1 i J I 

72*  c. ••••••••  CHOOSE  VELOCITY  FOR  UPPER  RIGHT  CORNER* 

73*  106  IF (N3I TIEHPiFI I P ♦ » .JP*l I I .E8. I 160  TO  107 

71-  IFIIBITIFAK.FI I P*  l i JP ♦ I ) ) < EG • I 160  TO  I 07 

75-  UUR-UI 1P*1  , JP*I » 

76*  VUR-VI 1 P ♦ I , JP*I ) 

77-  60  TO  108 

78*  107  UUR-UI I , Jl-RI I >/R| IP*1) 

79*  VUR-VI 1 i J 1 

80*  C* CALCULATE  PARTICLE  VELOCITY. 

81*  108  UK-A1*UUL*A2*UUR*a3*ULL*A1*ULR 

82*  VK-A1*VUL*A2*VUR*a3*VLL*A1-VLR 

83*  IFIK.EQ. I 1 UK-0.0 

81*  c*********  HOVE  PARTICLE. 

85*  XK|K»-XKIK»*UK*DT 

86*  1FIVK.6T.O.OI YK I K ) ■ YK I K ) *Vk 9DT 

87*  FIND  NEW  I.J  FOR  PARTICLE  K. 

88*  CALL  CELLI  I . J t K ) 

89*  IFINBIT IOB.FI 1 I J) I .NE. I .AN0.NB1TIFAK.M I .Jl > *nE* 1 160  TO  109 

90*  109  IFINB1 TIEHP.FI I , J| 1 ,NE. 1 .AND.NBITIFAK.f I l , J)) .NE. | 160  TO  110 

91*  c SET  VELOCITY  if  PARTICLE  MOVED  INTO  EHP  CELL. 

92*  Utl.Jl-UK 

93*  VII.Jl-VK 

91*  HO  CONTINUE 

95*  IFIKBAR.£O.KHAX)Gj  TO  121 

96*  K | aKB AR* I 

97*  c* hove  crack  Particles  with  carck  velocity. 

98*  00  120  K-K I . KH AX 

99*  XKIK)»XKIK)*DT*UCRACK 

100*  120  CONTINUE 

101*  121  CONTINUE 

102*  RETURN 

103*  END 

END  OF  COMPILATION:  NO  DIAGNOSTICS. 


000102 

000101 

000106 

000116 

000116 

000121 

000132 

000111 

000111 

000166 

000170 

000172 

000171 

000500 

000502 

000501 

000511 

000511 

000517 

000530 

000537 

000511 

000513 

000515 

000S55 

000555 

000560 

000573 

000607 

000607 

000613 

000617 

000617 

000626 

000636 

000661 

000661 

000713 

000715 

000721 

000721 

000726 

000726 

000731 

000737 

000713 

000713 

000713 

OO0775 


fiHOG  OBCEL 
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srOR'S  OBCEL 

FOR  SE2C-09FI»/7S-0»:37:2*  * 0 . » 


OBCEL 


SUBROUTINE  OBCEL  ENTRY  POINT  OOC2H7 


STORAGE  USED:  CODEIII  000260(  DATAIOI  OOOOHH;  blank  COMMON ( 2 1 OOOOOO 
COMMON  BLOCKS; 

0003  ARRAYS  IOOISI 
OOOH  PARAHS  000073 
OOOS  GEE  l 0C0H2H 


external  references  IBlOCK,  NAME) 

0006  SORT 

0007  NERR3S 


STORAGE  ASSIGNMENT  (BLOCK,  TYPE,  RELATIVE  LOCATION,  NAME) 


0001 

000127 

1 10L 

0001 

000150 

ft  7 1 G 

0000 

R 

000012 

ALT 

OOOH 

00001 1 

AS 

0000 

R 

000006 

BEV 

OOOH 

000036 

CK 

OOOH 

000007 

OT 

0003 

07H7S7 

DXP 

0003 

1 

061235 

F 

0003 

076115 

F L 

0003 

02572H 

FY 

OOOH 

000055 

ICR 

OOOH 

000057 

UMAX 

OOOH 

1 

OOOOH6 

J h A X M 

0000 

I 

OOOOOl 

J 

OOOH 

1 

0G00H7 

JMAXM 

0005 

000226 

lmax 

OOOH 

000067 

nnmax 

0005 

000 1 HH 

PBUL 

0003 

076571 

RHOVB 

0005 

000250 

SMASS 

0003 

033311 

SI  1 

OOOH 

000022 

TCP 

OOOH 

000026 

ttotal 

OOOH 

C000H3 

UCRACK 

0000 

R 

00003** 

VEL 

0003 

100137 

vvv 

0003 

077100 

XCT 

OOOH 

000065 

XS  CP 

0003 

071556 

YK 

0301 

30C2C& 

1 ft  SL 

0003 

077773 

AA 

0000 

R 

000010 

ALTS 

0003 

R 

075667 

BEN 

OOOH 

I 

000003 

BND 

OOOH 

000032 

COMPEN 

OOOH 

000023 

dtcp 

0003 

075272 

OT 

OOOH 

1 

03000H 

FAK 

0003 

076177 

F R 

OOOH 

000010 

G 

0003 

077162 

ICRACK 

0005 

000251 

I KMAX 

0000 

030016 

INJP* 

OOOH 

030056 

JCR 

OOOH 

03006H 

JSEP 

OOOH 

000070 

MMMAX 

OOOH 

I 

000005 

OB 

OOOH 

000027 

PM  l N 

OOOH 

000012 

RHOZ 

0005 

000252 

SMOH 

0003 

0H0676 

SI3 

OOOH 

000020 

TOUMP 

0003 

076632 

TI3B 

0003 

077350 

UOB 

0003 

076H2S 

VFOB 

0005 

030H23 

VZERO 

0303 

066622 

XK 

0033 

C75020 

Y 

0003 

0 7 5 1 H 5 

ypl 

0031 

030227 

I20L 

0005 

OOOH 1 7 

ACC 

0000  R 

000006 

ALV 

0000  * 

000013 

BET 

OOOH 

000014 

BP 

0000  R 

000007 

0 

OOOH 

000021 

DTDUHP 

0003 

07SH17 

DTP 

0003 

3763H3 

FB 

0003 

076261 

FT 

0005 

000H2O 

GOT 

0005 

000233 

IDUMP 

OOOH 

000060 

ikmaxp 

OOOS 

000231 

I PLOT 

0003 

077307 

jcrack 

300H 

000051 

KB  AR 

0035 

00023H 

NAME 

OOOH 

000006 

OBFUL 

0003 

077016 

POB 

0003 

07M655 

RPL 

OOOH 

00003H 

spen 

0003 

0H6263 

S33 

OOOH 

000017 

TL  AST 

0003 

076673 

T 33B 

0030  ft 

0000 1 H 

UU 

0003 

077H32 

VOB 

0003 

07H512 

X 

0003 

07  H 6 1 H 

XPL 

0003 

076333 

YB 

OOOH 

CC03H 1 

ypi 

0001 

000025 

0003 

07673H 

0003 

012752 

OOOH 

OoOOM 

OOOH 

000035 

OOOH 

000072 

OOOH 

000025 

OOOH 

I 

000002 

0003 

0777R2 

OOOH 

I 

OOOOOO 

003H 

000013 

OOOS 

000232 

0003 

07751 H 

OCOH 

000063 

0003 

077576 

OOOH 

000052 

OOOH 

00005H 

0003 

053650 

0033 

07H553 

OOOH 

000033 

OOOH 

I 

OOOOOl 

0005 

000227 

OOOH 

00002H 

0003 

R 

OOOOOO 

0003 

R 

005365 

OOOH 

000030 

0003 

075751 

OOOH 

000037 

0005 

000062 

OOOH 

OOOOH2 

I36G 

0001 

AFOB 

0003 

AHX 

Oooh 

BETA 

0000 

DQ 

0003 

DELZZ 

0005 

OTP 

0003 

EMP 

OOOH 

FF 

0003 

full 

0003 

hmu 

0000 

IEOIT 

0000 

JMAS 

OOOH 

l SEP 

0005 

JHAS 

OOOH 

kbarh 

OOOH 

HCYC 

OOOH 

P 

0000 

R 

OOOH 

SHEN 

OOOH 

SUR 

0Q05 

T 

0003 

TP 

0003 

U 

0005 

V 

0005 

VSCALE 

0003 

Xft 

OOOS 

XPI 

OOOH 

VBUL 

C003 

TP2 

OOOH 

000033  MIG 
R 075405  ALN 
000015  AP 
H OOOdll  BETS 
100104  CO 
OOOH22  01SP 
07H7J6  OX 
000031  EPS 
10002*1  FPAA 
020337  fX 
| 000002  I 
| 000003  IJ 
OOOOHH  |HAX 
000233  1 ST  OP 
OOOOHS  JM  AX 
OOOOSO  KMAX 
000053  NDUHP 

I OOOOOO  part 

I 000062  REV 
| 000061  SHALL 
000421  SVEL 
075SHH  TAU 
027660  TT 
0002S3  U|UL 
000335  VBUL 
K 100055  VV 
OOOOOO  XBUL 
OOOOHQ  XP2 
076507  TCT 
0000(6  YSEp 
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0003  077711  ZL  00J4  003371  Z2PRT 


00101 

00101 
00101 
00103 
00103 
00 1 oi 

00105 

00106 
00107 
001  10 
00110 
001  10 
001  10 
001  10 
COI  10 
0G1  10 
001  10 
001  10 
00110 
00110 
001  10 
00110 
001  10 
0011  1 
00111 
0011  1 
001  I 1 
0011  1 
0011  1 
001  1 1 
001  I 1 
001  I 1 
001  12 
00112 
00113 
00123 
00126 
00127 
00130 
00130 

00130 

00131 

00132 

00133 
00133 
00133 
00133 
00133 
00133 


1 • 

2 • 
3« 
4® 
4» 
4« 
4« 
4* 

4 • 

4 • 
4« 
4« 
4« 
4# 

4 • 

4 • 
4« 
4# 

4 • 
4# 

4 • 
4« 
4 • 
4 • 
4« 
4 • 
4* 
4« 
4* 
4* 
4« 
4 • 
4 • 
4« 
4* 
4» 
4 • 
4 • 
4* 
4 • 
4« 
4# 
4# 
4* 
4 • 
4 • 
4 • 
4 • 


5UBR0UUNE  OBCEL 


»•••••••+••••< 


•••••••« 


COM* 


,ND»I2 


I 1 JO-53 


rA"Ant»t" 

COMMON/ARRAtS/U(lo*JDI 

• FX(IO,JD>  « F Y • 1 0 » JO ) 


include  com, list 

PROC 

PARAMETER  I D*3  3 »JD«B5  .ICD-1S00 

PARAMETER  lD-ISC  , NND  l M»2&  .MHD1M-10 

PARAMETER  NARR-IO# lOOD^l i #lD^S«JO^l 7*1 J0^2#K0^7»NNDIM^MMDIM 

parameter  NPAR-S9 

,V( ID, JO) 

• SI  I I ID, JDI 

• F ( ID,  JO) 

,R( X U I 

• 0 A P CIO) 

,D*P( JO? 

, X8 ( 1 Ju ) 

, F T ' l JO) 
i R ri  0 V 4 (ID) 

•PUB ( 1 JD ) 

• UOB 1 1 JO) 

•TTIMND1M) 

,FF AA1NN01H) 


• S3  3 ( 10, JD) 

• Y K ( K 0 ) 

• RPL  ( 10) 

• YPL  < JD ) 

• ALN ( 1 JU) 

• FL<  I JD) 

•VFOBC l JD) 

• T33B<  U) 

• ICRACM  JD) 

• 1 M A S ( I JD) 

• FF 1 NND I M ) 
•CD(NNOIM) 

common/params/ 


,PC lU, JD) 
,XUO) 

,OXl ID) 

,0Y ( jD ) 
,BEM(  I JD) 
,FR ( i JD  ) 

• V C T t 1 JD ) 

,AF  Otfl  1 JD  ) 
,JCRaCK( ID) 
, JMAS1 l JD ) 

, A A 1 NND 1 M ) 

, V V V l MMD 1 H ) 


, AMX | ID,  JD) 
, S 1 3 € ID.  JO) 

, XK ( KD  } 

, XPL 1 ID  ) 

,Y< JD) 

,tauc 10) 

,YB( I JD) 
,FB( 1 JD) 
,T13B< ID) 

, XC  T 1 1 JD) 

,voat I jD) 

,ZZ(NN0|M) 

,VV1NNDIM) 


• OB 

• BETA 

• DTCP 
•COMPEN 

• YP  1 

• kHax 

• UMAX 

• Y SEP 
integer 


•OBFUL 

• AP 

• TP 

• ShEN 
, Y P 2 

, K b A R 

, 1 kmaxp 

, N N M A X 

F fOp 


FULL 

• DT 

• BP 

• DTP 
.SPEN 
,UCRACK 
,K8A«M 
•SMALL 

,mmhax 

• FULL 


, 5UR 

• G 

.TLAST 

,TTOTAL 

• B J 

, imax 

t NUUnP 
, R E V 
, 2 2PR  T 
» 5UR 


, EMP 

• AS 

,tdump 

• PM  I N 
,CK 
,JMAX 
,NCYC 
, ISEP 
,0El77 
, EMP 


• bnd 

• RHOZ 

•dtoump 

•VSCALE 

• XPI 

, I M * X M 
t ICR 

• JSEP 

• 8ND 


FAX 

HMU 

TCP 

EPS 

XP2 

JMAXH 

JCR 

X SEP 

, F AK 


• .PART  •SMALL  .REV 

DATA  FULL/ I/5UR/4/EMP/7/BND/I0/FAX/ 13/UB/ | 6/P ART/5/ 

OATA  REV/ I5/SMALL/14/ 

DEFINE  INDEX!  1 , J ) «FLD < 0 , 1 d , F ( 1 ,J) ) 

DEFINE  NB  1 T CNB  • VI D |»FLD  ( 36-NB  , 1 *WD  ) 

INCLUDE  GELCMN.LlST 

END 

GELCMN  PROC 

parameter  QLMAX»Su 

PARAMETER  NGEL»5*ULMAX^i2*14 

COMMON  /GEL  I / XBULiQLMAX)  .YBULCQLMAX)  ,PBUL<QLMAX1  #LMAX,T, 

. 1DUMP, 1 PLOT, : EDIT, 1 STOP, NAMEU 2) ,SHaSS,1XMAX 

• , SHOM.UBUL(QLMAA) .VBUl(QLHaX) 

• .ifC. GOT. SVEL.uISP,V?ERO 


c 

END 


000010 

ooooto 

ooOoio 

000010 

OOOOIO 

OOOOIO 

ooOoio 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

ooOoio 

OOOOIO 

ooooto 

OOOOIO 

OOOOIO 

ooOoio 

ooooto 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOolO 

OOOOIO 

OOOOIO 

OQOolO 

OOOOIO 

0Q0010 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OQOQIO 

OOOOIO 

OOOOIO 

OOOOIO 

ooooto 

ooOoio 

ooooto 

ooooto 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 

OOOOIO 
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0013* 

S* 

00135 

•diagnostic* 

00135 

6* 

001*0 

y 

00 ) *3 

8 • 

001*5 

9* 

001*7 

13* 

00150 

II* 

00151 

12* 

00  I 52 

13* 

00153 

1 * • 

0015* 

15* 

00154 

16* 

00157 

17* 

00140 

IB* 

00161 

19* 

00142 

20* 

00143 

21* 

0014* 

22* 

30147 

23* 

00170 

2** 

CO  17  3 

2 5 • 

00)75 

26* 

00177 

27* 

00201 

•DIAGNOSTIC 

00201 

28* 

00202 

•diagnostic 

00202 

29* 

00203 

30* 

0020* 

3 1 • 

00205 

32* 

00206 

33* 

00207 

3** 

0021  1 

•DIAGNOSTIC 

302i  I 

35* 

00212 

•01 AGNOST 1C 

00212 

36* 

00213 

37  • 

0021* 

38* 

00216 

39* 

00217 

*0* 

HETURN 

CONTROL  CAN  NEVER  RCaCH  TrtE  NEXT  bTATLHENT 
DO  IIC  J*2 » JMAXM 
DO  l l 0 l *3  » I MAXH 


I F ( NB I T ( OB * F U • J * I • Nt  • I ) GO  Tu 
I F C NB  I T ( FULL  t F I I t J > > • N E • I ) G 0 
I J-INDEXC I • J > 

VEL*  SORT  ( U ( 

ALV-UU § J ) / VEL 
BE  V • V ( I , JI/VEL 
0«ALV*ALN(  I JI*BEV*BENC  I J) 
IF(D*LE*0*0)G0  TO  IIO 
alts»alv-d»alnu  J| 

BET5»BEV-D*B£N( | J) 

ALT-SIGNCBENU  J)  • ALTS) 

BET*SIGN(ALN(|J)ibETS» 


IIO 

TO  110 


U( I , J»«ALT«VEL 
V ( I • J) *BET • VEL 
| I j CONTINUE 
1-2 

00  120  J-2.JMAXI1 

I F ( Nft I T ( FUL L 9 F l I • J I I • N E • I ) o 0 TO  l 2C 
IFCNBlT ( OB  * F t I • J ) ) • NE  ■ I 160  TO  t 1 5 
IFCUC I • J 1 • GT • V ( l • J ) > GO  TO  I 20 
THE  VARIABLE  VV  IS  DIMENSIONED* 
wuc  i . ji**2*vc  i . ji 
THE  VARIABLE  W IS  D i MENS l ONE  D t 
UU«SQRT < VV/2#0) 

U| I • J)«UU 
VU|JI«UU 

GO  TO  120 
| IS  CONTINUE 

If(U( I • J) •GT*0«0*G0  TO  j2C 
The  VARIABLE  vv  IS  DIMENSIONED* 
VV*SQRMUl  I *J)**2*VII  • J ) **2 1 

The  Variable  vv  is  dimensioned* 

v I I » J I »S I GN ( V V I V l i • J ) I 

u I I • J 1 *0  *o 


120  CONTINUE 
RETURN 
END 


end  of  compilation: 


s diagnostics. 


UHDG 


OdPRT 


OOQQlO 


03001 0 
000033 
000034 
0000*3 

ooooso 

OOdOSH 
000044 
000071 
00007  * 
000100 
000102 
ooOio4 
000)12 
000)14 
000|22 
000)2* 
000)3* 
000)3* 
000)34 
000)50 
000)5* 
OO0)4) 

000)45 

000)73 

OO02O) 

000202 

000203 

000205 

000205 

000207 

000221 

000225 

000230 

000230 

000257 
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JF  OR  « 5 ObPRT 

FOR  SE2C-09/l?/75-09:37:2?  (U.» 


SUBROUTINE  OBPRT 


ENTRY  POINT  OCUMZo 


STORAGE  USEO:  COOE(I)  OOOIU;  D*TA(0|  000110;  blAHK  COMMON, 2)  OOOOCO 

common  blocks: 

0003  ARRAYS  I301S1 

0004  PARAMS  OC0073 

0005  GEUI  030424 


EXTERNAL  REFERENCES  (BLOCK,  NAME) 


0006 

RHO 

0007 

NPRTl 

0010 

N10IS 

001  1 

N l 02$ 

0012 

NERR3S 

STORAGE  ASSIGNMENT  (BLOCK,  TYPE*  RELATIVE  LOCATION,  NAME) 


0000 

0000 1* 

IF 

0031 

000203 

1 0 1 L 

0001 

000377 

!04l 

0001 

000066 

1 6 3g 

GOOD 

300023 

2F 

00*  1 

030216 

2 35g 

0000 

000012 

3F 

0090 

000050 

4 F 

0000 

0000*1 

5F 

0005 

0001 l 7 

ACC 

0033 

076734 

AFOB 

0003 

07S&05 

A L N 

0004 

00001 1 

AS 

0003 

075667 

BEN 

uCj4 

000014 

BETA 

1004 

30J03S 

BO 

0003 

IO0IG* 

CO 

0004 

93  Qu36 

CK 

0004 

000072 

DLLLl 

0095 

000422 

OISP 

0034 

OOOuOT 

OT 

0004 

00002& 

DTP 

02*3 

074716 

D X 

03  J 3 

374757 

OX  P 

0004 

1 

000002 

ErtP 

U0*4 

000031 

EPS 

0933 

1 

06123S 

F 

0003 

077712 

FF 

9033 

10002R 

FF  AA 

00  j3 

C7M  15 

FL 

0004 

1 

000000 

full 

0033 

R 

020337 

FA 

0023 

n 

r7S/24 

F Y 

0004 

000013 

hmu 

OOuC 

1 

09001 1 

I 

0CG4 

1C  J*j55 

l CR 

0005 

000232 

1 ED  I T 

O0J3 

1 

00001 3 

1 J 

0CJ4 

D00U*7 

1 J M A A 

0003 

027511 

1 MAS 

0004 

1 

000044 

1 M A X 

JCG4 

100046 

1 M A AM 

0004 

000063 

ISLP 

0035 

000233 

1 STOP 

coco 

l 

OOUulO 

J 

0003 

077576 

JM  AS 

0304 

1 

000045 

jma* 

0004 

090047 

JMAXM 

0004 

0000S2 

KB  ARM 

U004 

000050 

K M A X 

0005 

000226 

L M A X 

0005 

j 

000231 

name 

0004 

1 

000054 

NCYC 

0004 

C00053 

NOUmP 

0004 

I 

ooooos 

OB 

U004 

00000^ 

OBFUL 

0023 

R 

053oS0 

p 

0005 

oootn 

PBUL 

0000 

R 

900004 

PEMP 

DC  CO 

R 

OOOOOS 

PF  AK 

0003 

R 

027016 

POB 

u900 

R 

900002 

PSUR 

00  }3 

074553 

R 

0006 

R 

000000 

RhO 

0003 

076571 

RHO  VB 

0934 

030012 

RHOZ 

0004 

1 

000061 

SMALL 

00J5 

000250 

SMASS 

0005 

990252 

SHOM 

0005 

000121 

SVEL 

0003 

R 

033311 

SI  1 

0033 

R 

34q«»76 

S 1 3 

0003 

075511 

TAU 

CGJ4 

000G22 

TCP 

L G J 4 

30002C 

TDUHP 

0003 

077660 

TT 

0004 

CGC32* 

ttotal 

0CC3 

3 / 9 3 2 

T 1 3b 

0005 

000253 

UBUL 

0CC4 

0u0u43 

UCRACn 

uC-3 

C7 / J50 

UOfl 

0001 

000042 

145G 

0001 

000060 

140G 

000  1 

000235 

250G 

0001 

000250 

2S3G 

oooo 

000072 

6F 

0003 

077773 

AA 

0003 

012752 

AM  X 

0001 

0000)5 

AP 

0004 

1 000003 

BNO 

0001 

0000*6 

BP 

0004 

000032 

COMPEN 

0000 

R 

0000*2 

CTYpR 

0004 

000023 

DTCP 

0001 

000021 

OTOUMp 

0003 

075272 

DY 

0003 

07**17 

OYP 

00  j4 

I 000004 

F AK 

0003 

076313 

FB 

OOl  3 

076177 

r r 

0003 

076261 

FT 

0004 

C0901D 

G 

0005 

000120 

GOT 

0033 

077)62 

IC4ACK 

0005 

060230 

ioump 

0005 

000251 

UMAX 

0001 

000060 

1KHa*P 

0000 

oooioi 

1 N JP  $ 

0005 

000231 

I PLOT 

0934 

000056 

JCR 

0003 

077307 

JCRACK 

0004 

000064 

JSEP 

0001 

000051 

KBAR 

0004 

000070 

mmnax 

0000 

l 

000007 

N 

0000 

1 000006 

NLP 

0001 

000067 

NNMaX 

0000 

1 000000 

part 

0000 

R 

000003 

pbnd 

0000 

R 00000* 

PFULL 

6001 

000027 

PMIN 

0004 

1 000062 

REV 

0000 

R 

000011 

RH 

0003 

074655 

RPL 

6001 

000033 

shen 

0004 

000034 

SPEN 

0001 

1 

000001 

SUR 

0003 

R 046263 

S 33 

0005 

R 

000227 

T 

0004 

000017 

tlast 

0001 

000021 

TP 

0003 

076673 

T33B 

0003 

R 

000000 

U 

3003 

R QCS365 

V 

3305 

000335 

VBUL 
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0001  076*25  VFOB 

0005  000*23  VZERG 

0303  066622  XK 

0003  R 07SQ20  Y 

0003  0751H5  Y PL 

000*  000071  2ZPRT 


0003 

077*32 

VOB 

0003 

R 07*512 

X 

0Cu3 

07*61* 

XPL 

0003 

076033 

yb 

ODOR 

0000*1 

YP  1 

uCO* 

OOUC30 

VSCALE 

C003 

075/51 

XB 

000* 

0301)37 

XPt 

ocos 

000042 

YBUL 

000* 

000012 

YP2 

0003 

100055 

vv 

0005 

OOOOOO 

XBUL 

0001 

000010 

XP2 

0003 

074507 

YCT 

0001 

000044 

YSEP 

0003 

100137 

vvv 

0003 

077100 

XCT 

O00i 

00306S 

XSEP 

0003 

0? | SSo 

Y K 

0003 

077711 

ZZ 

00101 

00101 

OOlOl 

00103 

00103 

0010* 

00105 

00106 
00107 
001  10 
00110 
00110 
COHO 
001  10 
00110 
00110 
001 10 
001 10 
00110 
001  10 
001 10 
001  10 
001 10 
0011  1 
00111 
001  1 1 
0011  1 
ooin 
001  1 1 
001  1 1 
00111 
00111 
00112 
00H2 
00113 
00123 
CO  1 26 
00127 
00130 
00130 

00130 

00131 

00132 

00133 


f 

2# 

3* 

*• 

*• 

*• 

*• 

*• 

*• 

*• 

*• 

*• 

*• 

*• 

*• 

*• 

*• 

*• 

*• 

*• 

*• 

*• 

*• 

*• 

*• 

*• 

*• 

*• 

*• 

*• 

*• 

*• 

*• 

*• 

*• 

*• 

*• 

*• 

*♦ 

*• 

*• 
* • 

*• 

*• 





COM# 


t | J0*50 


include  com, list 

PROC 

PARAMETER  10*33  • JD*8$  ,KD«1$00  ,N0«12 

PARAMETER  LD*150  , NNO 1 N*25  ,MHDIM"10 

parameter  naRR-io#id#jd#i i#id*5*jom 7« i jd«>2*kd*7#nndim#mmd 
PARAMETER  npar-o? 


1M 


COMMON/ A«R A YS/U| lo.JD) 
•FX(ID.JD>  .FYllD.JOl 


.5331  10,  JD) 
•YKIKDI 
•RPL( ID) 

• YPL I JO ) 

• A L N ( I J 0 ) 

• FLU  JD) 

• VFOBi 1 JO) 

• T33B I 1 0 ) 

* 1CRACK I JD) 

• I MAS  J 1JD) 
•FF(NNOIM) 
•CD(NNDIH) 

COMHON/PARAMS/ 
.OBFUL 
.AP 
.TP 

,SHEN 
i Y P 2 
.KBAR 
.IKMAXP 


,PC ID. JD) 
,X{ Ijl 
«0X( |D) 

•DYI JD) 
,BCN< | JD) 
•FR( | JO) 

. YC  T ( | JD ) 

• AFOttl  | JD) 
»JCRaCK( ID) 
•JHASI IJD) 
.AAlHNDlh) 
,VW(MMDIM) 


.VI  ID. JO) 

,Sl l l|D  . JO) 
.FI  10. JO) 

.Rl ID) 

•DXPI |0> 
.OrP(JD) 

,XB( I JD) 

.FT!  IJD) 

. RHOVl ( ID) 

. POB I | JO  I 
,UOBI I JD) 
.TTINNOIM) 
.FFAAINNOIM) 


.AMXIIO.JOI 
. S | 3 I Jo.JDI 
.XkIKO) 

• XPL I I o I 
• Y I JD) 

•TAUI lo) 

, YB I l JD ) 

. FB 1 1 JD  > 

, T I 3B 1 1 D ) 

• XCT I I JD ) 
.VOBI I jOI 
.ZZINNOIM) 
.VVINNdIH) 


FULL  ,SUR  .EMP  »BNO 

.08  .OBFUL  ,DT  .6  .*S 

•oETA  .AP  .BP  .TLAST  .TOUMP  .OTDUHP 

•DTCP  .TP  .DTP  .TTOTAL  .PH|N  .VSCALE 

•COMPEN  .SmEN  .SPEN  .BO  .Cx  .XP1 

• YP  t . Y P 2 .UCRAC*  UMAX  ,JMaX  ,l«AXM 

• KHA  X ,XBAR  , KB ARM  .NOUHP  ,NCYC  .ICR 

• UMAX  , IKMAXP  .SMALL  .REV  UStP  »JSEP 

•rsEP  i nnhax  .mmmax  .zzprt  .delZI 

INTEGER  F »0B  .FULL  .SUR  .EMP  *BNO 

• .PART  .SMALL  ,REV 

OATA  FULL/I/SUR/1/EMP/7/BN0/10/FAK/13/UB/i4/PaRT/&/ 

DATA  REV/IS/SMALL/H/ 

DEFINE  INDEXII.J)«FLDIO,ie,FII.J)) 

DEFINE  NBIT(NB.UD)-FLDI34-NB.I.N0) 

include  selcmn.list 

END 

iELCMN  PROC 

PARAMETER  QLMAXbSo 

PARAMETER  NGEL-D»WLMAX*12*|M  . 

COMMON  / GEL  I / XQULlCLMAx) .YBULIOLMAX) ,PBUL‘8LMAX) .LMAX, 


fak 

hmu 

TCP 

EPS 

XP2 

JMAXM 

JCR 

XSEP 

.FAK 


000000 

000000 

OOOOOO 

000000 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

006000 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

606000 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

006000 

OOOOOO 

OOOOOO 

OOOOOO 

Oooooo 

006000 

006000 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 


I 


A 
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ObPrtT 


00133 

00133 

00133 

00133 

00133 

00134 
00134 

00142 

00143 
00153 
00 1 55 
00156 

00156 

00157 
00162 
00165 
00167 
00171 
00173 
00175 
00177 
00201 
00202 
00216 
00217 
00220 
00222 
00223 

00225 

00226 
00230 
00233 

00243 

0024S 

00245 

00245 

00246 

00247 
002S2 
00255 
00257 
0026  1 
00263 
00265 
00267 
0027  1 
00272 
00272 
00307 
00310 
0031  1 

00313 

00314 
003  I 6 


**• 

4« 
4« 
4- 
5* 
6 • 
7# 
0* 
9 • 
10* 
1 !• 
12* 
13* 
14* 
1 5* 
16* 

1 7 • 
10* 
19* 
23# 

2 1 • 
22  • 

2 3* 
2^^ 
2S9 
2 6* 
27* 
26* 
29# 
30* 

3 1 • 
32* 
33* 
34  • 
35* 
36* 
37  • 
30# 
39* 
40* 
41® 
42* 
43* 
44* 
45» 
46# 
47* 
40# 
49* 
50* 
5 1 • 
52* 
53# 


. I DUMP  , l PLOT  , lEu  l T • 1ST0P  f NAME!  12  1 ,S.-aSS  . !<H*X 

• , SMOrt ,ObUL 1 QLMAa ) i VQUl « OLMAX ) 

• .ACL  » GU  T tSVtL*DlSP  . V £E WO 
C 

END 

DATA  PFULL/6H  rULL/P5Uf|/^H  SUR/P0NQ/6M  BNO/ 

•PEMP/6H  EMP/PTAK/6H  F A*/ 

NLP  ■ l 

PRINT  1 , ( N A M E ( N ) » n ■ 1 *71  , T . N C Y C 
PRINT  2 

1 FORMAT!  1H0.7A6.4H  T ■ , 1 PE  1 2 • 4 , 4 H NC-.I*) 

2 FORMAT!  1 H . 5X , 1 H l , SX , l Hj • l l X . 1 HX , 1 1 X • 1 H Y i I I X • l HU , l I X . I H V i I I X • 1 HP t 

• 9X  .3HPO0 i7X.5HCTYpE.l7Xt IHFl 

00  101  J-l iJMAX 

DO  101  1-1.1MAX 

IF(NBIT!EMP.F( l ,Jj ) .EQ.llGO  TO  101 
IF (NB1T1 FULL .F { 1 » J ) ) • EQ  * I ) cT YPE-PFULL 
IF  C N B 1 T ( 5 U R . F { I ,J|  ) • £ 5 • | >CTYPE»PSUR 
IF (NDI T <QND.P! I , J)  1 .£0. 1 ) C T YPF ■PflND 
lF(NBlT!FAKiFCI,J<).E0.1)CTYPEapFAK 

1 F I NB I T (UB ,F ( 1 . J ) ) . NE  • l )G0  TO  101 
1 J « I N D E X ( I ,J) 

PRINT  3ll.J,A!I).y<JI.UU,J).VIl,J)lPU,J)  ,P08!  U)  .CTYPE.F  ! I . J) 

3 FORMAT  I 1 H , 2 1 6 , l P6£ I 2 • 4 , 6x , A6 , 6 X , 0 I 2 > 

NLP-NLP+1 

lF(NLPtL£«52)G0  To  101 

NLP-1 

PRINT  4 

4 FORMAT! 1 H 1 ) 

PRINT  2 

101  CONTINUE 

PRINT  1 , (NAME1N) .N-l  .7)  .T.NCYC 
PRINT  b 

b Format  ! in  .bx.iHi.sx.iHj.ux.iMx.i  ix.imy.9a.3h51  i , 

• 9X  .3hS1 3 .9x ,3H5 33, 10X ,2hFX , lax , 2HF Y . 7 a . bHC T Y PE . 

• 15X .3HRH0) 

NLP-  1 

DO  104  J-l.JHAX 
DO  104  1-1 , 1MAX 

1F(N01T(EMP,F(  l , Jj  ) .CO.t  )Go  TO  M>h 
IF  !N0!  T (FULL  .F  t I . J > ) • EQ • 1 \ c T Y PE -PIT  ULL 
I F ( N0 I T ( SUR . F ( I ,J)  1 .EQ. 1 1CTYPE-PSUR 
IF (NBIT (BND.F ( 1 , J|  ) .EQ. I )CT*PE«PBND 
1F(N01T(FAK|F! 1 , J I 1 • EQ • 1 KTYPE-PFAK 
IF (NBI T (OB.F ( 1 • J> | .NEt 1] GO  TO  104 
RH-RHO ( I . J) 

PRINT  6(l.J.Am»YlJ>.Sll(l,J).Sm!.J>.S33(!vJ>»FX<l.Jl. 

•F Y ( I . J) tCTYPE»RN 

6 FORMAT ! I H , 2 1 6 , l P7E 1 2 . 4 , 6 x , A6 , 6 X , 1 PE  1 2 • 4 ) 

NLP-NLP* 1 

1F(NLP*LE«52)G0  To  104 

NLP-1 

PRINT  4 

PRINT  b 


000000 
000000 
000000 
oooooo 
000000 
oodooo 
ooOooo 
oooooo 
000001 
000050 
000060 
000060 
000060 
0Q0060 
000066 
606071 
000076 
000105 
000114 
000123 
000132 
000137 
000(42 
Oo0|62 
000 | 62 
000(65 
000170 
000(72 
000 1 76 
000(76 
000210 
000210 
000224 
000230 
000230 
000230 
000230 
000235 
000250 
300250 
000257 
000270 
000301 
000312 
000323 
000332 
000337 
000337 
000356 
000356 
000361 
000364 
000366 
000372 


r>  m <m 
O O x 

r T T 

o o o 

O CO 

o o o 


UJ 

■> 

n 

o 


t 

a* 

rj 

O 


in 

o 

z 

< 

o 


o 

z 


UJ 

o 

z z 
— or 

t-  D 

z *-  a 

o uj  z •• 

v>  x us  z 

o 


X 

r 

o 

u 

• • • u. 

T ifl  -o  o 

in  in  in 

o 

z 

Ul 


o n r 

N N N ^ 

n n n o 

o o o 

o o o <* 
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yFOR,s  ob  v El 

FOR  SE2C-09/l9/75-0*:3/;32  <3*1 


OB  * EL 


SUBROUTINE  OOVEL  tNTRY  POINT  OOOlU 


STORAGE  U5EO;  cOOE(l)  OOOJ2H;  DaTA(O)  j0002S;  oLANK  COMMON^)  OOOOOO 

COMMON  BLOCKS : 

0003  ARRAYS  I001S1 
OOOH  PARAMS  00007 3 
0005  GEL  1 OOOHZH 


EXTERNAL  REFERENCES  (BLOCK*  NAME) 

0006  SORT 

0007  NERR3* 


STORAGE  ASSIGNMENT  (UL'^CX,  tYPl,  MEi.AllVE  LOCATION.  NAME) 


0001 

000077 

1 10L 

3003 

077773 

AA 

oO  j5 

003117 

ACC 

0000  R 

000010 

ALT 

9000 

R 

00030& 

ALTS 

0000 

* 

009303 

AlV 

0301 

00001  1 

AS 

0003 

R 

075667 

BEN 

0000 

R 

CCuOi  1 

BET 

0000  R 

00000*1 

BEV 

0001 

I 

000003 

BND 

0091 

OOOol 6 

BP 

0001 

000036 

CK 

00C.1 

000032 

COHPEfi 

0030 

A 

03C005 

0 

0301 

000007 

DT 

0001 

000023 

OT  CP 

0001 

00032 1 

DTDUtfP 

0003 

071757 

DXP 

0003 

075272 

OY 

0003 

075117 

OYP 

0003  1 

061235 

F 

0001 

I 

oooooi 

fak 

0033 

0 7 o 3 1 3 

FB 

0003 

0761 1 5 

FL 

0003 

076177 

FR 

00C3 

07*261 

FT 

0003 

02572*1 

FY 

0001 

000010 

G 

00  35 

033**20 

GOT 

0003 

077162 

1 CRACK 

0005 

000230 

icuhP 

GCOS 

030232 

1 ED  1 T 

ooos 

000251 

l KM  AX 

0001 

000060 

IKMAAP 

00-3  3 

077511 

I M AS 

0000 

000012 

INJPS 

3005 

000231 

IPLOT 

OC  3 1 

330063 

| SEP 

0003 

077307 

JCRACK 

0003 

C77576 

JMAS 

CC01 

030015 

JMAX 

000*1 

00005 1 

KBAR 

0001 

000052 

kbarm 

ocoi 

3o3c  3G 

kmax 

COOS 

000231 

name 

0001 

000051 

NCYC 

0001 

000953 

NDUmP 

0001 

000006 

obful 

0003 

053650 

P 

uooo 

1 

OCODOO 

PART 

0003 

077016 

POB 

3003 

07*1553 

R 

0001 

l 

000362 

RtV 

0003 

0 71655 

RPL 

0001 

000033 

smen 

0001 

I 

003061 

SMALL 

000*1 

00003** 

SPEN 

0001 

1 

oooooi 

SUR 

0005 

000121 

SVEL 

0003 

016263 

S3J 

0005 

000227 

T 

0003 

075511 

TAU 

0001 

000017 

TLAST 

U0J1 

000021 

TP 

0003 

377o60 

YT 

0003 

076673 

T 33B 

U003 

R 

OOOOOO 

U 

0035 

000253 

UBOL 

0003  R 

005365 

V 

0005 

000335 

VBUL 

0000 

R 

000302 

VEL 

000*1 

000030 

VSCAlE 

0003 

100055 

W 

0003 

100137 

v v V 

0003 

075751 

XB 

0005 

OOOOOO 

XBUL 

0003 

077(00 

XCT 

000*1 

000037 

xpl 

0001 

000010 

XP2 

0001 

000365 

XSEP 

OOOS 

000062 

YBUL 

0003 

076507 

YCT 

0033 

071556 

YK 

000*1 

000012 

Y P 2 

0001 

000066 

YSEP 

0003 

07  771  l 

Z2 

0303 

076731 

AFOB 

0003 

n 

0756*5 

ALN 

0033 

OI27S2 

AMX 

0001 

000015 

AP 

000*4 

0090H 

BETA 

0000 

R 

000007 

BETS 

000** 

000035 

BQ 

0003 

100106 

CO 

000*4 

000072 

0ELZ2 

0005 

0001*2 

D|SP 

OOqM 

000025 

OTP 

0003 

0717  16 

OX 

DOOM 

1 

000002 

EMP 

0001 

000031 

EPS 

0003 

077712 

ff 

0003 

|00021 

TFAA 

000*» 

1 

OOOOOO 

FULL 

0003 

020337 

FX 

OOOH 

000013 

hmu 

0001 

000055 

ICR 

0000 

l 

oooooi 

1 J 

Oooi 

0&00S7 

UMAX 

OOOH 

OOOOH 

IMAX 

0001 

000016 

IMAXM 

ooos 

000233 

1 5 TOP 

0001 

0000*6 

JCR 

OOOH 

000017 

JMAXh 

0301 

000061 

JSEP 

GO  JS 

000226 

LMAX 

Oooi 

000070 

mhMax 

OOOH 

000067 

nnhax 

0001 

i 

000005 

OB 

ooos 

ooom 

PBUL 

0001 

0000*7 

pm  I n 

0003 

07*571 

rhovb 

0001 

0000|2 

RhOZ 

OOuS 

000250 

SMASS 

0005 

000252 

SMOM 

0003 

033311 

511 

0003 

0*0676 

S|3 

OOOH 

000022 

TCP 

0001 

000020 

TOUMP 

OOOH 

000026 

ttotal 

0003 

0*6632 

TUB 

OOOH 

000013 

UCRACK 

0003 

077350 

UOB 

0003 

076125 

VFOB 

0003 

07713* 

V OB 

OOQS 

000123 

V2EP0 

0003 

0715(2 

X 

0003 

066622 

XK 

0003 

0716|1 

XPL 

0003 

075020 

r 

0003 

076033 

yb 

0003 

07S 1 iS 

TPL 

0001 

000011 

YPI 

OOOH 

000071 

ZZPRT 
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OoVEL 


00101 
00)01 
COIOI 
CO  1 03 
00103 
0010*) 
OOIOS 
0010* 
00107 
001  |0 
001  10 
001 10 
001 10 
001 10 
ootio 
001 10 
001 10 
001  10 
001  to 
001  to 
ooi  to 
001  |0 
ootio 

OOI  | I 
OOI  I I 
OOI  II 
OOI  I I 
OOI  I I 
0011  I 
0011  I 
0011  I 
OOI  | | 
00112 
00112 
00113 
00123 
03124 
00127 
00130 
00130 

00130 

00131 

00132 

00133 
00133 
00133 
00133 
00133 
00133 
0013*) 
00)34 
00  I MO 
OOlMI 


I • 

SUBROUTINE  OBVELI ) ,J,UB, rfB) 

000003 

2* 

3 • 
H • 

C • • • 

INCLUDE  COM , L I ST 

000003 

COM* 

PROC 

000003 

PARAMETER  10*33  ,JD«85 

. KO* 1500  t NO* I 2 .1 JO*SQ 

000003 

parameter  ld*iso  •nnqim*?s 

.MMOIM-IO 

000003 

H • 

PARAMETER  NARR»10»ID«JD»I t•lO♦S•JD♦17•lJD♦^•KD♦7•NNDIM♦HMD 

IM 

000003 

PARAMETER  npar-s* 

000003 

M • 

COMMON/ARRAYS/Ul Iq.JDI 

, V 1 1 D , JO ) ,AMXIIo,JO) 

000003 

R* 

• FX ( ID i JO ) i F Y I ID i JD  ) 

■SIlllDiJul  ,S|3(l0,JD) 

000003 

• S33  1 I D • JO  1 iPUlliJDI 

• mo, JO)  .XKlKDj 

000003 

**• 

• YKtKD)  . x ( I 0 3 

,R  1 ID)  .XPL(lD) 

000003 

M • 

• RPL  1 1 D ) i OX  1 i D ) 

.OXP(ID)  .yijdi 

000003 

•TPLIJD)  ,DY 1 JD ) 

.DYPIJD)  ,TaUO0) 

000003 

•ALNIIJO)  .BEN(IJO) 

• XBUJDI  .YBIUdI 

000003 

•FLUJOI  . FR  < | JO  ) 

•FTCIJD)  ,F8«IJ0I 

000003 

<♦• 

•VFOBIIJD)  »YCT(|JDI 

• RhOVB(ID)  , T | 3B ( i D I 

000003 

M • 

• T33BIID)  .AFOdUJD) 

.POBIIJD)  .XCT(IjD) 

000003 

H • 

•ICRACKtJDl  iJCRaCK(IO) 

• UOB 1 1 JO  I , VOB  C 1 JD ) 

000003 

H • 

• IMASUJD)  iJMAS(IJO) 

.TTINNOIM)  ,22  INN DIM) 

OO0OO3 

H • 

•FF(NNOIM)  9AA(NNDIM) 

.FFAAINNDIM)  ,VV)NND|M) 

OOOOOJ 

•CD(NNDIM)  »VVV(MMD1H) 

000003 

H • 

COMMON/PARA MS/  FULL 

, SUR  ,EHP  ,BND 

• Fa*  . 

0000Q3 

• OB  »OBFUL  * 0 T 

,G  ,AS  ,RH02 

• HMU  • 

000003 

M • 

•BETA  »AP  iBP 

.tlast  .toump  ,dtoump 

• TCP  • 

OOOOQ3 

H • 

• OTCP  • TP  i OTP 

, T TOT  AL  , PM | N ,VSCALE 

tEPS  , 

000003 

H • 

•COMPEN  .ShEN  iSPEN 

,BQ  , CK  ,XPI 

• XP2  • 

000003 

• TP  I » TP2  .UCRACK 

, 1 H AX  ,JHAX  , I HAXM 

•JMAXH  • 

000003 

• KM A X »*BAR  iKBARM 

, ndump  ,ncyc  ,icr 

• JCR  . 

000003 

H* 

• UMAX  . I K M A X P .SMALL 

, RE V ■ 1 SEP  . JSEP 

• XSEP  f 

000003 

•YSEP  .NNMAX  iMMMAX 

.22PHT  .DEL22 

000003 

integer  f .op  .FULL 

, SUR  ,EMP  , 6 ND 

• FA* 

000003 

• .PART  .SMALL  ,REV 

000003 

H • 

DATA  FULL/|/SUR/*)/EMP/7/6N0/)0/FAK/i 3/UB/ I67PART/&/ 

000003 

*♦  • 

DATA  REV/IS/SMALL/M/ 

000003 

«*• 

DEFINE  INDEX! I . J ) -FLu ( 0 , 1 fl  , F I l . Jll 

000003 

DEFINE  H81TINB.WDJ.FLDI34-NB 

. 1 .*D> 

000003 

««• 

INCLUDE  GELCMN • L 1 ST 

000003 

t NO 

000003 

<*• 

GtLCMN  PROC 

000003 

PARAMETER  OLMAXuSo 

000003 

<!• 

PARAMETER  NGEL«S»WLMAX*j2.  | <1 

000003 

COMMON  /GEL  1 / XOUulflLMAXl . YBUL (QLMAX)  ,PBUt IOLHAX  ) ,LMAX  ,T  , 

000003 

M • 

. i dump, i plot . i Edit, istop, namei 12) .smaSs.  ikmax 

000003 

M • 

• , SM0M,UBUL(QLI1AX)  ,V8UL10LHaX! 

000003 

M • 

• , acc, got  ,svel»disp,vzero 

000003 

M • 

c 

000003 

*♦• 

END 

000003 

5* 

IF (NBI T (OB.FII  . J)  1 .NE. 1 )Go  TO  IID 

000003 

6« 

IF ( NB I T ( FULL.F ( I . J ) ) .NE.  1 ) GO 

TO  1)0 

000012 

7« 

I J-INDEX ( I . JI 

000021 

8 • 

VEL«S8RTCU(I.J)*»2*V|I,j>..2> 

000023 

I 
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00112 

9 • 

A L V * U ( I , JI/VEL 

00113 

10* 

BE  V • V ( l , J)/VLL 

Oomh 

1 !• 

D»ALV*ALNllJ>^bCV.B£NUj) 

OOHS 

12* 

IFID.Lt  iO.OGO  TO  1 1 0 

001*17 

n* 

AL rS*ALV-D*ALN ( J J ) 

00150 

i 

bets-blv-d^deni I J) 

OOISI 

1 5 • 

ALT*SH»N(BENt  I J)  .ALTS) 

00152 

U* 

BET*SIGN(ALN( I J) ,BFTS) 

00153 

i 7 • 

UB*ALT*V£L 

00151 

1 8* 

VB*BET • V£L 

00155 

If* 

I 10  continue 

0015* 

20* 

RETURN 

00157 

21* 

END 

END  of 

compilation:  no  diagnostics. 

KHDG 


00003* 

OOOOH 

OOOOH 

0000S0 

0000(2 

OOOOS* 

0000*2 

OoOo** 

000072 

00007*1 

000077 

0O0O77 

000|2) 
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Of  F 

bfor.s  off 

FOR  SE2C-09/I9/7B-q9;37;3‘(  CO.) 

SUBROUTINE  off  ENTRY  POINT  OOOCtj 

STORAGE  USED;  CODEC  I)  000021;  DaTACO)  uOOQOS;  BLANK  C0MM0N(2)  OOOOQO 
COMMON  BLOCKS; 

0003  ONOFF  0001 10 


EXTERNAL  REFERENCES  CBLOCK,  NAME) 
OOOM  NERR35 


STORAGE  ASSIGNMENT  (BLOCK,  TYPE.  RELATIVE  LOCATION.  NAME) 

CCOO  OwOCGO  iNJr*  UlSJ  I COUQM**  10FF  CCJ3  OOOoQO  ION 


0010) 

1 • 

00101 

2* 

0010  I 

3* 

00101 

R • 

00103 

OOtOH 

4# 

ootos 

7 • 

00106 

8 • 

SUBROUTINE  OFFCN.M) 


<;••••• SUBROUTINE  off  TURNS  off  bit  n IN 


•••••••••••••••*  OFF 


C0MM0N/0N0FF/I0NC J6) . I OFF (36) 
H-aNDCM. IOFFCN) ) 

RETURN 

END 


000000 

000000 

oooqoo 

oooooo 

000000 

900000 

OoOpfl 

ooOoxo 


END  OF  COMPILATION; 


NO  DIAGNOSTICS, 


* 


BHDG 


ON 


I 
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0 •; 

VF  OR  ,5  ON 

FOR  SE2C-OV/l9/7b-o<r:37:36  ( • ) 

SUBROUTINE  ON  LNTRY  POINT  JOl'Ij 

storage:  used:  couEm  000021.  oaTatoj  uoooos;  mlank  commons)  cococo 
common  blocks: 

0003  ONOFF  0001 10 


EXTERNAL  REFERENCES  (BLOCK,  NAME) 
DOOM  NERR3S 


STORAGE  ASSIGNMENT  (©LOCK,  TtPc,  RELATIVE  LOCaTIC.,,  NAPE) 

0000  000000  InJP*  UJJ3  I OJOGMM  10FF  j0u3  I OOLOOC  ION 


00101 

1 • 

SUBROUTINE  0 N ( N , M | 

000000 

00101 

2 • 

v 1 1 D ilC  A it  a t T u 1 t ki  Mi  O 0 n 

► 000000 

00&000 

00101 

00101 

3 • 
M • 

c • • 

TU"N5  ON  BIT  M IN  mu  HU 

* 000000 

00103 

5* 

COMMON/ONOFF/IOrH  JA)  , |OfF (3A 1 

000000 

OOIOH 

A* 

DATA 

I UN / 01 

• 02 

• OM 

• 

000000 

00101 

7 • 

• 

010 

• 020 

, 0 M 0 

« 

Oooooo 

00101 

0* 

• 

0109 

• 0200 

, OMOO 

f 

000000 

00101 

f • 

• 

OtOOu 

•U2C0C 

t OMOOO 

« 

oooooo 

00101 

10* 

• 

□10300 

• 02  w 3 30 

, U M 0000 

t 

006000 

00101 

»!• 

• 

0103003 

»02LCC3C 

.OMOOOOO 

1 

OQOOOO 

00101 

12* 

• 

otoooooj 

, U2C JOCOO 

, JMOOOOOO 

• 

OOOOOO 

00101 

l 3 • 

• 

OluOOOJUO 

•0230003UC 

•OMOOOOOOO 

t 

oooooo 

00101 

1 M • 

• 

ol 3900003C 

•023000CGJ0 

.OMOOOOOOOO 

9 

oooooo 

00101 

IS* 

• 

01030000000 

» o2000000003 

,05300000000 

1 

oooooo 

00101 

u* 

• 

0 1 00000003C3 

,020000003000 

,050000000000 

• 

006000 

00101 

17* 

• 

0190000000000 

,0200000000000 

,0500000000000 

/ 

oooooo 

00106 

1 ® • 

data 

I0FF/077777777777A 

.0777777777775 

,0777777777773 

• 

oooooo 

00106 

If 

• 

07777777777A7 

,0777777777757 

,0777777777737 

t 

oooooo 

00106 

20* 

• 

0777777777677 

.0777777777577 

,0777777777377 

9 

oooooo 

00 1 06 

2 !• 

• 

0777777776777 

.077777777S777 

,0777777773777 

1 

oooooo 

00106 

22* 

• 

0777777767777 

,0777777757777 

,0777777737777 

9 

oooooo 

00106 

23* 

• 

0777777^77777 

,0777777577777 

,0777777377777 

• 

oooooo 

00106 

2M* 

• 

0777776777777 

•0777775777777 

,0777773777777 

9 

oooooo 

00106 

2S* 

• 

0777767777777 

,0777757777777 

^077773777777  7 

9 

oooooo 

00106 

26* 

• 

0777677777777 

,0777577777777 

,0777377777777 

9 

oooooo 

00106 

27* 

• 

0776777777777 

,0775777777777 

,0773777777777 

9 

OOOOOO 

00106 

28  • 

• 

0767777777777 

,0757777777777 

,0737777777777 

1 

OOOOOO 

o ooo 

O O O I* 

o o o o 
>000 
o o c c 
a o o o 


r* 

n 

o 


4* 


K 

K 


O lA 
O 


N 

<0  Z 

o 

z 

o 


iA 

o 

z 

< 

a 

o 


X z 
<—  ae 
K 3 

0 H*  Q 

1 Ui  z 

X « ul 


• • # • u. 

r O-N  O 

N flrtrt 


4 O-N 
O 


o 000 
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SFOR.S  PFIT 

FOR  SE2C-0’/ 1 9/7S-09 : 37  : 37  (0,1 


PFIT 


SUBROUTINE  PFIT  ENTRY  POINT  930|l2 

STORAGE  used:  COOEIl)  000I3/|  DaTA(O)  UOOOROI  *lANK  COMMON^)  300000 

EXTERNAL  REFERENCES  (BLOCK , NAHEI 
0003  NERR3* 

STORAGE  ASSIGNMENT  (BLOCK,  TYPE,  RELATIVE  LOCATION,  NAME) 

0001  000017  I02l  0031  000031  104G  JOOI  00003$  lllG  0000  I OOOOf/l  I 0000  00*0*3  INUP* 

0000  I 000000  N 


00000 

♦DIAGNOSTIC* 

the  nane  pt  appears  in  a dimension  or  type  statement 

00101 

1 • 

SUBKOUT INE  PF1 T ( R* Ak *F , NE ,RE  *Pt  *NL ,Rl ,PL) 

00103 

*• 

01  HENS  ION  RE120) t PC (201 ,RL (HOI *PL| HO) 

0*104 

)• 

0 1 HENS  ION  PT( 100* 

00105 

DO  100  N-I.NL 

001 10 

%• 

00  101  J »2 • NE 

00113 

4* 

IF(RE<  I)  *GT#RL  ( fj  9 1G0  TO  102 

0011$ 

?• 

101 

CONTINUE 

00117 

• ♦ 

1*NE 

0*120 

f • 

102 

PUN)*PE<  l-l  >*(RL(N) -RE<  1-|  1 !#<PE(  I ) -PE  (1*1)  > 

00120 

\Q* 

•/<«Et I l-RE< I-l 1 ) 

*0121 

11* 

too 

CONTINJE 

00123 

12» 

RETURN 

00124 

13* 

END 

ENO  OF  COMptLATI 

on:  i diagnostics. 

NEVER  REFERENCED. 


00003S 

•0003$ 

00003$ 

00*03$ 

0Q003S 

00003$ 

•0*0M 

•00011 

••*017 

•90017 

00*047 

000047 

000134 


0HDG 


PHASE l 
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BFOR.S  PHASE | 

FOR  SE2C-0»/lt/7S-0»:37:3?  JO.) 


PHASE! 


SUBROUTINE  PHASE!  ENTRY  POINT  00*Hl| 


STBRA^E  USED:  COOC(I)  000H2HJ  OATA(O)  MOISSj  BLANK  C0NH0N(2)  oooooo 

COMMON  BLOCKS | 

BBB3  ARRAYS  |**1SI 
0**H  PARAMS  OBB073 
BOBS  BEL!  ***H2H 


EXTERNAL  REFERENCES  (BLOCK.  NAME) 

000*  AVIS 
•007  ARHO 
OB  1 0 SMCELL 

0011  BNDCEL 

0012  NERR3S 


STORAGE 

ASSIGNMENT 

(BLOCK,  TYPE 

RELATIVE  LOCATION,  NAME! 

• •01 

• BO  1 52 

101L 

OBBI 

00015* 

102L 

• ••1 

lao3*o 

I 10U 

0** ! 

••0072 

1HC 

0003 

•77773 

AA 

BOO* 

•B«H 1 7 

ACC 

• ••3 

•7S4BS 

ALN 

0003 

R 

•12752 

AMX 

• 001 

BOBO i i 

AP 

0003 

075**7 

BEN 

BOOH 

0000 1 H 

BETA 

• •01 

! 

00B003 

BND 

0003 

1 00 1 •* 

CD 

• OBH 

000*3* 

CK 

00B1 

000032 

COMPEN 

OOOH 

r 

000007 

iT 

OOBH 

000023 

BTCP 

• •01 

00BO21 

DTDUMP 

0003 

07H7S7 

oxr 

0003 

R 

075272 

DY 

0003 

075HI7 

DYP 

0003 

l 

0*1235 

F 

OOOH 

1 

OOOOOH 

FAK 

0003 

07*JH3 

FB 

0003 

07*115 

FL 

0003 

07*177 

FR 

0003 

•7*2*1 

FT 

0003 

R 

02572H 

FY 

OOOH 

000010 

t 

OOOS 

O0OH2O 

GDT 

OOOH 

000055 

ICR 

0003 

0771*2 

ICRACk 

0005 

000230 

1 DUMP 

OOOH 

000057 

UMAX 

OOOS 

000251 

IKMAX 

0001 

0000*0 

pcmaxp 

OOOH 

1 

OOOOH* 

IMAXM 

0000 

000 1 30 

1NJP5 

OOOS 

000231 

1 PUO  T 

0000 

1 

000103 

J 

OOOH 

00005* 

JCH 

0033 

077307 

jcrack 

OOOH 

0000H7 

JMAXh 

OOOH 

0000*H 

JSEP 

0001 

000051 

kbar 

OOOS 

00022* 

LMAX 

OOOH 

000070 

MHMAX 

OOOS 

•0023H 

NAME 

OOOH 

•000*7 

NNMAX 

OOOH 

I 

000005 

OB 

0001 

00000* 

OBFUL 

0000 

R 

000!  IH 

f B 

0005 

000 1 HH 

PAUL 

0001 

000027 

PM  I N 

0000 

R 

0001  10 

PRI- 

0000 

R 

000121 

PRR 

0000 

R 

000120 

PRT 

0000 

R 

000105 

OR 

0000 

R 

000107 

MT 

0003 

R 

07H553 

R 

0000 

R 

0001  IS 

RH 

0003 

07*571 

RHOVB 

0001 

000012 

RHOZ 

0003 

R 

07  H *55 

KPL 

OOOH 

000033 

SH£N 

0001 

1 

0000*1 

small 

OOOH 

00003H 

5PEN 

OOOH 

1 

030001 

SUR 

OOOS 

OOOH  2 1 

svel 

0003 

0H6263 

S33 

0005 

000227 

T 

0003 

R 

07SSHH 

TAU 

OOOH 

000017 

TLAST 

COOO 

R 

000122 

ThP  l 

0000 

R 

000123 

TMP2 

OOOH 

00002H 

TP 

U003 

077**3 

IT 

0001 

00302* 

T TO  T A L 

0CO3 

R 

OOOOOO 

u 

0005 

CG02S3 

UBUL 

0001 

G300H3 

UCRACK 

0001 

ooooo* 

137G 

0001 

00003H 

11*€ 

0000 

R 

0001(2 

AF 

0003 

R 

07*>3H 

APOB 

0007 

R 

OOBBO* 

ARHO 

OOfH 

ooo*| i 

AS 

0001 

OOBBI* 

• P 

oo*h 

o6*o>» 

M 

0001 

00*072 

IILZ1 

oo*» 

0UU4 

0J5P 

• 001 

000*2* 

• TP 

00** 

R 

07H7U 

OX 

0001 

! 

0*0**2 

CMP 

OOIH 

0***3 1 

IH 

0003 

0777H2 

rr 

0003 

looian 

rr)u 

• 001 

1 

OOOOOO 

FULL 

0003 

R 

020337 

FX 

0001 

000013 

HMU 

Oooo 

1 

000 1 OH 

I 

OOOS 

000232 

1 ED  1 T 

oooo 

1 

oootu 

1 J 

0003 

0775  l H 

|MAS 

OOOH 

OOOOHH 

IMAX 

0001 

0000*3 

1 SEP 

0005 

000233 

1 STOP 

0003 

07757* 

JMAS 

OOOH 

oOoois 

JM  A X 

0001 

0000*2 

KBARM 

OOOH 

0000*0 

rhax 

• 001 

0*00*H 

NCTC 

flOOH 

o0o**3 

ndump 

0003 

R 

0*3*** 

P 

OOOO 

I 

00*100 

ta*t 

• 003 

R 

07701* 

POI 

OOOO 

R 

00**H2 

PRB 

0000 

R 

OOOOOl 

• B 

OOOO 

R 

0*01** 

• L 

oooo 

R 

000113 

• bar 

OOOH 

I 

00***2 

REV 

0000 

R 

0001  1* 

RHR 

oooo 

R 

000117 

rht 

OOoS 

000250 

SMASS 

6005 

O002*2 

sm&n 

0003 

033311 

SI  1 

0003 

0H0*7« 

913 

0001 

000022 

TCP 

OOQH 

000020 

toomp 

oooo 

R 

000I2H 

TMP  3 

OO0O 

R 

0O0 i 25 

tmpi 

0003 

07**32 

TUB 

0003 

07**73 

T 330 

0003 

077350 

UOB 

0003 

R 

0053*5 

V 

Pna$EI 


000b 

00033b 

VBUL 

C3  j3 

a7t>*2$ 

VFOB 

jOC3 

0003 

IOOI37 

V V V 

OOuS 

OtOt23 

VZERO 

uO  £ 3 

0303 

077100 

XCT 

0CG3 

0t>662  2 

AK 

0003 

0C0R 

000065 

XSEP 

C003 

0 7 S 0 2 0 

Y 

0033 

0003 

071556 

Y* 

03u3 

07b I Mb 

rPL 

OOj* 

0003 

0777  1 1 

22 

DOOM 

000071 

Z ZPRT 

07  7-432 

V OB 

DOJH 

000030 

VSCALE 

0303 

10305b 

VV 

07  h s 1 2 

A 

0003  K 

075751 

X0 

0005 

oooooo 

XBUL 

O7soi«4 

APL 

03G1* 

000037 

XPI 

030R 

0000*0 

Xp2 

076 j 33 

Yfa 

OOC5 

00C062 

Y0UL 

0003 

0*6507 

YCT 

OCOJH 1 

Y P 1 

oog* 

OOOQ  H 2 

Y P 2 

OOOM 

000066 

YSEP 

OOIOI 

00101 

OOIOI 

OOIOI 

OOIOI 

OOIOI 

OOIOI 

00103 

1 • 
2» 
3* 
*• 
5# 
6* 
7* 
»• 

c**# 

SUBROUTINE  PHASEl 

PHASE!  CALCULATES  ACCELERATIONS  and  VELOCITIES  DUE 

•••••*  PRESSURE  GRADIENTS, 

INCLUDE  COM, LIST 

TO 

oooooo 

oooooo 

oooooo 

oooooo 

00  103 
00103 

9 • 
9* 

c • • • 

COM* 

PROC 

oooooo 

OOIOI 

?• 

PARAMETER  10*33  *JD*a5 

• KO* 1 500 

iNpal2  #|JD*50 

oooooo 

0010S 

99 

parameter  ld*isd  ,nndim«2s 

•MMDIH* 10 

OOOOOO 

00106 

9* 

PARAMETER  NAkR*Iu« 1 D • JU ♦ 1 1 •10*5*J0*I7« 

UD^2«KD^7*NNDlMtMM0lM 

OOOOOO 

00107 

99 

PARAMETER  N P A R *59 

OOOOOO 

001 10 

?• 

common/aRravs/U( Id • jo) 

. V l ID, JD) 

,AMX< 1 D • JO ) 

• 

•00000 

00110 

9 • 

• F * ( ID. JD>  • F Y ( 10 t JO) 

• SIIIID.JDI  1 S I 3 | | D » JD 1 

• 

OOOOOO 

001 10 

9* 

• S 3 3 ( ID,  JO)  ,P( lu» JO) 

•F ( ID, JD) 

• XK(ICD) 

• 

OOOOOO 

001  10 

96 

• YMKD)  .XUd) 

•R ( ID) 

• XPL 1 ID) 

• 

OOOOOO 

001  10 

9* 

• RPL ( ID)  .OX<iO) 

• DXP! 10) 

|Y ( JD) 

1 

•00000 

00110 

9 • 

•YPL(JO)  »DYljD) 

iDTPIJD) 

,TAU( lul 

• 

oooooo 

001 10 

?• 

• ALN  < I JO)  »BEN( I JD) 

. XB( l JO) 

•YBl 1 Jd) 

1 

OQOOOO 

001  10 

?• 

• FL  ( 1 JD  > 1 F P < l JO ) 

•FT! 1 JD) 

»FB( 1 JD) 

• 

OOOOOO 

001  10 

9 9 

• VFOBC I JD)  • YcT ( 1 JD ) 

, RmOVB ! ID ) 

• T 1 3B  C 1 D f 

• 

OOOOOO 

001  10 

9» 

•T33B! 10)  #AFOb<  I JD) 

• POB ( 1 JD) 

•XCTI 1 JD) 

» 

OOOOOO 

001  10 

9* 

• ICRACMJD)  iJCWaCM  10) 

■ U08 ( I JD) 

•VOBC 1 jD) 

• 

OOOOOO 

001  10 

9« 

• IMASl  I JD)  1 Jf*  A b ! 1 JD  ) 

,T  T INNDIM) 

•ZZ(NNDIM) 

• 

OOOOOO 

001  10 

9 • 

• FF(NNDIM)  | A A ( i<  N U 1 H ) 

•FFAAINNDiH)  ‘ ,W!NN0IM) 

• 

OOOOOO 

00110 

9* 

•CDINUC1M)  »VVV|MnDlM) 

OOOOOO 

001  I 1 

9 • 

COMMON/PAR  AMS/  FULL 

,SOR 

,EHp  • BnD 

» F A K , 

oooooo 

001  1 1 

?• 

•09  ,o&ful  ,dt 

1 G 

•AS  .RHOZ 

1 MMU  , 

oooooo 

001  1 1 

9 • 

•bETA  ,AP  »bP 

,tlast 

•TOuMP  .dtdump 

• TCP 

oooooo 

001  1 1 

9 • 

•DTCP  iTP  • D T P 

.ttotal 

• PMJN  » VSCALE 

• EPS  , 

OOOOOO 

001  1 1 

9 • 

• COMPCN  * S HE N 1 SP£N 

• BU 

•CK  iXPl 

• X P 2 » 

OOOOOO 

001  1 1 

9 • 

• YPI  • Y P 2 iUCRACK 

, 1 M A X 

•JMaX  .imaxm 

tJHAXH  • 

OOOOOO 

001  1 1 

9 • 

• KM A X ,KBAR  ,KBARM 

, NOUHP 

•NCYC  tlCR 

• JCR  • 

OOOOOO 

001  1 1 

99 

•UMAX  ilKMAXP  iSMALL 

• REV 

•1SEP  .JbEP 

• XSEP  t 

OOOOOO 

0011  1 

9 • 

• Y SEP  .NNMAX  iMMMAX 

» 2 2 PR  T 

•OElZZ 

OOOOOO 

00112 

99 

INTEGER  F iOb  tFULL 

• SUR 

•emp  »BND 

• fak 

OOOOOO 

001  12 

99 

• .part  »smalL  .rev 

OOOOOO 

00113 

99 

OaTA  full/  1/SUR/H/EMP/7/BND/10/FAK/I  3/OB/|6/P*RT/5/ 

OOOOOO 

00123 

99 

Oat*  REV/I5/SMALL/IR/ 

oooooo 

C0I26 

99 

DEFINE  INDEX! 1 •JUFLDIO, 18. F«l,J)) 

00O000 

00127 

99 

DEFINE  NBITINB.LO ,*FL0136-NB 

. 1 1*01 

oooooo 

00130 

99 

include  gelcmn.list 

oooooo 
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PHASEI 


00130 

t* 

00130 

f • 

do  1 3 I 

t* 

001)2 

t* 

00133 

t* 

OOI  33 

t* 

•0133 

t* 

• ■133 

t* 

#•133 

!• 

• •13) 

!• 

«BI3* 

10® 

••13* 

1 1 • 

00135 

12* 

0013* 

13* 

001*1 

I M* 

001*2 

IS* 

001*3 

14* 

001*3 

17* 

001*5 

I •• 

001*5 

It* 

OOISO 

20* 

00151 

21* 

00152 

22* 

00152 

2 3* 

00153 

2H* 

0015* 

25* 

0015* 

24* 

001*0 

27* 

001*1 

2ft* 

001*3 

2t  • 

OOI** 

30* 

001*5 

31* 

OOI** 

32* 

001*7 

33* 

00170 

3H* 

00171 

3S* 

00172 

34* 

00173 

37* 

0017* 

3ft  • 

00175 

3t* 

0017* 

HO* 

00177 

HI* 

00200 

H2* 

00201 

H3* 

00202 

H M • 

00203 

HS* 

00203 

H 4 • 

0020* 

H 7 • 

00205 

H ft  • 

00207 

M9  • 

00210 

SO* 

00210 

Si* 

002|  1 

S2* 

0021  1 

S3* 

END 

GELCMN  PROC 

PARAMETER  QLMAX.Sq 
PARAMETER  NGEL"S»«LMAXA|2*I* 

COHMON  /GEL  I / XflUL ( QLM AX ) . YBUL ( OLMA X I ,PBUl < 8LMAX ) ,LM AX  • T , 
, I DUMP, I PLOT, I ED  IT, I STOP, NAME (I  2) .SmaSS.IKHAX 

• , SMOM.UBULtQLMAXl iVBUL(QLMAX) 

• ,ACC,«DT,SVEL.DlSP,VZERO 


END 


DIMENSION  QBUD1  »PRBC  10) 

INITIALIZE  FOR  BOTtOh  row. 


J»I 

DO  too  I-2.IHAXH 

PR8 ( l ) • »S» ( P < I »J>*PI I • J*  1 I I 

CALL  AV1SIGR.8BC  I ) . I .J) 


100  CONTINUE 

LOOP  ON  ROWS. 

DO  110  J*2 . JHAXH 

INITIALIZE  For  left  column. 

I-I 

CALL  AVISIOL.OT.I.J) 

PRL».5MPC| »J)*P< !♦! .J) I 
LOOP  ACROSS  ROW. 

DO  110  I *2 . 1 MAXM 

IFINBIT (EMP.FI I , J) I .EG. I . OR  »NB IT (FAK.FI  I «J> ) .EOt* ICO 

GET  ARTIFICIAL  VISCOSITY. 

CALL  AVlSiQR.GT, I , J) 

I F(NB | T (OB ,F( I , J» ) .NE. 1 )G0  tO  101 
I J* 1 NDEX ( I .J) 

AF»  AFOB I iJ) 

R8AR*XB(  I Jl 
PB-POBI IJ) 

GO  TO  102 

101  A F«  1 » 0 
KBAR-O.O 
P8»0  • 0 


TO 


I 10 


132  RH»ARHJI I .J) 

RHRoARHOI  1*1  >J) 

RHT"  ARrfO  ( I i J*N 

PRT» ( RH»P ( I , J*l )*KHT»P( | ,j> l/(RH*HHT ) 

PRR“(RH»P(I*I »J)*RHR.P(1 , J I ) / ( RH*RHR I 

T h p | ■ | f X ( I . J ) • R P L ( I I • P R R.-  F X I I”l »J)»RPL( I “ I ) • P R L ) / ( R ( I l#DX(  1 ) ) 
TMP2*-AF»P( I . J)/R(  I ) 

TMP3»-RBAR*(FX( |.J)-FX(|-|.U)|»PB/(R(N»OX(I)l 
THP*-AMAXI(FXII,J».FX(I-l,Jl > • ( GR»OL I /OX ( J I 

CALCULATE  RADIAL  VELOCITY.  TM„U> 

U( I . J>  *U<t • JI-OT*TAUU ) »0Y ( JI/AMX (I • J) *(TMP I *TMP2*TNP3*TNP* ) 

IF  (ABSIU(  I .JD.lT.I  .0)U(  I .Jt-0.0 

tmpi*iprt»fyci . ji-prbi i » »fy  n . J”i ) i /oy i j» 

TMP3»(FYCI.J)*ttT“FY(l  « J- 1 ) *GB ( I n/DY(  Jl 
..peAR*(FY(liJ)-rY(tiJ>l))*OT/<R(i)*DY(J)) 

TMP2*-RBAR»(FY(  I .JI-FYI  I ,J-|  M»Pb/(R(  I I »S)YI  J)  ) 

........  CALCULATE  AXiAL  VELOCITY. 


000000 

000000 

000000 

oooooo 

000000 

OOOQOO 

oooooo 
000010 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
00000 1 
QOOQI I 
000015 
000027 
000027 
000027 
OO0O27 
OOOQS* 
OqOOIO 
0000*2 
0000*2 
000072 
000075 
000075 
OQ0| 21 
000127 
000|9* 
000|*2 
•00|W* 
000) ** 
000)50 
000)52 
000|53 
000)5* 
000)5* 
000)*2 
000|72 
000 ) 77 
000207 
000220 
0002)3 
0002)7 
0002*7 
0002*7 
0002*1 
000273 
000300 
000307 
000307 
OO0)2* 
00032* 
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C0212 

v < i * j > * v « I » J > - o t • i Au  ( i )*Dr  i j»/amx(  i , j j • { t *M*rMP2,iMP3i 

000336 

00213 

55« 

uam  » «t 

030347 

002  1 H 

S6* 

PRB ( l ) *PKT 

000351 

002  | S 

57* 

PRL«PP»< 

000353 

00216 

S 8 • 

UL*^« 

000355 

002|7 

S 9 • 

1 10  CONTINUE 

000364 

00222 

60  • 

CALL  S*CELL 

000344 

00222 

M* 

000)44 

00223 

6 2* 

call  bndcel 

000366 

00224 

63« 

return 

000370 

00225 

END 

000423 

end  or 

COMPILATION;  NO  DIAGNOSTICS, 

UHOG  P H A S E 2 
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BFOR.S  PHA5E2 

FOR  SE2C-O9/t9/7S-09:J7:M2  <0.1 


PHASE2 


SUBROUTINE  PHA5E2  ENTRY  POINT  00050* 


STORAGE  USED:  CODE)  I ) 000521  1 DATAIO)  0000*9|  BLANK  C0MH0N<2)  000000 


CONHON  BLOCKS; 

0003  ARRAYS  100151 

0009  PARAHS  000073 

0005  GELI  000929 

EXTERNAL  REFERENCES  (BLOCK,  NAME) 


000*  RHO 
0007  SHCELL 
0010  OBCEL 
001  I SURCEL 

0012  ARHO 

0013  BNOCEL 
0019  NERR3S 


STORAGE 

ASSIGNMENT 

(BLOCK.  TYPE 

RELATIVE  locati 

ION,  NAME) 

0001 

000127 

102L 

0001 

00013* 

I03L 

0001 

000151 

IOHl 

0001 

000157 

1 1 11 

0001 

000007 

135G 

000  1 

000015 

1HSG 

0001 

000925 

25SG 

0003 

077773 

AA 

0095 

0009(7 

ACC 

0003 

R 

012752 

AMX 

0000 

R 

000031 

AMXN 

0009 

•0001B 

AP 

0003 

0756*7 

BEN 

0009 

000019 

beta 

0099 

1 

000003 

bnd 

0003 

10010* 

CD 

0009 

00003* 

ck 

0009 

000032 

COMPEN 

OOOH 

R 

000007 

DT 

0009 

000023 

DTCP 

0099 

000021 

DTDUMP 

0003 

079757 

DXP 

0003 

R 

075272 

DY 

0093 

075917 

dyp 

0003 

I 

0*1235 

r 

0009 

I 

000009 

FAK 

0003 

07*393 

F8 

0003 

07*1 15 

FL 

0003 

07*177 

FR 

0003 

07*2*1 

FT 

0003 

R 

025729 

FY 

0009 

R 

000010 

G 

9095 

000920 

GDT 

OOOH 

000055 

ICR 

0003 

077 | *2 

ICRACk 

0005 

000230 

iduhp 

0005 

000251 

1 kmax 

0009 

0000*0 

IKMAXP 

0003 

077519 

imas 

oooo 

000037 

INJPS 

0005 

000231 

1 PLOT 

0009 

0000*3 

1 SEP 

OOOH 

00005* 

JCR 

0003 

077307 

JCRACK 

0003 

07757* 

JM  AS 

OOOH 

0000*9 

JSEP 

0009 

000051 

KBaR 

0001 

000051 

KBARH 

OOOH 

000070 

MHMAX 

0005 

000239 

name 

0009 

000059 

NCYC 

OOOH 

I 

000005 

OB 

0009 

00000* 

OBFUL 

0003 

053*50 

P 

OOOH 

000027 

PMIN 

0003 

07701* 

POB 

0003 

R 

079553 

R 

0006 

R 

000000 

RHO 

0000 

R 

000003 

RHOUL 

0000 

A 

000015 

RHOUR 

OOOH 

R 

000012 

RHOZ 

0000 

R 

030C07 

RHR 

0000 

R 

OOOUIO 

RHT 

OOOH 

l 

0000*1 

SMALL 

0005 

000250 

SMASS 

0005 

000252 

SMOM 

0005 

000921 

SVEL 

0303 

033311 

SI  1 

0003 

090*7* 

SI3 

0003 

K 

075599 

TAU 

0009 

000C22 

TCP 

0009 

000020 

TDUMP 

ocoo 

R 

00002* 

TMP2 

C009 

000029 

TP 

9003 

077**0 

TT 

oooi 

0001*0 

I05U 

0001 

000373 

1 |0l 

0001 

00003* 

1 S3G 

00»| 

000922 

***€ 

000* 

07*739 

AFOB 

0003 

075*15 

ALN 

0012 

R 

000000 

ARHO 

0009 

n 

000511 

AS 

OOOH 

00001* 

BP 

0009 

000035 

it 

OOOH 

000072 

DELZZ 

0005 

000922 

D I iP 

OOOH 

000025 

DTP 

0003 

R 

079>l* 

DX 

OOOH 

1 

000002 

EMP 

0009 

o0OO3 ( 

EPS 

000  3 

077792 

FF 

0003 

100029 

FFAa 

OOOH 

1 

000000 

FULL 

0003 

R 

020337 

FX 

OOOH 

000013 

HMU 

oooo 

I 

000001 

1 

oo&s 

000232 

IED1T 

0009 

000057 

IJHAX 

OOOH 

000099 

1 HA  X 

0009 

1 

00009* 

IHAXH 

000b 

000233 

1 5 TOP 

OOOO 

1 

000002 

J 

OOOH 

000095 

JMAX 

00Q9 

1 

000097 

JNAXN 

OOOH 

000050 

UMAX 

0005 

00022* 

LHAX 

OOOH 

000053 

NOUMP 

ooii 

0000*7 

NNHAX 

oooo 

1 

000000 

PART 

0005 

000199 

PBUL 

OOOH 

I 

0000*2 

REV 

oooo 

R 

00000* 

RH 

0003 

R 

07*571 

RHOVB 

oooo 

R 

000020 

rhovt 

0003 

R 

079*55 

RPL 

0009 

000033 

SHCN 

OOOH 

000039 

SPEN 

0009 

1 

000001 

SUR 

0003 

09*2*3 

533 

0005 

000227 

T 

OOOH 

000017 

TLAST 

Oooo 

R 

000025 

thpi 

OOOH 

00002* 

ttotal 

oooo 

R 

000009 

TilL 

fV#  SE2 


oooc 

H 

0CCC2 1 

T l l » 

Ci  Jw  3 

k 

376632 

T 1 3h 

n 

* 

M3l 

303C 

ti  0090  22 

T | 3K 

oooo 

R 

000023 

T 1 3 T 

0003 

R 

07667 J 

T J3o 

wCuC 

’k 

OwC j2* 

T 3 3 T 

t»0 . 3 

s 

Djrco: 

i 

OCOS 

000253 

U&UL 

0001 

OOOOH  3 

UC*UCik 

oooo 

R 

009CI 3 

UbK 

j’jC 

k 

DcCCi ? 

or  t 

wOjO 

* 

OC-wJi? 

Ur 

30C3 

077350 

U08 

0000 

R 

00001 1 

UR 

0003 

R 

00S36S 

V 

O-Cb 

r c J j 3 b 

VoUu 

jc.o 

R 

COCull 

VJB 

0300 

rf  OOOJlA 

VDT 

0003 

076H25 

VF  08 

cooo 

R 

0GCC3C 

VN 

Ouo  c 

R 

UvCwiZ 

VN£> 

cG  J 3 

077132 

VO0 

OOui 

009030 

VSC ALE 

oooo 

R 

000012 

VT 

0003 

10DQ5S 

V V 

O'  v 3 

1 uO 1 3 7 

V vv 

uC  j5 

000123 

vZERQ 

0003 

07MSI2 

X 

0003 

075751 

XB 

ooos 

OOOUOQ 

A 3 UL 

00u3 

D77|ou 

ACT 

0003 

366622 

XK 

00C3 

07M4I4 

XPL 

0001 

000037 

XPI 

0001 

OOOOHO 

XP2 

GOO* 

OoOii 6 b 

XSEP 

0003 

0 7b020 

Y 

0003 

074033 

YB 

0005 

000042 

tBUL 

0003 

0765C7 

tCT 

0003 

C 7 1554 

YK 

JGJ3 

07b  1 15 

YPt 

0001 

OOOOH 1 

YP  1 

0001 

000042 

YP2 

0001 

000066 

ysep 

0003 

C 7 7 7 | 1 

ZZ 

uOG4 

000071 

ZZPRT 

00101 

1 • 

SUBROUTINE  PHASC2 

oooooo 

0010! 

2» 

DO  1 0 1 

An  i i 

J • 

. Li  i»  M a y f ki  T 

iim  v O i UCPODt 

nnonno 

UU  ■ U 1 

c • • • 

ALUuLAIL3  “ASS 

AND  nQM  t N T 

un  TnArOrUM  1 I 

urjuyy 

00  1 0 I 

s • 

00  1 0 I 
00103 

4 • 
7 • 

INCLUDE  C0M.L1ST 

oooooo 

JO  1 0 J 

o • 

flnonnn 

UUlUJ 

c • • • 

CL  5 i 

uuuuu u 

00103 

?• 

COM* 

P ROC 

ooogoo 

00101 

9* 

PARAMETER  1D« 

33  • JD*  65 

•KO-ltOft 

1 NO* 1 2 • l JD  *S0 

oooooo 

00105 

9* 

PARAMETER  LD» 

15c  i NND I h*  25 

•MHDlM-10 

OOOOOO 

00106 

9« 

PARAMETER  NAHR»1J»10»J0*1 |»| 

[ D**5®  JD*  1 7 • 1 JD^2»KD*7«NNDlHtMM0lM 

OOOOOO 

00107 

9 ♦ 

PARAMETER  NPAR»S9 

OOOOOO 

001  10 

9* 

COMMON/aRRAYS 

/U( 1U| JD) 

.VI 10, JD) 

• AHXI  ID.  JO) 

• 

ooOooo 

001  10 

?• 

• F XI  10,  JO) 

.FY< ID. JO) 

.511(10, JD)  ,S|3ll0,J0l 

• 

oooooo 

001  10 

?• 

•S3  3 C 10, JO) 

• P ( I U • JD  ) 

.F( IO.JD) 

.X K(KD) 

• 

OOOOOO 

001  |0 

• ymkdi 

|X« lu) 

•RC ID) 

* XPL 1 1 0 ) 

• 

OOOOOO 

001  10 

9* 

•RPLi ID) 

.DX  I ID) 

•OXP (ID) 

. Y( JD) 

• 

OOOOOO 

001  10 

?• 

•YPL 1 JD ) 

.DYC JD) 

•OYPC JD) 

,TaU(IO) 

• 

OOOOOO 

ooi  io 

f • 

•ALN< 1 JD) 

.BE*< I JD) 

• X B I 1 JD) 

» Y fj  ( 1 J<,) 

• 

OOOOOO 

001  10 

9* 

•FLI 1 JD) 

,KKI i JO) 

• FT  1 l JO) 

iFbUJD) 

• 

OOOOOO 

00110 

9« 

•VFOBi 1 JD) 

» YC  T ^ 1 JD) 

t R H 0 V 4 1 ID  I 

• T 1 3B ( iD) 

• 

OOOOOO 

001 10 

9« 

• T 3 3b  I ID) 

.AFOfl 1 I JD) 

,POB 1 1 JD  » 

t XC  T 1 1 JD) 

• 

OOOOOO 

ooi  io 

9« 

• ICRACKl JD) 

. jCRmCK l ID) 

•UOBI 1 JD) 

• VOb« 1 JO) 

• 

OOOOOO 

00110 

9* 

• 1 M A 5 ( l JD) 

. JMAS ( 1 JD) 

, TTINNDIM | 

•ZZINN^IM) 

• 

OOOOOO 

OOI  10 

9 • 

•f FINND1M) 

. AAlNNQlM) 

•FFAAINNDIh)  .VVCNN01M) 

• 

OOOOOO 

00110 

9 • 

•COINN DIM) 

,VW  IMMDIM) 

OOOOOO 

OOI  1 1 

9« 

C0HM0N/PARAM5/  PULL 

• SUR 

• EMP  i 8nD 

• FaK  1 

OOOOOO 

OOI  1 1 

9 • 

•OB  .OBFUL  ,0T 

• G 

i AS  .RMOZ 

» HHU  , 

Oooooo 

OOI  1 1 

9* 

•BETA  i AP 

• BP 

• TL  AST 

.TDUhP  .OTOUMP 

• TCP  i 

oooooo 

00111 

9* 

•DTcP  .TP 

• DTP 

.ttotal 

» PM  1 N . VSC ALE 

• EPS  9 

oooooo 

OOll  1 

9« 

•compen  » S H e n 

• SPEN 

• BG 

,CK  .XPI 

• XP2  , 

oooooo 

001  1 1 

9 • 

• YP 1 • YP2 

•UCRACK 

• 1 M A X 

,JHaX  i 1 M A XM 

•JHAXH  « 

OOOOOO 

OOI  1 I 

9 • 

• KMAX  , k b ar 

•KBARM 

• NDUMp 

.NCYC  • 1 CR 

• JC  R i 

OOOOOO 

00111 

9 • 

• UMAX  ilKMAXP  iSMaLL 

• REV 

. iSfcP  iJSEP 

» X SEP  . 

OOOOOO 

OOI  1 1 

?• 

• Y SEP  .NNMAX  iMMMAX 

iZZPKT 

•delzz 

oooooo 

001 12 

9 • 

INTEGER  F 

•OD  .FULL 

• SUR 

,£MP  ,0NO 

• FAX 

oooooo 

COM2 

9« 

• .PART 

•small  .Rev 

oooooo 

00113 

9 • 

Data  full  / i /sur/vcmp/7/bno/ ic/fak/i3/uB/16/paRT/&/ 

oooooo 

Page  212 


PH4SE2 


00123 

7® 

OAT*  REV/IS/SHALL/11/ 

000000 

00 1 2* 

»• 

DEFINE  INDEX! 1 ,JI-FlD(0,IB,F(|.J)| 

000000 

00 1 27 

7® 

DEFINE  NBIT(NB»WD)»FUD)34“NB»1 t ND ) 

000000 

00130 

7® 

INCLUOt  6EUCMN,UIST 

000000 

00130 

7® 

END 

000000 

00130 

7® 

gelcnn  proc 

•QOOOO 

60131 

7® 

parameter  QLMAX-So 

600000 

00132 

7® 

PARAMETER  NGEL-S*ULMaX*)2.)1 

000000 

00133 

ft 

common  /(eli/  xqUliolmaxi  .ybuliqlmaxi ,pbul<6Cmaxi ,umax,t, 

606000 

00133 

7® 

. IDUMP, 1PL0T,IEUIT, 1 STOP, NAME) 1 1) , SMaSS  , 1 **** 

000000 

00133 

7® 

• , SMOM,UBUU(QEMAX) iVBUL(ULMAX) 

606000 

00133 

7® 

• ,ACC,SDT,SVEL»DlSP,VzERO 

000000 

60133 

7® 

c 

000000 

00133 

7 • 

END 

006000 

60131 

to® 

DO  101  !-2|]MAXM 

606000 

00137 

11® 

T 33B ( 1 )-0«0 

•00007 

00110 

12® 

T 1 38  I I )-0.0 

000007 

oom 

13® 

RHOVB) 1 )>0.0 

000010 

00112 

M® 

101 

continue 

000015 

00112 

15® 

c®®*® 

•••••  LOOP  ON  ROWS 

000015 

00111 

14® 

DO  1 10  J-2. JMAXfl 

OOOoli 

00117 

17® 

RHOUL-O.O 

006027 

00150 

It® 

T I )L-0>0 

006020 

00151 

If® 

T13L-0.0 

000Q3I 

OOISI 

20® 

c • • • • 

•••♦•  LOOP  through  a ro*. 

60602 1 

001(2 

21® 

DO  110  1 ■ 2 * 1 M A X )) 

00»03* 

00155 

22® 

IF(NBIT(EHPtF(I,J)).EQt).oR.NBlT(PAKiF(liJ**.E4«l)GO  TO  110 

00602* 

001(5 

23® 

c®®®® 

•••••  SET  UP  DENSITIES  AND  VELOCITIES  NEEDED. 

00002* 

00157 

27® 

RH-RHOC I 1 J) 

0000*2 

00140 

2S® 

RHR-RHOl 1 ♦ 1 » J ) 

•006*7 

60141 

24® 

RHT-RHOI 1 • J®1 ) 

600077 

00142 

27® 

UR« ( U ( I f J ) ♦U ( 1 ♦ l tj) ) • ♦ 5 

OOOIOI 

00143 

28® 

VT" I V I 1 • J ) ®V ( I • J® l ) ) • *5 

606110 

00141 

27  • 

1 F ( UR • LT • 0 • 0 ) GO  To  102 

000|11 

00144 

30® 

UDR-U( 1 i J) 

6oO| 14 

00147 

31® 

vdr-vi 1 • J) 

000|20 

00170 

32® 

RHOUR«RH®UR 

000| 22 

00171 

33® 

GO  TO  103 

000|25 

00172 

3 H • 

102 

UDR  ®U ( 1® 1 » J) 

000)27 

00173 

35® 

VDR-VI ft ♦ 1 b J » 

OQO | 30 

00171 

34® 

rhour>khr*ur 

000)32 

00175 

37® 

103 

IF( VT,LT*0.0)G0  To  10H 

000)3* 

OOI  77 

38® 

VDT-VC I , J) 

000)10 

00200 

37® 

UOT-UI 1 , J) 

006)12 

0020 1 

HO® 

RhOVT-RH®VT 

006)11 

00202 

HI® 

GO  TO  105 

006)17 

00203 

H2  • 

10H 

VDT-V< I • J® 1 ) 

000)51 

00201 

H 3 • 

UDT-U( 1 , J®1 ) 

000)52 

00205 

HH® 

RHOVT  *RhT • VT 

000)51 

00204 

H5® 

I0& 

T 1 IR--RhOUR®UDR 

000)40 

00207 

H 6 • 

T I3R"-RH0UR®VDR 

000)42 

002)0 

H 7 • 

T 13T»-RH0VT®UDT 

000)45 

002)1 

H8® 

T33T--KH0VT®VDT 

000)70 

002)2 

H 7 • 

106 

TMPI-fRPLC 1 1 ®FX  f I , J 1 ®T 1 |R-RPl( I -I  1 ®FX  C I -1  * J) ®T1 IL )/(R ( I ) ®DX (I ) 1 

000)73 

* » 
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PHASE2 


00213 

SO* 

TMP2-1FY  < 1 , Jl«T|3T-FY( 1 . J- I ) »T l 3B ( 1 ) ) /UY < j » 

000206 

00213 

&!• 

C« 

»••••  RADIAL  MOMCNTUM 

000206 

002 1 "t 

52* 

UM» AM  X ( I » J ) • U ( 1 »J|+DT*TaU(  I )*DT(J)*(TMPI*TMP2| 

000214 

002 1 5 

S3* 

T«P|-(iiPlUMnil1JI*TljR-RPll|-ll»FllU-|.JIMI3L)/ll>IIM0*U)l 

000225 

00216 

5 M • 

TMP2*(FY< 1 »J)*T33t*FYC 1 . J - 1 1+T33B1! 1 1/DYIJ) 

000240 

00216 

55* 

C« 

AXIAL  MOMENTUM 

000240 

002 1 7 

S6  • 

VM" AHX ( 1 • J ) • V 1 I *J)*DT»TaU( | 1*07 (j)*<TrtPI*TMP2) 

000246 

00220 

57* 

107 

TMP 1 ■ ( R PL ( 1 ) #F  X ( ) i J ) • RHOUR -RPL ( I-l)*FXU"l»J) *RMOuL  )/<R  I I ) • D X 1 I | > 

000257 

00221 

56  • 

THP2-(FY«l.JI»RH0yr-FV(l,J-l »*«H0VB1 1 ) )/0Y< J) 

000272 

00222 

59* 

ahxn»ahx«i.j)-ot»tau< 1)«DY(JI*(THM»TmP2) 

000301 

00222 

60# 

C' 

»••••  UPDATE  CELL  MASS 

000301 

00223 

61  • 

1 F • A05 ( aMX ( I ,JI-AMXN>/AMX<  J , J 1 . LT . I . E -5 ) AmXN* A«X < | jj) 

000310 

0022S 

62* 

AMX ( I , J)»AMXN 

000321 

00225 

63* 

c« 

UPDATE  RADIAL  VELOCITY 

000321 

00226 

6N* 

U( 1 » J)-UH/AMX( I | J ) 

000323 

00227 

6S  • 

1 F C ABSIUI 1 . Jll .LT. I.01UI 1 . Jl-o.o 

000326 

00227 

66* 

c« 

UPDATE  AXIAL  VELOCITY 

000326 

00231 

67* 

V NE  # ■ V M / A M X ( I » J) 

000333 

00232 

68* 

IF  1 A8SI VI I , J)-VUEwl/VNE«.LT4 1 .E-5| VNE4-VI I , Jl 

000336 

00234 

69* 

V ( I * J)»VNE**U*DT*aS*DT 

000347 

00235 

70* 

108 

rmoul*khour 

000356 

00236 

71* 

T 1 1L-T1  JR 

000360 

00237 

72* 

TI3L-TI3R 

000362 

00240 

7 3* 

RH0 VB  < I 1-RH0VT 

000364 

00241 

7H* 

T 1 3B ( 1 ) ■ T I 3T 

000366 

00242 

75* 

T33B1 I )«T33T 

000370 

00243 

76* 

110 

CONTINUE 

006377 

00246 

77* 

call  smcell 

000377 

00247 

78* 

CALL  0BCEL 

000401 

00250 

79* 

CALL  SURCEL 

000402 

00251 

80# 

DO  111  J»2 > JM A X M 

000405 

002S4 

8|* 

00  111  1*2* I M A X M 

000425 

00257 

82* 

IF(NBIT(SUR*F( I ,J) 1 .NEt I )G0  TO  III 

000425 

00261 

83* 

IF(NBI  T (OB*F  (I  * J)  ) .E9.  I )<*0  TO  111 

000434 

00263 

8H  • 

IF ( ARHO ( I , J) .GT.RhO/ ) xMx ( I ,J)aRHOZ«TAU(I 1 *D Y ( J ) 

000443 

00265 

85* 

1 1 1 

CONTINUE 

000463 

00270 

86  • 

call  bnqcel 

000463 

00271 

87* 

RETURN 

000465 

00272 

88* 

ENO 

000520 

END  OF 

compilation:  no  diagnostics. 

BH0& 

PHASC3 
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PHASE! 

OFOR.S  PHASE! 

FOR  SE2C-09/l9/7S-09:!7:MA  (0,) 

SUBROUTINE  PHASE!  ENTRY  POINT  000R&* 


STORAGE  USED ; CODE(I)  OOOR7!j  DATACO)  000065:  blank  COMMON ( 2 ) oooooo 
COMMON  BLOCKS; 

000!  arrays  iooisi 

OOOH  PARAMS  00007! 

0005  GEL1  000M2M 


EXTERNAL  REFERENCES  (BLOCK,  NAME) 

0006  SMCELL 

0007  BNDCEL 
0010  NERR3S 


STORAGE  ASSIGNMENT  (BLOCK,  TYPE,  RELATIVE  LOCATION,  NAME) 


0001 

000136 

I 0 1 L 

OOJl 

0001*4*4 

I02L 

0001 

000176 

IO!L 

0001 

000233 

I0HL 

0001 

000301 

IO&L 

0001 

000*422 

i IOL 

0001 

0000*43 

l!6G 

0001 

000057 

1M&G 

0001 

oooioi 

1S!G 

0003 

077773 

AA 

ooos 

000*4 1 7 

ACC 

0000 

R 

000006 

A F 

0003 

R 

07673*4 

AFOB 

0003 

075605 

aln 

0003 

R 

0127,2 

AHA 

000*4 

000015 

AP 

000*4 

00001  1 

AS 

0003 

075667 

BEN 

000*4 

00001  ** 

BETA 

000*4 

1 

000003 

BND 

000*1 

000016 

BP 

000*4 

000035 

BQ 

0003 

100106 

CD 

0004 

000036 

CK 

000*4 

000032 

CQMpEN 

000*4 

000072 

DELZ  Z 

0005 

000*422 

DISP 

000*4 

n 

000007 

DT 

000*< 

000023 

DTCP 

000*4 

000021 

DTDUMP 

000*4 

000025 

DTP 

0003 

R 

07*4  7 1 6 

Dx 

0003 

07*4757 

DXP 

0003 

R 

075272 

DY 

0003 

075417 

DYP 

000*4 

I 

000002 

EMP 

000*4 

000031 

EPS 

0003 

1 

061235 

F 

000*4 

1 

00000*1 

fak 

0003 

076343 

fb 

0003 

07  7 7 *4  2 

FF 

0003 

10002*4 

FF  A A 

0003 

076115 

FL 

0003 

076177 

FR 

Ooos 

076361 

FT 

000*1 

l 

oooooo 

FULL 

0003 

R 

020337 

FX 

0033 

n 

02572*4 

FT 

000** 

000010 

G 

0005 

000420 

got 

000*4 

000013 

hmu 

osuo 

1 

000002 

1 

000*4 

I 

000055 

ICR 

0003 

1 

077162 

1 CRACK 

0005 

O0O23O 

IOUmP 

ooos 

000232 

1 ED  I T 

GSJO 

I 

CJOujS 

I J 

300*4 

000057 

UMAX 

0005 

000251 

UMAX 

000*4 

000060 

1 KHa  X 

0003 

07751*4 

IMAS 

00o*t 

0300*4*4 

imax 

000*4 

i 

0000*46 

IMAXM 

0030 

000030 

INJPS 

3005 

O0O23 1 

IPLO 

000*4 

000063 

1 SEP 

0005 

0^0233 

ISTOP 

occo 

I 

OOOOOl 

J 

000*4 

0000S6 

JCR 

0003 

1 

077307 

jcRa;  ' 

0003 

077576 

JMAS 

000*4 

0000*45 

JHAX 

002*4 

I 

0000*47 

JMAXM 

000*4 

00006*1 

JSEP 

000*4 

000051 

K 8 A * 

000*4 

000052 

KBARM 

U05*4 

C3005C 

kmax 

0005 

000226 

LMAx 

000*4 

000070 

nmmax 

0005 

00023*4 

NAME 

000*4 

00005*4 

NCYC 

000*4 

CC0053 

NDUMP 

000*4 

000067 

NNMaX 

000** 

1 

000005 

OB 

000*4 

000006 

OBFUt 

0003 

R 

053650 

P 

cooo 

1 

oooooo 

PART 

0005 

0001*4*4 

PBUL 

000** 

000027 

pm  I n 

0003 

077016 

POB 

0003 

R 

07*4553 

R 

0000 

R 

000007 

RBAR 

003*4 

I 

000062 

REV 

0003 

076571 

RHOVB 

000*4 

000012 

RH02 

0003 

R 

07*4655 

RPL 

000*4 

000033 

SHEN 

003*4 

I 

000061 

small 

0005 

000250 

SMASS 

0005 

000252 

SHOn 

000*4 

00003*4 

SPEN 

00u*t 

I 

ooooci 

SUR 

ooos 

000*42 1 

svel 

0003 

R 

033311 

SI  1 

0000 

R 

000010 

S 1 I OB 

0003 

R 

0*40676 

SU 

0000 

R 

00001  1 

51  10B 

0000 

* 

000021 

S22 

0003 

R 

0*46263 

S!! 

OO00 

R 

000012 

S!!OB 

OOOS 

000227 

T 

0003 

R 

0755*4*4 

TAU 

000*4 

000022 

TCP 

000*4 

000020 

TOUMP 

000*4 

000017 

tlast 

0000 

R 

000017 

TMPl 

0000 

R 

000020 

T Mp2 

0000 

R 

000022 

TMP! 

0000 

R 

000023 

THP  R 

000*4 

000024 

TP 

0003 

077660 

TT 

000*4 

000026 

TTOTal 

0000 

R 

000003 

T 1 1 L 

0000 

R 

000013 

T 1 1 R 

0003 

R 

0?6632 

T!!B 

0000 

R 

00000** 

T1!L 

osoc 

R 

00001*4 

T HR 

0000 

R 

000016 

TUT 

0003 

R 

076673 

T!!B 

0000 

R 

000015 

T!!T 

0003 

K 

OOOOOO 

U 

OOuS 

000253 

UBUL 

003*4 

0000*43 

UCRACK 

0003 

O773S0 

UOB 

0003 

R 

005365 

V 

0005 

000335 

VoUL 

CC03 

076*425 

VF  OB 

0033 

077*432 

VOB 

000** 

000030 

VSCALE 

0003 

1000,5 

vv 

0003 

ICO i 37 

V V V 

0Cu5 

000*423 

V2ER0 

0C33 

07*4  612 

X 

0033 

R 

0757s 1 

XB 

0005 

OOOOOO 

XBUL 
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Phases 


0003 

077100 

xCT 

0003 

066622 

XX 

J003 

07  s * 1 ** 

X PL 

oocs 

000037 

XP1 

OOOS 

ooooto 

0004 

00006S 

XSEP 

0003 

075020 

Y 

OCC  3 

076033 

YB 

ooos 

000062 

ybul 

0003 

076507 

0003 

07 1556 

yk 

0003 

075145 

YPL 

0C34 

OOOOSl 

ypi 

0001 

0030  s 2 

YP2 

ooos 

000066 

0003 

0777  1 1 

ZZ 

COOS 

000u7 1 

ZZPRT 

00101 

1 * 

subroutine  phase 3 

000000 

UU  1 U 1 
Afllnl 

i * 

UU  1 U ! 
nn  im 

J f 

i ro i ▼ i Rue 

, r > n nrui ifni  ctsc 

rccrc. 

AnOnnn 

UU  1 U 1 
nn  i n i 

c • 

C • • • 

ktR ATI ONS 

DUE  Tu  Dt * 1 ATUn  ain* 

•33t3t 

y i/Wwwm 

UU  1 U 1 
nn  i n i 

UU  1 U I 

00 1 03 

o • 
7® 

INCLUDE  COM, LIST 

OQOOOO 

UU  103 

• • 

ftrtTTAU  m A)tf 

nnonno 

UU  1 U J 

T * 

C • • • 

BOTTOM  RO* 

• 

VUvguv 

00 1 03 

f • 

COM# 

PROC 

000000 

00104 

f • 

parameter  io»33  ,jd«bs 

•KO-liOO 

• NO* 1 Z • I JO  *50 

oooooo 

00 1 05 

?• 

PARAMETER  LD-ISo  »NN0lM*2S 

*MM0IM«10 

000000 

00106 

9* 

parameter  naRR«io»id»jo*i i« 

1 JD^ 1 7 

•I JD*2*K0*7*nNDIN#MNDIM 

oooooo 

00107 

9* 

PARAMETER  NPAR«5* 

OOOOOO 

001  10 

9» 

COMHUN/aRRAYS/U( lo.JD) 

iV(ID.JD) 

.AHXIId.JO) 

t 

OOOOOO 

00110 

9^ 

• F X ( ID,  JO  1 , F Y 1 1 0 , JO  I 

.SIIIIO.JO)  I s I 3 1 I L) , JO  ) 

• 

OOOOOO 

001 10 

?• 

•S33(ID,J0>  .PIIu.JD) 

• F 1 10, JO) 

.xkiko) 

• 

•ooooo 

001 10 

9 • 

• YKIKO)  , X ( 1 0 1 

•R< ID) 

.XPLtlOl 

t 

900000 

001 10 

9* 

• RPL(IO)  , DX I ID ) 

•DXPtIO) 

,TI JOI 

• 

•00000 

001 10 

9 • 

•YPL(JD)  ,0Y(J0) 

tOYP( JO) 

•Tauiidi 

I 

•ooooo 

001 10 

9 • 

• ALN(IJO)  , BEN ( I JD ) 

tXB(IJO) 

,Yi(IJOI 

• 

•ooooo 

001 10 

9 • 

• FLIIJD)  . FR  t 1 30 1 

• PT  C 1 JO  I 

.PBIIJOI 

• 

900000 

00110 

!• 

•VFOBIIJD)  ,YCT«|J0) 

tRHOVBI KO 

) , T | 38 1 I 0 ) 

1 

oooooo 

001  10 

9* 

•T33BIID)  ,AFOg(|JO) 

•POB(IJO) 

.XCTlljO* 

• 

•ooooo 

ooi  io 

9 • 

•ICRACKIJD)  .JCRaCMIO) 

• UOB( 1 JO) 

, VOB  ( UD I 

• 

006000 

00110 

9« 

• l MAS  1 1 JO ) , JM AS  I I JO ) 

.TT1NN01H 

) , ZZ ! NNq 1 M ) 

» 

oooooo 

001  to 

9# 

• FFINNOIH*  , AA I NND I M ) 

• FF  A A ( NND 

IM)  ,VV(NNciIM) 

t 

oooooo 

00110 

9* 

• COINNOIH)  , V V V | MMO I M ) 

oooooo 

00111 

9 • 

COHMON/PAHAHS/  FULL 

• SUR 

,EHp  ,BNO 

• FAX  • 

oooooo 

001 1 1 

9 • 

• OB  , 06FUL  ,DT 

tG 

.AS  ,RHOZ 

• HMU  , 

oooooo 

001 11 

9 • 

•BETA  ,AP  ,8P 

» TLA  ST 

.TOUHP  .DTOUHP 

• TCP  • 

oooooo 

00111 

ft 

• OTCP  , TP  , OTP 

•ttotal 

, PM  I N .VSCALC 

• EPS  t 

00O000 

001 11 

9* 

•C0MPEN  ,shen  »spen 

»bq 

,CK  ,XP| 

• XP2  , 

oooooo 

001  1 1 

9* 

• YP|  , YP2  .UCRACK 

• IMAX 

UMAX  , |HAXH 

•JMAXH  • 

oooooo 

Ooi  ii 

ft 

•KHaX  ,kbar  ,kbaRm 

•NOUMP 

,NCYC  .ICR 

• JCR  . 

•ooooo 

001  |I 

9 • 

•UMAX  .IICMAXP  , shall 

• REV 

, ISEP  uSEP 

• XSEP  | 

•ooooo 

00111 

9 • 

• Y SEP  .NNHAX  ,MMMAX 

•ZZPRT 

.DCLZZ 

•ooooo 

OOU2 

9 • 

integer  F ,0b  .full 

• SUR 

, EHP  .BNP 

• FAX 

oooooo 

00112 

9« 

• .PART  .SHALL  .RrV 

oooooo 

00113 

ft 

OAT A FULL/I/SUR/4/EMP/7/BNO/IO/FAK/I3/OB/I6/PART/5/ 

oooooo 

00123 

ft 

DATA  REV/IS/SMALL/M/ 

oooooo 

00126 

9* 

DEFINE  INDEX! I >J)aFLD(0,l8, 

M I * J ) ) 

oooooo 

00127 

9* 

DEFINE  NB|T<NBi«0)«FL0(36.NB.l  i»0) 

oooooo 

CO  1 30 

9* 

INCLUDE  GELCMN i L I ST 

oooooo 

00130 

9* 

END 

oooooo 

00130 

9 • 

GELChN  PROC 

oooooo 

Xp2 

TCT 

TSEP 
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PHASES 


00131 

9 • 

00(32 

?• 

00133 

9* 

00133 

9* 

00133 

9* 

00133 

1* 

00 1 33 

9* 

00133 

9* 

00131 

10* 

00135 

11* 

00110 

12* 

00111 

13* 

00112 

:*• 

00112 

is* 

00111 

u* 

00117 

17* 

00150 

18* 

00151 

19* 

00151 

20* 

00152 

21* 

00155 

22* 

00157 

23* 

00157 

2 H • 

00141 

25* 

00142 

26* 

00143 

27* 

00141 

28* 

00145 

29* 

00144 

30* 

00147 

31* 

00147 

32* 

00170 

33* 

00171 

3M  • 

00172 

35* 

00173 

36* 

00171 

37* 

00175 

38* 

00174 

39* 

00177 

HO* 

00201 

Hi* 

00202 

H 2 • 

00203 

H 3 • 

00201 

H • 

00205 

HS* 

00207 

H 6 • 

002(0 

H 7 • 

C02|  1 

H 8 • 

0021  1 

H 9 • 

00212 

SO* 

00213 

S 1 • 

002  1 1 

S2  • 

00215 

S3* 

00217 

S<4* 

00221 

55* 

paraheter  qlhax-Su 

PARAMETER  NGEL*5  *tJLM  AX  ♦ ( 2 ♦ ( 1 

COMMON  /taEL I / XBUL<8LMAX1  .YBUL(QLMaX) .PBOtlQUMAXI  ,LMAX,T, 
. IOUMP,  I PLOT, IEuIT, I STOP, NAME  I 12) .SmaSS, IKMaX 

• , SMOM  .UBULCOLIIAX  ) .VBULl  qlmax  1 

• .ACC.GDT.SVEL.DlSP.VZERO 


c 

END 

Ja  1 

DO  100  1*2.1 M AXM 

T33BlIlalS33Cl.J>*S33(l,Ja|)l/2.0 
T|3BlI)"<Sl3(l.jlaSI3(|.J*|l)/2»0 
100  CONTINUE 

£•«•••••••  LOOP  ON  Rons. 

00  I 10  J*2. JMAXH 


c 


c 


c 


c 


101 


132 


103 


I ■ I 

TIIL-.S*(S||(1.JUSI1(U|.J)> 

T 1 3L-  . S»  ( S I 3 ( I iJUS13U«liJ)l 
••••  LOOP  ACROSS  A Ron. 

00  110  t ■ 2 » IMAXH 

IF  I NBI T (FULL . F ( t . J ) » .NE. I | GO  TO  110 
IF (N31 T (OB.Fl I . J) I .NE. I ) GO  TO  101 
...»  SET  VALUES  NtCOED  FOR  OB  CELL » 
I J. INDEX! I . J» 


AFaAFOB ( I J) 

RBARaXBI l Jl 
SI I0B-S1 I I I • Jl 
S| 30B»S| 31  I . Jl 
S330B"S33U  . Jl 
GO  TO  102 

••••  SET  VALUES  FOR  N0N-0a  CELL. 

AF-I  .0 
RBAR"0*0 
SI  lOBaO.O 
SI 30B-J.0 
S330Ba0.0 

T||R-.S*(SII( I ijl.SIl (1*1  , J ) I 
TI3R-.5*(SI3( I . JI.S13I 1*1 ,JI) 

I F ( Na l T I SUR , F ( l , J I I • NE • l • AND . Nd I T | SOR , F 1 l ♦ I • J I ' • ™E • I ‘ "O 

T 1 | R » 0 * 0 


T I 3R-0  • 0 

T33T».S.(S33( I .J>*S33( 1 . J*| 1 > 

TI3T-.5»(S|3( I .JI.S13I I ,J.| I > , . . „ ,.rn 

I F ( NB  1 T ( SUR • F I 1 , J) I .NE. I . AND • NB 1 T I SUR , F I ( , J* I I I »NE . 1 I GO 


TO 


TO 


103 


Ifll 


T33T»0»0 
T I 3T *0.0 
10**  CONTINUE 

CALCULATE  RAOIAL  VELOCITY. 

TMP1«(FXU.J1*RPL|1I«TI iR-FX( I -I  . Jl  *RPL ( |-l )*TI IL1 / IR( l I *0X I 1 1 I 

TMP2-(FTll.Jl,Tl3T-FT(|IJ-l|.Tl3BCllI/OYIjl 

S22»”S I | ( I , J)-533( I . Jl 

IF(S22.LT.P(  I .Jl >G0  TO  13S 

IF ( ICR.LE. I I GO  TO  IOS 

IF ( I »Lt.  I CRACK ( Jl  JS22-P  I I . jl 


000000 
000000 
000000 
000000 
000000 
000000 
OQOOOO 
000000 
000000 
000001 
000013 
OOOol* 
000057 
000057 
000057 
000042 
000041 
000072 
000072 
000(01 
000 10 A 
090|  I I 
000| I 1 
000(14 
000(22 
000 (21 
000(24 
000(30 
000(32 
000(31 
000 | 31 
000(34 
000(37 
000(10 
0001<H 
000(12 
000(11 
000(17 
000(53 
000(73 
000(71 
000174 
000203 
000207 
000227 
000230 
000233 
000233 
000233 
000215 
000251 
000257 
000242 
000241 
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Pr<A$E3 


00223 

0022S 

S7» 

00226 

58* 

00227 

Sf  • 

00227 

60* 

00230 

61  • 

00231 

6 2 • 

00231 

63« 

00233 

6 9* 

0023** 

6S  • 

002  3V) 

6 6* 

002  3V) 

67  * 

00236 

60* 

00237 

69  • 

002M0 

70* 

002M  1 

7 1 ■ 

002M2 

7 2 • 

002M3 

7 3 • 

002  M 6 

79® 

002M6 

75* 

002  M 7 

76* 

002S0 

77* 

002SI 

7 8 • 

IFCJ.GL.JCKACMl  1 i 522*P { I . j > 


c 


c 


IDS  CONT i NUE 

Tmp3*-AF*S22/RI ! » 


• *«FYI  1 «J>-FVC  I .J-|  I )«S!30H/Df  I Jl  ) 

U(  1 1 »J)4DT#fAU(  l)*0Y(J|/AMXt  | ,JJ*(TmP1*TNP2*TMP3*TMP*) 

lF(AttS(Ull.J>i*LT.1.0)U(I#J)-0*0 
♦ calculate  amal  velocity, 

THpl-CFX<l»JI*RPLiU«TI3R-FXU-liJ)®RPLC!-l)*Tl3L|/«RCn*0Xfin 

THP2«(FYn,J»*T3JT-FY(Itj-|)»T33B<l))/UT(jJ 

THP3--RBAR/R t 1I*<<FXU.J)-FX(1-1*J)  MS|30b/D*1  > > 

• MFYU  * J>-FY(  I »J-|  ) )«$330b/DY(  J)  ) 

VU.J)*V(I»J>^OT«TAUII)tDYCJl/AHX||lJ|#CTHPI^TriP2*TMP3) 


T 3 38 ( I ) • T 33T 
T 1 3B ( I > • T I 3 T 
T I 3L-T  13* 


T 1 IL-T1  | H 
110  CONTINUE 

CALL  smclll 

••••••••  StT  BOUNDARY  VmLULS» 

CALL  BNDCLL 

RETURN 

END 


300272 

OHOOOl 

000301 

00030s 

000301 
000321 
00033* 
000339 
0003^1 
000359 
000363 
000363 
000*00 
000*1  I 
0 C 0 * l 3 
OOOHiS 
000* 1 7 
OOOH  2 7 
000H27 
000*27 
000u 3 1 
000*4  3 3 
000*72 


END  OF  COMPILATION;  NO  DIAGNOSTICS. 


0HOG 


PPKE5 
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BFOR.S  PPRES 

FOR  SE2C-09/»?/75>-a9:37JS0  (0.) 


PPRES 


SUBROUTINE  PPRES  ENTRY  POINT  000431 

STORAGE  usto:  CODE(I)  000440;  OATACOJ  000326(  blank  common < 2 ) oooooo 

COMMON  BLOCKS: 

0003  ARRAYS  100151 

0004  PARAMS  000073 

0005  GEL  I 000424 

0006  FORC  000001 

0007  SPCOM  000002 

EXTERNAL  REFERENCES  (BLOCK,  NAME! 

0010  LCELL 

0011  PFIT 

0012  PLOTT 

0013  NERR6S 

0014  NERR3S 


STORAGE 

ASSIGNMENT  1 

IBLOCK,  type 

, RELATIVE  LOC 

»T 1 ON , NAME) 

0001 

oooios 

1 0 1 L 

0001 

000125 

1 02 1 

0001 

800145 

103L 

0001 

000206 

13*L 

0001 

000230 

107L 

0001 

000415 

i ml 

0001 

00024  S 

23HG 

0001 

000275 

2HHG 

0001 

000317 

2S7g 

OOOS 

000417 

ACC 

0033 

076734 

AFOB 

0033 

075605 

aln 

OOOH 

00001  1 

AS 

0003 

075667 

BEN 

0004 

000014 

BETa 

OOOH 

00003S 

bq 

0033 

100106 

CD 

0004 

000036 

CK 

OOOS 

000422 

D1SP 

0004 

000007 

DT 

0004 

000023 

D T CP 

0003 

074716 

DX 

0003 

074757 

DXP 

0003 

075272 

DY 

QDOH 

000031 

EPS 

0003 

1 

361235 

F 

0004 

1 

000004 

FAK 

0003 

077742 

ff 

0C03 

130024 

FFAA 

0033 

076115 

FL 

0003 

076261 

FT 

0004 

I 

3-0000 

FULL 

0033 

020337 

FX 

OOOS 

000420 

GOT 

0034 

33031 3 

HMU 

0030 

1 

300269 

1 

OOOS 

000230 

IDUMP 

0005 

1 

030232 

1 ED  1 T 

0004 

000057 

UMAX 

0003 

077514 

I H A S 

0334 

000044 

1 M A X 

0004 

000046 

1 MAXM 

0000 

1 

000267 

IP  JP 

0005 

000231 

1 PLOT 

3004 

1 

000063 

I SEP 

0000 

1 

000261 

J 

0004 

000056 

JCR 

0003 

077307 

JCRACK 

OOOS 

000047 

JMAXM 

0000 

1 

000264 

JP 

0004 

1 

000064 

JSEP 

OOOH 

000052 

KBARm 

0004 

030050 

KM  AX 

0007 

OOOOOO 

KSEP 

OOOS 

1 

000226 

lhax 

0007 

I 

OOOOOl 

LSEP 

0000 

1 

000261 

M 

OOOS 

1 

000234 

name 

0004 

000054 

NCYC 

0004 

000053 

NDUMP 

OOOH 

000006 

OBFUl 

0003 

R 

053650 

P 

3000 

1 

OOOOOO 

PART 

OOOH 

000027 

PM  1 N 

0300 

R 

303275 

PM1NN 

0003 

077016 

POB 

OOOH 

I 

000062 

REV 

C003 

076571 

RHOVB 

0C04 

000012 

RHOZ 

OOOH 

000333 

SHEN 

0304 

I 

C00G6I 

SMALL 

00  — 5 

30C250 

SMASS 

0000 

R 

003273 

SUM 

3034 

I 

oococi 

SUR 

OCo5 

030421 

SVEL 

0001 

000165 

1QHL 

0061 

000201 

10*1 

0001 

000004 

1HSG 

0001 

000024 

UOt 

0001 

000337 

2 7 06 

0003 

077? 73 

M 

0003 

012752 

AHX 

0004 

0006|5 

AP 

OOOH 

1 

000003 

BND 

0004 

000016 

M 

OOOH 

000032 

COMPEN 

0004 

000072 

OEUf 

OOOH 

000021 

dtoump 

0004 

O0OO25 

DTP 

0003 

075417 

DYP 

0004 

! 

000002 

EMP 

0003 

076343 

FB 

0000 

R 

000274 

FC 

0006 

R 

OOOOOO 

FORCE 

0003 

0?4I77 

FR 

0003 

025724 

FY 

0004 

000010 

G 

OOOH 

000055 

ICR 

0003 

077162 

ICRaCK 

OOOS 

000251 

UMAX 

0004 

000060 

UMaXP 

0000 

00031 1 

INJPS 

0000 

1 

0002«3 

IP 

OOOS 

000233 

ISTOP 

0000 

1 

000265 

12 

0003 

077576 

JHAS 

0004 

000045 

JMAX 

0000 

1 

00026* 

J2 

0004 

000051 

KBAR 

0000 

1 

000257 

L 

0000 

1 

000272 

LL 

0000 

1 

000270 

NHAX 

0004 

000070 

hmpa* 

OOOH 

000067 

NNMAX 

0004 

1 

OOO00S 

OB 

OOOS 

R 

000144 

PBUL 

0000 

R 

000276 

PMAXB 

0000 

R 

000063 

PP 

0003 

074553 

R 

0000 

R 

000271 

Rmax 

0003 

074655 

RPt 

OOOS 

000252 

SMOM 

0004 

000034 

SPEn 

0003 

03331 1 

SI  1 

0003 

040676 

S l 3 
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□ 003 

0*46263 

533 

iSuS 

30022? 

T 

JC  j3 

07i>S<4<4 

TAU 

09QM 

900022 

TCP 

000» 

000020 

touhp 

000M 

OOCOI  7 

tlast 

* 

C0C02*i 

TP 

03  .’3 

37  7o60 

TT 

009* 

000026 

ttotal 

0003 

076632 

T13B 

0003 

076673 

T 33B 

33v>3 

OOC3CO 

U 

0335 

330253 

UBUL 

000  * 

3000*3 

UCRACK 

0003 

077350 

UOB 

0003 

005365 

V 

v33b 

000335 

VBUL 

oc:  3 

3 7 6 h 25 

VFOB 

0093 

077*32 

VOB 

000*4 

000030 

VSCa^E 

0003 

100055 

V V 

ODu  3 

I GO  1 3 7 

VVV 

3035 

300*423 

V ZERO 

0003 

07*B 1 2 

X 

0003 

H 075751 

XB 

OOOS 

R 000000 

XBUL 

JOG  3 

077100 

XCT 

0003 

066&22 

XK 

0000  H 

000227 

XL  AB 

0003 

07*61* 

XPL 

000  H 

000037 

xp  1 

OOu* 

0000*0 

XP2 

00  JM  R 

0000*1 

X SEP 

0000  R 

OQOOOl 

XX 

0000 

ft  0001*5 

xxi 

0003 

07SC2G 

r 

CC03 

076033 

YB 

0005 

000062 

YBUL 

0003 

076S07 

YCT 

0003 

071556 

YK 

0000 

0003 

R 0002*43 
077711 

YLAB 
Z l 

GO  03 
000* 

075  IMS 
000071 

ypl 

ZZPRT 

0001 

0000*4 1 

YP1 

000* 

0000*2 

YP2 

000*4 

000066 

YSEP 

00101 

1 • 

subroutine  ppres 

000000 

OOIOI 

2 • 

<:•••« 

PRESSURES  FOR  POINTS  ALONG 

the 

000000 

00101 

3 • 

c.**< 

»•••••  surface  of  the  lagrangian  projectile* 

000000 

00103 

*• 

INCLUDE  COM, LIST 

* 

000000 

00103 

*• 

COM* 

PHOC 

oooooo 

0010* 

*4  ♦ 

PARAMETER  I D*  33  , JD  * B 5 

, K 0 * 1 500  , ND« 1 2 • l JD*SO 

006000 

OOIOS 

*• 

parameter  lo«isc  ,nndim-2s 

•HMD1M-10 

oooooo 

00106 

*• 

PARAMETER  nAKR*I0*1D*JD*1 1 • !D^5»Jo^l7* 1 JD#2*KD^7»NN01HtMHDlH 

oooooo 

00107 

*• 

parameter  npar*5? 

ooOooo 

00110 

*• 

COMMON/aRRAYS/U( lu, JO) 

iV(lOiJO)  .AHXUo.JD) 

• 

oooooo 

001  10 

*• 

• F X ( ID,  JDl  i F Y 1 ID, JD) 

.suno.Jui  ,si3uo.jo» 

• 

oooooo 

00110 

*• 

• S3  3 ( ID,  JD)  ,P(  lu,JD) 

■FtlD.JOl  .XKiKOl 

• 

oooooo 

001  10 

*• 

• TK(KD)  » X ( 1 D ) 

. R ( 1 0 1 i XPL 1 Id  1 

• 

oooooo 

001 10 

*• 

• RPL ( I 0 1 , UX ( 4 D ) 

•OAP(ID)  .T1J01 

• 

OOOOOO 

001 10 

*• 

•YPL(JD)  ,DY«JD) 

■otpijoi  iTau(Id> 

• 

OOOOOO 

001  10 

*• 

• AL  N ( 1 JD)  , BEN ( 1 JD) 

i XB  < 1 JO  1 itlUJOl 

• 

OOOOOO 

00110 

*• 

• FL(IJD)  , FR 1 1 JO ) 

■ FT  ( I JD  1 »FB • 1 JO  1 

• 

OOOOOO 

00110 

*• 

• VFOB 1 1 JD)  , YC  T ( 1 JD) 

• RHOVB(IO)  * T 1 3B 1 1 0 ) 

• 

OOOOOO 

001  10 

*• 

• T 3 3 B C ID)  ,ArOb( 1 JD) 

•POB ( | JO ) .XcTllJO) 

• 

OOOOOO 

001  10 

*• 

• ICRACK( JD)  , JCRaCK( ID) 

■ UOBdJD)  » VOB  1 1 jPl 

• 

OOOOOO 

001  10 

*• 

• 1MASC  1 JD)  , JMASC 1 JD) 

,TT(NNDIM|  .121  NN{>  I M | 

• 

OOOOOO 

001 10 

*• 

• FF (NND1M)  , AAiNNDlM) 

• FFAA(NNOIH)  .WINNOIHI 

• 

OOOOOO 

001  10 

*• 

•CD(NNOIM)  ,VVV(MMD1M) 

OOOOOO 

ooi  1 1 

*• 

COMMON/PARAMS/  FULL 

,SUR  » EMP  »BNO 

• F AK  « 

oodooo 

001 1 1 

*• 

•OB  ,08FUL  ,DT 

■ G ■ AS  • RHOZ 

. HMU  , 

oooooo 

001  II 

*• 

• BETA  , AP  , BP 

■TLAST  .TOUHR  .DTDUHP 

• TCP  . 

OOOQOO 

0011  1 

*• 

•DTCP  .TP  •DTP 

■TTOTAL  .PM|N  ,vscale 

• EPS  , 

oooooo 

OOI  1 I 

*• 

•COMPEN  ,SHEN  ,SPEN 

■BQ  .CK  iXPI 

i XP*  t 

oooooo 

OOI  1 1 

*• 

♦ YPI  , YP2  .UCRACK 

• 1 H AX  .JNaX  tlHAXH 

•JMAXM  • 

oooooo 

OOI  I 1 

*• 

• KM A X ,KBAR  iKBARM 

, NOUNP  .Ncrc  I ICR 

• JCR  v 

o.Oooo 

00111 

*• 

• 1JHAX  , 1 KM AX P , SMALL 

, RE V • 1 SEP  • jSEP 

• XSEP  f 

oooooo 

OOI  I 1 

*• 

•YSEP  , NNMAX  ,MMMAX 

■2ZPRT  .DEL** 

OQOOOO 

OOI  12 

*• 

INTEGER  F ,0B  .FULL 

■ SUR  » EMP  iBNO 

• FAK 

oooooo 

00112 

*• 

• .part  .small  .Rev 

OOOOOO 

00113 

*• 

DATA  FULL/ t/SUR/*l/EHP/7/BND/IO/fAK/ 13/OB/ 16/Pa«T/S/ 

OOOOOO 

00123 

*• 

DATA  REV/I5/SHALL/IM/ 

oooooo 

00126 

*• 

DEFINE  INDEX (1 , J 1 «FLO < 0 , 1 S . F « 1 . J)| 

OOOOOO 

00127 

*• 

DEFINE  NB|T4NB»WD|»FLO(36-NB 

• 1 • RD ) 

OOOOOO 

00130 

*• 

INCLUDE  GELCMN.LlST 

OOOOOO 

00130 

*• 

END 

OOOOOO 
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00130 

M* 

GELCMN  PROC 

000000 

00131 

*♦* 

PARAMETER  QLMAX»b(j 

000000 

00132 

M* 

parameter  ngel«5»wlmax*i2*i*i 

000000 

00133 

M* 

COMMON  /GEL  1 / XDUtlQLHAX* .YBUL18LMAXJ  ,PB0L*3LMAX»  ,LHAX,T, 

ooOooo 

00 1 33 

M* 

. iDUMP.tPLoT.iEoiT.i  stop,  name  mi  ,shaSS,ikmax 

000000 

00133 

H* 

• , SMOM.UBULIQLMAX) ,VBUl(QLMAX) 

OOOOOO 

00133 

M* 

• ,ACC,60T.SVEL,o15P,V2ERO 

OOOOOO 

00133 

c 

OOOOOO 

00 1 33 

END 

OOOOOO 

00  131 

S« 

COMHON/FORC/FORCE 

OQOOOO 

00135 

4* 

COMMON/SPCOM/KSEP.LSEP 

• 

ooOooo 

0013* 

7* 

DIMENSION  XX ( IJOl ,PP( IJdI ,XXBIQLHaX) 

OQOOOO 

00137 

• • 

DIMENSION  XLAB( (2> ,YLABt 121 

OOOQOO 

00180 

f • 

DATA  XLAB/6HRADIUS. 1 l»*H  / 

OOOOOO 

OOH2 

10« 

DATA  YLAB/12HPRCSSURE  ,|0»6H  / 

OOOOOO 

00188 

1 !• 

DO  100  L-2.LMAX 

OOOOOO 

00 1 17 

12* 

PBUL(L) -0.0 

00000*1 

00150 

13* 

100  CONTINUE 

000005 

00152 

1 M • 

IFILSEP.LT. 21RETUHN 

000005 

00158 

IS* 

1-0 

OOOOM 

00IS5 

14* 

J-0 

OQOQlt 

00156 

17* 

M-0 

oooou 

00IS7 

1 8 • 

DO  107  L-2.LSEP 

00002*1 

00162 

19* 

CALL  LCELLI IP, JP.L) 

000028 

00163 

20 • 

IF(  IP.EQ. 1 . AND. JP.EQ. J1G0  TO  107 

000031 

00165 

2|* 

1 F 1 IP.EQ, 15EP.AND.jp, EQ.JsEPIGO  TO  107 

000Q8S 

00167 

22* 

M-M*  1 

000061 

00170 

23* 

1F(NBIT(FAK,F(1P,JP)).EQ.I )G0  TO  101 

000047 

00172 

2*1* 

12-IP 

000077 

00173 

25* 

J2-JP 

000101 

001  7*1 

24* 

GO  TO  106 

000103 

00175 

27* 

101  IFtNB|TC06»FUP»Jp-m*NC.l  ICO  TO  102 

000105 

00177 

2 8 • 

12-IP 

000|  u 

00200 

2?  • 

J2- JP-  1 

000| 20 

00201 

30* 

GO  TO  104 

000(23 

00202 

31* 

102  1F(N01T(08iF( IP*1 »JP) )«n£.1 )G0  TO  103 

000(25 

0020*1 

32* 

1 2- I P ♦ 1 

000 | 36 

0020S 

33* 

J2-JP 

000181 

00206 

3M* 

GO  TO  104 

000|83 

00207 

35# 

103  IF(NB!T  i OB  # F C 1 P ■ Jp  + 1 ) ) • nE ■ 1 ) GO  TO  10M 

000(85 

002 1 | 

34* 

12-IP 

000(54 

00212 

37  • 

J2- JP* 1 

000(40 

002(3 

38  • 

GO  TO  104 

000(43 

002  | M 

39  • 

1 0 M iFlNaiT (OB .FI  IP-1 , JP) ) .EQ. 1 1G0  TO  105 

000 | 45 

00216 

M0« 

RETURNO 

000(74 

00217 

Ml* 

105  12-lP-l 

000201 

00220 

M2* 

J2-JP 

000203 

00221 

M3* 

104  PP(M)-Pl 12. J2) 

000204 

00222 

MM* 

IPJP-IN0EX1 IP.JP) 

000216 

00223 

MS* 

XX(M)«XBI IPJP) 

000221 

0022*) 

M 4 • 

I - I P 

000223 

00225 

M7* 

J-  JP 

000225 

00226 

M 8 • 

107  CONTINUE 

300231 

00230 

M9* 

l l 0 MM  A X » M 

000231 
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C0231 

SO* 

KHAX«X^EP 

000233 

002  32 

SI* 

t L « L SEP-  1 

090235 

00233 

S2  • 

00  108  L-2.LSEP 

000245 

00236 

S3* 

XX9 ( L 1 ■ ( XBUL (L 1 ♦XuUlIL- i ) ) /2 O 

000245 

00237 

5 H • 

ICd  COM  l NUE 

000251 

00241 

SS  ♦ 

CALL  PF | T(RlAX,rONCE,MMAX,XX,pP,LL.XXrtl 2) ,PBUL<2> 1 

000251 

00242 

84* 

SUH»0« J 

000263 

00243 

67* 

DO  IIS  L-2.LSEP 

000275 

00246 

S8* 

5UH-5UH^XX6  (L)  *PBuL(L)  *CXBOL  (U-XiULI  L-l  1 1 

000275 

00247 

89* 

1 IS  CONTINUE 

006304 

00251 

4Q* 

FC»20*3»IH16*5UM 

000)04 

00252 

M* 

I F f !ED1T'NE*1  U»0  TO  1 IH 

000306 

00254 

62* 

PMINN.0.0 

000)11 

00255 

63* 

PMAXX--1 • E ♦ 20 

000)12 

00256 

00  112  H-  1 » UMAX 

000)17 

00261 

6S* 

I F ( PP ( H 1 *GT*PMAXX|PNAXXbPp(H) 

000)17 

00263 

66* 

IF(PPCH)  .LT.PMlfjN|PMlNN-PP(H) 

000)24 

00265 

67* 

1 12  CONTINUE 

000337 

00267 

68* 

DO  113  L-2.LSEP 

000)37 

00272 

69* 

IF(PBULIL).GT.P|’AaX)PMAXX.p8UL«L) 

000)37 

00274 

70* 

IF(PBULCL) .LT.PhlNN»PHlMN«PBUL(L ) 

000)44 

00276 

71* 

1 13  CONTINUE 

000)54 

00300 

72* 

CALL  PLOTT ( l . 1 .43,2,NMAX  » MX  »PP iO.O.RMaX . 

000)54 

00300 

73* 

•PMINN.PMAXX.XLABiYLAB.NaHE) 

000)54 

00301 

79* 

CALL  PL0TT(2il»<««ll3lLLiXXB(2)  • PBUL  ( 2 ) .0*0.  UMAX. 

000)74 

00301 

7S* 

•PMlNNfPMAXX,XLA8iYLABfNAME) 

000)74 

00302 

74* 

IIH  CONTINUE 

000411 

00303 

7 7* 

RETURN 

Q004I6 

00304 

78* 

END 

006m)7 

END  OF 

compilation;  no  diagnostics. 
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PRES 


BFOR.S  PRES 

FOR  SE2C-09/l9/7S-0’:37:SS  (0,1 

SUBROUTINE  PRES  ENTRT  POINT  ooosos 


STORAGE  USED;  CODE ( 1 ) 000521s  OATA(O)  000061:  BLANK  C0MM0N<2|  OOOOOO 

COHHON  BLOCKS: 

0003  ARRAYS  IOOISI 
0009  RARAMS  000073 
OOOS  GEL  I 000S2S 


EXTERNAL  REFERENCES  (BLOCK,  NAME) 

0006  RHO 

0007  ALOG 
0010  NERR3S 


STORAGE  ASSIGNMENT  (BLOCK,  TYPt,  RELATIVE  LOCATION,  NAME) 


0001 

ooooss 

1 0 1 L 

0001 

0002 | 6 

1 02l 

0001 

0003SS 

0001 

00000“ 

1356 

0001 

0C0022 

Moa 

0001 

000263 

0001 

000312 

230G 

0003 

077773 

AA 

ooos 

OOOS 1 7 

0003 

012752 

AMX 

OOOS 

R 

OOOOIS 

AP 

ooos 

OOOO! 1 

000*1 

1 

000003 

BNO 

OOOS 

R 

000016 

BP 

ooos 

00003b 

000*1 

000032 

COMPE.N 

OOOS 

000072 

OELZZ 

ooos 

OOOS22 

OOOS 

000021 

dtdump 

OOOS 

C0002S 

DTP 

0003 

n 

07S7I 6 

0003 

075517 

DTP 

coos 

I 

000002 

EMP 

ooos 

000031 

0003 

0 T 63  S3 

fb 

0003 

0777S2 

FF 

0003 

I0002S 

0003 

076261 

FT 

ooos 

I 

OOOOOO 

FULL 

C.C03 

R 

020337 

OOOS 

000S20 

got 

o cos 

000013 

HMU 

0000 

? 

000002 

OOOS 

000230 

1 DUMP 

ooos 

000232 

1 ED  I T 

0009 

i 

OOOOIS 

OOOS 

000060 

ikmaxp 

CGOC 

I 

OOOOIS 

I H 

0C03 

i 

077SIS 

0000 

000026 

INJPS 

ooos 

000231 

iplot 

0035 

000063 

OOOS 

0000S6 

JC« 

0003 

077307 

JCRACx 

OCOO 

i 

000016 

OOOS 

I 

0000S7 

jmaxm 

ooos 

00006S 

JSEP 

OOOS 

OOOOSI 

OOOS 

000226 

LM  AX 

ooos 

000070 

MMMAX 

ooos 

00023S 

OOOS 

000067 

NNMAX 

ooos 

I 

ooooos 

OB 

ooos 

000006 

OOOS 

OOOISS 

PBUL 

ooos 

R 

000027 

PM  I N 

U003 

R 

077016 

0000 

R 

000003 

KM 

0006 

R 

OOOOOO 

RHO 

0000 

n 

000006 

0003 

K 

0TS6SS 

RPL 

ooos 

GOC033 

SHEN 

ooos 

i 

000U6I 

ccos 

00003S 

SPEN 

coos 

I 

oooocl 

SUR 

ooos 

OOOS2I 

0003 

0S6263 

533 

ooos 

000227 

T 

0003 

07SSSS 

0000 

R 

ooooos 

TH 

ooos 

000017 

TLA5T 

0000 

R 

OOOOOS 

0000 

R 

00001 1 

TMPM 

oooo 

R 

COOOl 2 

TMPS 

oooo 

R 

000013 

OOOS 

000026 

TTOTAl 

0003 

076632 

TI3B 

0003 

076673 

OOOS 

0000S3 

ucrack 

S003 

R 

077350 

UOB 

0033 

R 

00S36S 

0003 

H 

077532 

VQB 

ooos 

0wCQ3G 

V SC  ALE 

00.3 

IOO0S5 

0003 

07SSI2 

X 

CC03 

07S7SI 

Xu 

OOOS 

ooouoo 

10SL 

0001 

000163 

IO*L 

0001 

000351 

I07l 

2076 

0001 

00027N 

2 1 46 

0001 

00030S 

2256 

ACC 

0003 

07673S 

AFOB 

O003 

075405 

ALN 

AS 

0003 

075647 

BEN 

Ooos 

OOOOIS 

•ETA 

BQ 

0003 

100104 

CD 

ooos 

000036 

CK 

D1SP 

OOOS 

R 

000007 

OT 

Ooos 

000023 

DTCP 

DX 

0003 

07S7S7 

OXP 

0003 

n 

075272 

OY 

EPS 

00fl3 

1 

04I23S 

F 

ooos 

I 

OOOOOS 

fax 

FF  A A 

0003 

0741 | 5 

FL 

0003 

076177 

FR 

FX 

0003 

R 

02S72S 

FT 

Ooos 

0000|0 

6 

I 

OOOS 

OOOOSS 

ICR 

0003 

077142 

ICRaCK 

1 J 

ooos 

000057 

UMAX 

OOOS 

000251 

ikmax 

lM  AS 

ooos 

I 

ooooss 

IMAX 

OOOS 

l 

OfiOOS6 

IMAXH 

I SEP 

ooos 

000233 

I STOP 

OOOO 

\ 

oooopi 

J 

JM 

0003 

1 

077576 

JM  AS 

ooos 

1 

000055 

JM  Ax 

KB  AR 

ooos 

0000S2 

kbarm 

Ooos 

000050 

KM  A X 

name 

OOOS 

OOOOSS 

NCYC 

ooos 

000053 

NDUMf 

OBFUL 

0003 

R 

0S3650 

P 

oooo 

I 

OOOOOO 

PART 

P08 

0003 

R 

07S5S3 

R 

ooos 

t 

000042 

REV 

RHOcSQ 

0003 

074S7I 

RHOVB 

ooos 

R 

000012 

RHOZ 

small 

ooos 

000250 

smass 

0005 

000252 

5H0M 

SVEL 

0003 

033311 

si  I 

0003 

QS0574 

5U 

TAU 

OOOS 

000022 

TCP 

ooos 

000020 

toump 

THP1 

OOOO 

R 

000007 

TMP2 

oooo 

R 

0000(0 

THP3 

TMP6 

ooos 

00002S 

TP  . 

0003 

077440 

TT 

T33B 

0003 

R 

OOOOOO 

U 

ooos 

000253 

UBUL 

V 

ooos 

00033S 

VBUL 

0003 

076S2S 

vpOb 

vv 

0003 

100137 

VW 

ooos 

000523 

VZCRO 

XBUL 

0003 

077100 

XCT 

0093 

066622 

XK 

P«ES 


0C03  0 7 M 6 l H A PL 

0003  0*6033  Yb 

OOOH  COOOHl  YPI 


uCJ**  OCOC3*  *P1 

0C05  0CC062  YbUL 

00  J4*  0CC0‘»2  Y P 2 


uCLM  QGgOhC  XP2 

0C03  07650*  Y C T 

OCJH  C00066  YSEP 


ODOM  900065  XSEP 

0003  071556  YK 

00C3  077711  ZZ 


0003  075020 
0003  0751H5 
000*  000071 


0CI01 

00101 

00101 

00101 

00101 

00101 

00103 

00103 

00103 

00103 
• 010*1 

00105 

00106 
00107 
00110 
001  10 
001  10 

* 00110 
fi>  00110 

» ooiio 
001  10 
£ ooiio 

w OOIIO 
001  to 
OOIIO 
OOIIO 
OOIIO 

00110 
001  I I 
001  II 

001 1 1 
001 1 1 
0011 1 
001 1 1 

00  tit 

001  I I 
001 1 1 
00112 
00112 
00113 
00123 
00126 
00127 
00130 
00130 

00130 

00131 


l • 

2* 

3» 

S» 


subroui i ne  r«ES 

£»••••••*••••••••*••••••••••••••••••< 

£••#••••♦••••••••••••••••••••••••< 

c.. .......  PKES  CALCULATES  CELL  PRESSURE  FROM  EOUATiON  of  state. 

c< 


6 • 

7» 

include  con. 

LIST 

• • 

9^ 

9^ 

COM  • 

PROC 

f • 

PARAMETER  id 

■ 33  i JD* 05 

.KD-1500  » NO*  1 Z .UD-bO 

?• 

PARAMETER  ld 

■15C  .NN01M-25 

,MMD1M»10 

f • 

parameter  narr«ig.id«jo*ii» 

|D^5 • JO^ 1 7« 1 J0*2 

•KD4**  <*D1M*MMD1m 

9 • 

PARAMETER  NP  aR*£»9 

9 • 

COMMON/ ARRAY S/U<  lj • JD) 

• V« ID,  JD) 

, AM  x ( 1 0 . JO ) 

1 

9 • 

• F A ( ID,  JO) 

• FYl  |U,  JD) 

• SI  1 ( ID  .JO) 

,S|3I  ID.JO) 

» 

9 • 

•S33 ( ID. JD) 

.P( lu.JOl 

* F ( 1D.JD) 

.Xk(KD) 

• 

9 • 

•YK(KO) 

• X c 1 u > 

• R(  10) 

.XPL1 ID) 

» 

?• 

•RPL< ID) 

• D X < 1 0 1 

•DAP( |D) 

, Y ( JO ) 

• 

9 • 

• YPL< JO) 

.0Y< JD) 

•DTP1JD) 

,TAU1 1 0 > 

• 

9 • 

• ALN 1 l JO) 

•BCN( 1 JD) 

• XB(  1 JD) 

,YBU  Jo) 

• 

9® 

•FL ( 1 JD) 

t FR 1 i JO) 

.FT ( 1 JD) 

.FBI  1 JD) 

• 

9* 

• YF08(  I JD) 

.YCTilJD) 

• RHOVK  10) 

,TI3B<  JD» 

• 

9* 

• T 3 3 0 ( 10) 

• AFObI  1 JD) 

.POB ( 1 JD) 

, XCT 1 1 JD ) 

» 

9^ 

• 1 CRACK ( JD ) 

, JCRaCKI ID) 

• UOB ( I JO) 

» VOB ( | jD) 

• 

9 • 

•1MASI 1 JD) 

, JHASI 1 JD) 

• T T ( NND 1 M ) 

.ZZ(NNolM) 

1 

9« 

•FF(NNOlM) 

.AAlNNDIH) 

•FFAAINND1M) 

.VVINNolM) 

» 

9 • 

•CO(NNDIM) 

,VVV|DMD|M, 

9^ 

COMMON/PARAMS/ 

full 

• SUR 

• EMP 

iflNO 

i F A K 

• 

9 • 

• OB 

•OBFUL 

• DT 

• C 

• AS 

.RHOZ 

iHMO 

• 

9 • 

• beta 

. AP 

• BP 

• TL AST 

•TDUMP 

.dtoump 

• TCP 

• 

9 • 

• DTCP 

• TP 

• DTP 

•TTOTAt 

• P M l N 

•VSCALE 

• EPS 

• 

9^ 

•COMPEN 

• shen 

• SPEN 

• B<* 

• C K 

.XP1 

• XP2 

• 

9* 

• YPI 

• TP2 

• UC  R A C K 

. 1 M A X 

• JMAX 

. 1MAXM 

• JMAXM 

» 

9* 

• KMAX 

• kbar 

•KBARM 

•NOUMB 

• NCYC 

ilCR 

• JC  R 

t 

9* 

• 1 JMAX 

, I KM A XP 

•small 

• REV 

.IIEP 

.JSCP 

• X5EP 

1 

9 • 

• Y5EP 

• N NM A X 

• MMN  A X 

•ZZPRT 

• delzz 

9 • 

INTEGER 

F *0B 

• FULL 

• SUR 

• EMP 

iBND 

• FAK 

?•  • .part  .small  .Rev 

f.  data  FULL/1/SUR/R/EMP/7/BND/I0''FAK/13/uB/16/PaRT/S/ 

9*  data  rev/is/small/ih/ 

9*  DEFINE  INDEX  1 I , J)>FLD(0. 1 8.F I 1 , J! 1 

♦ • DEFINE  NblT(NB.T;D|«FLDI36-NB.I  .*01 

v»  include  SElCMN.LIST 

»•  END 

9 • CiELCMN  PROC 

?•  PARAMETER  OLMAA»Sj 


oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oodooo 

oooooo 

oooooo 

oooooo 

oooooo 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

oooooo 

oooooo 

ooOooo 

oooooo 

oodooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

OOOOOO 

OOOOOO 

OOOOOO 

oo&odo 

OOOOOO 

OOOOOO 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 


T 

TPL 

zzprt 
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PRES 


00132 

9 • 

PARAMETER  NGEL-S«WLMAX»I2*|* 

OOOQOO 

00133 

9 • 

COMMON  /GElI/  XOUtlOLMAXl .YBOLlQUMAX)  .PBUlIOLMAX)  .LMAX.T, 

000000 

00133 

9® 

. 100MP.  I PLOT, lEulT, 1 STOP .NAME  11 2 1 .SMaSS, IKMaX 

000000 

00133 

9® 

• , SMOM.UBULlQLMAxl  »VB0l«8UMAX1 

000000 

00133 

!• 

• i ACC |GOT  .SVEL.DlSP • V ZERO 

OOOQOO 

OOI33 

9® 

C 

000000 

00133 

9® 

end 

000000 

00I3S 

10® 

00  102  J-2.JMAXM 

000000 

00137 

U® 

00  102  I-2.IMAXH 

000022 

00137 

12® 

c 

•••••  INITIALIZE  PRESSURE  To  zero. 

000022 

001*2 

13® 

P( ! , Jl-O.o 

000022 

00  1 S3 

IS® 

IP1NB1TIF0LL.fi  1 .jn.NE.l  160  TO  102 

000023 

COM3 

15® 

c 

•••••  GET  cell  DINSJTT. 

000023 

001*5 

U® 

RH-RHO ( 1 1 J) 

000032 

001*4 

17® 

IF (RH.GT.O.O)GO  To  101 

000Q37 

00IS0 

It® 

PU  • J)»0*0 

0000*1 

001S1 

19® 

GO  TO  102 

0000*2 

00151 

20® 

c 

•••••  CALCULATE  PRESSURE. 

0000*2 

00152 

21® 

101 

TH-ALOGtRH/RHOZ) 

0060** 

001S3 

22® 

THP  I »BP®TH®®3 

00005* 

001SS 

23® 

1F1TH.LT. 0.01TMP1.0.0 

OoOOE 1 

00154 

2S® 

PI  1 . Jl-AP-TH  + THPl 

000045 

00154 

25® 

c 

•••••  upoate  pressure  TO  End  of  cycle  value. 

000045 

00 1 57 

24® 

IF(TH.LT*OtO)TH-0.0 

000071 

00141 

27® 

RM0CSQ»AP*BP*3.0*TH»*2 

000075 

00142 

2 1 • 

TMP I -RPL  I I 1 • 1 U I |*i i J ) «U ( | ,j) ).FX1 | .Jl/2.0 

00040* 

00143 

29® 

TMP2-RPL1  l-l )*1U1 1-1. J).UlI,j»)»FXiI-|. Jl/2.0 

000|I2 

0014* 

30® 

THP3-1  V 1 I , J.II  + V1 J , J) )»FY( I , Jl/2.0 

000| 20 

00145 

31® 

TMP*-<  VI  I.J-I > ♦ V 1 I . J) 1 »FY( I , J-l 1/2.6 

000|25 

00144 

32® 

TMP5-0.0 

000 | 32 

00147 

33® 

TMP4-0.0 

000|33 

00170 

3S® 

IF1NBITI0B.F1 I ,J) I .NE.IIGO  TO  104 

00013* 

60172 

35® 

I J« INDEX  1 | . J> 

000|** 

00173 

34® 

TMP5--1FYI I .Jl-FY | 1 » J - 1 ) I * VOS  1 IJI/OY 1 J I 

000|50 

0017* 

37® 

TMP4»-1F*I 1 . J)-rXl 1-1 , J) I.UOBI 1 Jl/DX 1 | I 

000 | 55 

00175 

38® 

104 

CONTINUE 

000143 

00174 

39® 

PI  I .Jl-Pl  I . Jl-RHOcSU»OT» 

000| 43 

00174 

so® 

• I I TMP1-TMP2) /1R1 I 1 »0X1 | 1 I » ( TMP3-TMP* 1 /UYl jl 

' 000|43 

00174 

Si® 

•♦TMPS+TMP4I 

000143 

00177 

S 2 • 

IFIABSIPII. J1I.LT. I.E*3|P(I.J|>0.0 

000202 

00201 

S3® 

IFIPU.J1.LT.  PM  IN)Pli  .Jl-PMIN 

000207 

00203 

Ss® 

102 

CONTINUE 

000222 

00203 

S5® 

C< 

••••*  SET  PRESSURE  IN  BNq  CELLS. 

000222 

00204 

S 4 • 

00  103  J-2.JMAXH 

000222 

0021  | 

S 7 • 

P! 1 i J1-PI2.J1 

000243 

00212 

Si® 

PI IMAX, Jl-Pl IMAXM.JI 

00624* 

002  | 3 

S 9 • 

103 

CONTINUE 

00027* 

00215 

50® 

00  10*  I -2 . 1 MAXM 

00027* 

00220 

51® 

Pll.ll-PII.21 

00027* 

00221 

S2® 

PI  1 .JMAXl-Pl 1 .JMAX-I  1 

000275 

00222 

S3® 

10S 

CONTINUE 

00030* 

00222 

SS® 

C' 

»••»•  SET  PRESSURES  ON  F*Cc  OF  OBSTACLE. 

00030* 

0022* 

S5® 

DO  10S  J»2,JMAXM 

00030* 

00227 

54® 

00  I0S  1*2 i 1MAXM 

000312 

Page  225 


PRES 


00232 

0023H 

00236 

00237 
002HI 
002  H 2 
002*0 
0O2H  *t 
002HS 
00250 
0025  1 


0HD« 


ST 

58« 

S9« 
60» 
61* 
62* 
4 3# 
64* 
65# 
6 4 • 
67* 


l F ( NB J T I OB » F ( l » J > J • NE • l ) GO  TO  iCb 
I F < NB I T ( FULL *F ( I t J > > t NE • l ) GO  TO  105 
l J» I NOEX ( I t J) 

I F ( N B f T ( SMALL  »F ( I , J ) ) • NE  • l ) GO  TO  107 
J M ■ I H A S ( I J) 

JM»  JM  AS  I 1 J) 

PI 1 • J)*P< IHi JH) 

107  POB ( I J)aP( I t J> 

105  CONTINUE 
RETURN 
END 


000315 

000322 

000327 

000333 

0003*0 

000JH2 

0003*14 

000351 

000341 

000341 

000420 


END  OF  COMPILATION;  NO  DIAGNOSTICS. 


PkLSET 


preset 


BFOR.S  PRESET 

FOR  SE2C-0?/»9/7S-09S37:S8  <0»> 

SUBROUTINE  PRESET  ENTRY  POINT  000)34 

storage  used:  codEid  oooihi;  dataici  0003201  blank  comhon<2)  000000 
common  blocks: 

0003  ARRAYS  IOOISI 

0004  PARAHS  000073 

0005  GEL  I 000424 

EXTERNAL  REFERENCES  (BLOCK,  NAME  J 

0006  NERR3S 


STORAGE  ASSIGNMENT  (BLOCK,  TYPE,  RELATIVE  LOCATION,  NAME) 


43 

fit 

n 

N) 

K) 

u> 


0001 

OOOS 

0004 
000*1 

0005 

0003 

0004 
0003 

0003 
0000 
000*1 

0004 
0000 
000*t 

0005 
000*1 
OOOS 
0003 
OOOS 

0003 
000*» 
000** 

0004 
0003 
0003 
0003 

0003 

0004 


000070 
000417 
00001  I 
00003S 
000422 
0747|6 
000031 
100024 
020337 
000002 
0000S7 
000046 
00000! 
000047 
000226 
000067 
00014H 
076S7I 
0002S0 
03331  I 
000022 
000026 
000043 
077432 
0 7 NS  I 2 
074614 
076033 
000C4 I 


I00L 

ACC 

AS 

BO 

OISP 
DX 
EPS 
FF  A A 
FX 
! 

I JHAX 

imaxm 

J 

JMAXM 

lmax 

NNMAX 

PbUL 

RHOVB 

SNASS 

SI  I 

TCP 

TTOTAL 

UCRACK 

VOB 

A 

XPL 
YB 
YP  I 


0001 

0003 

0003 

0003 

0004 
0003 
0003 
0003 

0003 

0004 

0005 
0000 
00U4 
0004 
0004 
0304 
C004 

0004 

0005 

0333 
0004 
0003 

0003 

0004 
0033 

0004 

0005 

0334 


0001 | 6 
076734 
075667 
10010* 
000007 
074757 

I 061235 
0761  IS 

R 025724 
0003SS 
OO02S I 
000004 
00005* 
030064 
000070 

I ooooos 

000027 
000012 
000252 
040*7* 
000C20 
076632 
077350 
000030 
07575  I 
000037 
000062 
000042 


I 0 I L 

0001 

000021 

435G 

0001 

000022 

HOG 

0003 

077773 

AA 

AFOB 

0003 

07540S 

ALN 

0003 

012752 

AMX 

0004 

0000)5 

AP 

BEN 

0001 

OOOOl 1 

beta 

0004  1 000003 

BND 

0004 

0000)6 

BP 

CD 

0001 

000034 

CK 

0004 

000032 

COHPEN 

0004 

000072 

OElI* 

DT 

0001 

000023 

OTCP 

0004 

000021 

OTOUMP 

0004 

000025 

OTP 

DXP 

0003 

07S272 

OY 

0003 

075417 

OYP 

0Q04 

I 

000002 

EMP 

F 

0001 

I 000001 

FAK 

0003 

076343 

fb 

0QO3 

077742 

ff 

FL 

00i)3 

074177 

FR 

0003 

07*261 

FT 

0004 

I 

000000 

PULL 

FY 

0001 

000010 

G 

OOOS 

000420 

GOT 

0004 

0000)3 

HHU 

ICR 

0003 

077142 

ICRACK 

OOOS 

000230 

IDUMP 

0005 

000232 

ICO  J T 

I KM  A X 

0001 

000040 

I KM  A X P 

0003 

077514 

IMAS 

0004 

000044 

I MAX 

INJPS 

OOOS 

000231 

i plot 

0004 

000063 

l SEP 

0005 

000232 

ISTOP 

JCK 

0003 

077307 

jcrack 

0033 

077576 

JMAS 

0004 

000045 

JHAX 

JS£P 

uOOi 

30C0SI 

K 8 A R 

0004 

000052 

KBARH 

0004 

000050 

KM  AX 

MHNAX 

OOOS 

000234 

NAME 

0004 

000054 

NC  YC 

0004 

000053 

NDUMC 

OB 

0001 

0GG094 

OBFUL 

0003 

053650 

P 

0000 

I 

oooooo 

part 

PMIN 

DC  03 

077014 

POB 

0003 

074553 

R 

0004 

I 

000062 

REV 

RHOZ 

0003 

07H6S4 

KPL 

0004 

000033 

ShEN 

0004 

I 

000061 

SMALL 

SHOP 

0001 

000031 

SPEN 

0004  ; 

[ 00000* 

SUM 

0005 

000421 

SVEL 

SI  3 

0003 

014243 

S33 

OOOS 

000227 

T 

0003 

075544 

TaU 

TDUMP 

0001 

000017 

TLAST 

0004 

000024 

TP 

0003 

077660 

TT 

T 1 3 B 

0003 

074673 

T 338 

0003 

000000 

U 

0005 

000253 

UBUl 

uoa 

0003 

00S34S 

V 

OOOS 

000335 

VBUL 

0003 

076425 

VFOB 

vscale 

0003 

lOOOSs 

vv 

0003 

100137 

VVV 

0005 

000423 

vzero 

XB 

□ CCS 

000000 

xbul 

0003 

077100 

XCT 

0003 

0***22 

XK 

XPI 

O001 

000010 

X P 2 

0004 

000065 

XSEP 

0003 

07S020 

Y 

YBUL 

0003 

07  6SQ7 

rCT 

0003 

07ISS6 

yk 

0003 

075145 

YPL 

YP2 

0001 

000064 

rSEP 

0003 

0777  1 1 

ZZ 

0004 

000071 

ZZPRT 

I 
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PRESET 


OOIOI 

1 • 

subroutine  preset 

000010 

OOIOI 

2® 

OOIOI 

3* 

OOIOI 

H* 

€•••< 

FRACTIONAL 

aRCaS  TO  1.0  ON  CELL 

EDGES 

000010 

00101 

5* 

000010 

OOIOI 

*• 

OOIOI 

7 • 

00103 

8 • 

INCLUDE  COM  »L 1 ST 

ooooio 

00103 

00103 

9* 

COM* 

PROC 

OOOOlO 

OOIOR 

9* 

parameter  id*33  »jd»«s 

• ICO*  1 500 

• ND* 1 2 » 1 JD  *50 

OOOplO 

00105 

9* 

PARAMETER  CO-150  .NNDlM-25 

.HMDlMalO 

•000 10 

0010* 

PARAMETER  NARR"|0»IO»JO*l !• 

10*S*JD*I  7*IJD*2*KD*7*NND  iMtMMQlM 

OoOolO 

00107 

PARAMETER  NPAR-59 

000010 

ooi  io 

M 

COMMON/aRRaTS/UC  Io.JOI 

.VI  10,  JDl 

» AN X t |0. JO) 

• 

OoOolO 

001  10 

9* 

• FX ( ID, JD>  »FY t |D» JD) 

• Slit io.  JO)  • s | 3 4 iDi JO) 

I 

ooOoio 

ooi  io 

9* 

• 53 3 ( ID. JD)  tP t lot JD) 

• Ft  ID.  JD) 

,XK IKD) 

• 

ooOoio 

001 10 

9* 

• TKIK0I  • X < 1 U > 

• R t ID) 

• xpl  < i o i 

• 

OOOOIO 

OOI  10 

9* 

• RPLU0I  tOXllO) 

.OXP( |D) 

, V 1 JD  I 

» 

OOOOIO 

OOI  10 

9* 

• TPL(JD)  * D Y 1 JD ) 

•DTP! JD) 

,T*UI Id ) 

• 

OOOOIO 

OOI  10 

9 • 

*ALN( | JD)  » BEN ( | JD) 

»X8( 1 JO) 

,VB< 1 JDl 

9 

OOOOIO 

OOI  10 

9# 

•FLtlJD)  » F R t J JD ) 

. FT  t 1 JD) 

.FBI  1 JDl 

• 

OOOQIO 

OOI  10 

9* 

•VF0BI1J0I  » T CT ( | JO  1 

• RMOVa  t ID  ) 

, T | 3. ( | D 1 

9 

ooooio 

OOI  10 

9# 

•T33BIIO)  .AFOb(IJD) 

•POBt | JD) 

,XCT< IjD) 

9 

ooooio 

OOI  10 

9» 

•ICRACK(JD)  i JCRaCK (ID) 

•UOBt 1 JD) 

.VOBtljD) 

9 

00*010 

OOI  10 

9* 

• | MAS  ( 1 JO  ) .JMASUJD) 

•TTtNNDlM) 

•ZZ(NNolM) 

9 

OOOOIO 

OOI  10 

9* 

•FPINNOIM)  >AA(NN0|M) 

•FFAAINNOI 

Ml  .VV(NNOIM) 

9 

••Ooi* 

Ooi  io 

9* 

•CDINND1MI  ,VVV|HMO|M) 

OOOol# 

0011 1 

9* 

COHMON/PARAMS/  FULL 

• SUR 

. EMP  .bNO 

9 F A X 9 

•OOolO 

OOI  1 1 

9® 

•OB  .OBFUL  ,DT 

. C 

.AS  ,RHOZ 

9 HMU  , 

OoOoi • 

OOlll 

9® 

•BETA  ,AP  »BP 

•tlast 

, T Dump  .oTduhp 

9 TCP  » 

OOOOIO 

001 1 1 

9* 

•DTCP  .TP  .OTP 

•ttotal 

,PM | N » VSCALE 

9 CPS  • 

OOOOIO 

OOI  I 1 

9 • 

•COMPEN  .SMEN  . SPEN 

• Bti 

,CK  ,XP1 

9 XP2  . 

OOOOIO 

OOlll 

9* 

• Y P I ,YP2  .UCRACK 

. IMAX 

t JMa  X , I M A X M 

•JMAXM  9 

OOOOIO 

OOlll 

9* 

•UMAX  .KBAR  .KBARM 

•NDUMp 

• NC  Y C » | CR 

9 JCR  • 

OOOOIO 

OOlll 

9« 

• ijmax  .iichaxp  .Small 

• REV 

.IStP  . JSEP 

9 XSEP  9 

-4  OOOOIO 

OOlll 

9* 

•ysep  .nnhax  .mmmax 

•ZZPRT 

•OELZZ 

00O010 

00112 

»• 

INTEGER  F ,0B  .FULL 

.SUR 

,EMP  ,eND 

• FAX 

OOOOIO 

OOI  |2 

9« 

« .part  , shall  ,rev 

OOOOIO 

00113 

9 • 

data  FULL/I /SUR/H/EMP/7/BND/ 10/FAK/l 3/OB/l 6/PaRT/S/ 

OOOOIO 

00123 

9 • 

oata  rev/is/small/ir/ 

OQOOIO 

0012* 

9 • 

DEFINE  INOEXU  .JI.FLDIO,  IB. 

Ft  1 . J) ) 

OOOOIO 

00127 

9 • 

DEFINE  NBIT<NB.B0|«FL0(3*“NB.l .*0) 

OOOOIO 

00130 

9* 

INCLUDE  CELCMNiLlST 

OOOOIO 

00130 

9 • 

END 

OOOOIO 

00130 

9 • 

6ELCMN  PROC 

OOOOIO 

00131 

9 • 

parameter  ulmax^Sj 

OOOOIO 

00132 

9 • 

PARAMETER  HGEL«5»wLMAX*|2*iR 

OOOOIO 

00133 

9* 

COMMON  /GEL  l / X(jUL  («LMAX  ) .YBUL  <QLM»*  1 . 

PBULtQLMAX)  .LMAX.T  . 

OOOOIO 

00  1 33 

9* 

. ioump , iplot , iedi t . i stop , 

NAMtt 12)  . Srt A$S • IKMAX 

OOOOIO 

00133 

9 • 

• , SHOM.UBULCQlMma) .vbuliqlMaxj 

OOOOIO 

00133 

9* 

• .ACC,GDT,SVEL*u*ISP,VzERG 

OOOOIO 

OCI33 

9 • 

C 

OOOOIO 
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00133 

?• 

END 

00134 

10* 

DO  101  JMiJMAXM 

00137 

If 

00  101  1«Ii1MAXM 

60  TO 

101 

00142 

12* 

IF(NBIT(FaX»FI1 , J i I.EQ.I.OR.NBITIEMPiFI l »jl 1 »E0  * 1 ) 

too 

OOl  44 

13* 

IF(NB1T(FAK.F( 1*1 ,J)).EG. 1 .OR.NBITIEMP.M 1*1 fjl 1.E8 

. 1)  GO 

TO 

00144 

If 

C*#M< 

>••••  SET  FRACTIONAL  area  for  right  edge  of  cell* 

00146 

15* 

F X ( I iJI-1.0 

. 1 1 GO 

TO 

101 

00147 

If 

100 

IF«NBITIFAK,FII,J*in.EQ.I  .OR  «NS  1 T ( EMP  « F 1 1 » J*l > » •£« 

00147 

XT 

€••••« 

SET  FRACTIONAL  AREa  FOR  TOP  OF  CELL. 

OOISI 

11* 

FT  C I iJI-1.0 

18111 

If* 

101 

CONTINUE 

*<)• 

RETURN 

OOIS6 

2f 

END 

end  of  compilation:  no  diagnostics. 


OOOOIO 
000010 
000022 
000022 
0000*11 
000041 
0000** 
000070 
000070 
OOOIIJ 
000121 
•00121 
000 1 40 


BHDG 


PHU 


I 


# 


PR  o 

y FOR  i s pro 

FOR  SE2C-09/I9/75-09:3B:0I  (3,1 


SUBROUTINE  PRO 


ENTRT  POINT  902Q7S 


STORAGE  USED:  CODEC!)  002H9;  DaTA(O)  900072;  BLANK  COHHONc2)  DOOOOO 

common  blocks: 

0000  ARRAYS  lOOiSi 
0009  PARAMS  000073 

0005  CEL  1 000929 

0006  VOLCOM  Q0032I 


EXTERNAL  REFERENCES  C SLOCK  y NAME) 


0007 

OFF 

ooto 

ON 

OOi  t 

LCELL 

0012 

CEXIT 

0012 

celvol 

0014 

nprts 

£i 

OOIS 

N 1 02  s 

iQ 

0014 

NERR4S 

CD 

0017 

NERR25 

to 

to 

0020 

SORT 

VD 

0021 

NERR3S 

STORAGE  ASSIGNMENT  (BLOCK  » TYPE,  RELATIVE  LOCATION,  NAME) 


0001 

00011 4 

1GCL 

003  1 

300202 

10*L 

cc:i 

330232 

1 0&3L 

0001 

000231 

109L 

uOJl 

300336 

1 10L 

0031 

000342 

1 l >L 

0001 

000426 

l ML 

000  1 

0304  3S 

1 I SL 

0001 

3004S2 

1 Ml 

0001 

000610 

I 1 9L 

0000 

000022 

I2F 

00  j 1 

00063* 

1 20L 

0001 

000667 

123l 

0001 

000672 

129L 

090  1 

330o76 

1 2 sl 

0001 

000727 

1 2 Sl 

000  1 

000732 

1 2 9L 

uD5  1 

0CI0O3 

1 3 P L 

0001 

001211 

! 3 3L 

000  1 

001235 

1 3 ML 

000  1 

321241 

l 35L 

0001 

001237 

1 3 7 L 

QOOi 

CS0063 

190L 

0031 

030J2I 

l 9 2g 

0001 

001722 

M2L 

JOOl 

001751 

1S3L 

C0J1 

002000 

1 S 9 l 

0001 

000515 

l 6 3l 

JODI 

000572 

169L 

0031 

000125 

MSG 

0001 

000715 

167l 

0001 

001555 

I90L 

0001 

001423 

MIL 

0001 

00 1 524 

I VSL 

00  Jl 

001533 

1 9 6 L 

00  91 

001053 

9S6g 

0001 

DO  1 265 

S30G 

ODD! 

SOI  35 1 

S52G 

0031 

001365 

SSSG 

0002 

077773 

AA 

ooos 

K 

Ow OH | 7 

ACC 

3093 

R 

376734 

AFOB 

0004 

000015 

AP 

OQo  9 

R 

GOCC 1 1 

AS 

0033 

K 

075067 

BEN 

000** 

000016 

BP 

5009 

C00035 

B9 

wi  C w 3 

130106 

CO 

0000 

R 

000C13 

DEL  X 

0 Du  0 

K 

ooocn 

DEL* 

30u9 

000072 

DEL  2 2 

0004 

00002 3 

DTCP 

0 3 v*  9 

CoOOC 1 

D T DUMP 

00*9 

300025 

DTP 

0202 

K 

075272 

DY 

UuU3 

C75H  l 7 

0 r o 

0009 

1 

300  jO 2 

E 

DOOM 

1 

OOGu3*» 

FAK 

flju) 

R 

076343 

Fb 

^033 

0777»r 

FF 

9001 

0003| 7 

I07L 

0001 

000324 

to«c 

0031 

000402 

1 12L 

0001 

0004  1 1 

1|3l 

0001 

000601 

1 1 7 L 

voooi 

000604 

I 1 Sc 

oooi 

0006J7 

1 2 1 L 

4floot 

000643 

I22L 

0001 

000703 

1 26L 

0001 

000724 

127l 

0001 

001134 

1 3 1 L 

0001 

001140 

I32(. 

0001 

001331 

136L 

0001 

000004 

1376 

0001 

002041 

i sol 

0001 

001472 

IS  1C 

0001 

000301 

I40L 

0001 

000474 

142c 

0001 

000625 

USL 

0001 

000440 

I44C 

0051 

001451 

192L 

0001 

001477 

17JC 

0001 

001244 

S22G 

0001 

001251 

5256 

0001 

001577 

4326 

0001 

001412 

4356 

0003 

R 

075605 

ALN 

0003 

012752 

AM* 

0009 

000214 

BETA 

0004 

I 

000003 

bnd 

0009 

000036 

CK 

O004 

000032 

COMpCn 

o cos 

000422 

DISP 

0004 

000007 

or 

0033 

R 

074716 

DX 

0003 

074757 

OXP 

0509 

N 

000031 

CPS 

0003 

I 

0^1235 

F 

00  3 3 

103024 

Ff  A A 

0033 

R 

076115 

F C 

PRO 


0003 

R 

076177 

FR 

0033 

R 

076261 

FT 

300** 

1 

000000 

FULL 

0003 

020337 

FX 

0003 

025725 

FY 

0005 

OOOOIO 

G 

0005 

000*420 

GOT 

000** 

000013 

HMU 

0006 

I 

000313 

I 

0301 

ooooss 

ICR 

0003 

077162 

icrack 

0005 

000230 

I DUMP 

ooos 

000232 

IEDIT 

0000 

I 

OOOOOl 

IJ 

0000 

l 

000021 

1 jfak 

0005 

1 

000057 

IJMAX 

0000 

l 

00000& 

1 JO 

0030 

l 

ooouOs 

I Jl 

ooos 

000251 

l KM  A X 

0001 

000060 

1 K M A X P 

0003 

1 

07751** 

IMAS 

000** 

0000**** 

IMAX 

OCo** 

I 

0000*16 

IMAXM 

0000 

000050 

INJP* 

0000 

I 

000016 

IP 

0005 

000231 

I PLOT 

000** 

000063 

l SEP 

0005 

000233 

1 STOP 

0006 

1 

000315 

J 

0001 

000056 

JCR 

0003 

077307 

JCRACK 

0033 

l 

077576 

JM  AS 

OCO<4 

0000*15 

JM  AX 

0001 

I 

000057 

JMAXM 

oooo 

1 

000017 

JP 

000*1 

00006** 

JSEP 

000** 

000051 

KBAR 

003*1 

000052 

KBARM 

0001 

000050 

KH  A X 

6000 

1 

060002 

L 

0005 

l 

000226 

LM  A X 

000** 

000070 

MMMAX 

0C05 

000235 

NAME 

0001 

000055 

NCYC 

0005 

OOO0&3 

NoUmF 

0000 

I 

000020 

NN 

000*1 

000067 

NNMAX 

0C06 

| 

030000 

NPT 

0006 

1 

OOOOOl 

HI 

0006 

I 

000602 

N2 

000** 

1 

000005 

OB 

000** 

000006 

obful 

0003 

053650 

P 

0000 

1 

000000 

part 

0005 

000111 

PBUt 

000** 

000027 

PM  I N 

0003 

R 

077016 

POB 

3033 

07*4553 

R 

0001 

I 

000062 

REV 

0003 

074S7 1 

RHOVO 

000** 

000012 

RH02 

0003 

07*1655 

RPL 

0030 

* 

000015 

RR 

0006 

R 

0003)6 

sarea 

0005 

000033 

SHEN 

000** 

1 

000061 

SMALL 

0005 

000250 

SMASS 

0005 

000252 

SMOM 

0001 

000035 

spen 

0005 

1 

0666O 1 

SUR 

0005 

000*«2l 

SVEL 

0006 

R 

000315 

SVOL 

0003 

033311 

SI  1 

0003 

050676 

SI3 

0003 

014243 

S33 

0005 

000227 

T 

0003 

R 

0755**** 

TAU 

000** 

000022 

TCP 

0001 

000020 

TOUNP 

0005 

•00017 

tlast 

000** 

00002** 

TP 

0003 

077660 

TT 

003** 

000326 

TTOTAL 

0003 

076632 

T 1 3B 

0003 

0^6473 

T33B 

0003 

R 

000000 

U 

0005 

R 

000253 

UBUL 

0035 

000053 

ucrack 

0003 

R 

077350 

U OB 

0003 

00S34S 

V 

0005 

R 

000335 

V Bll  L 

0003 

R 

076525 

VFOB 

0003 

n 

077532 

VOB 

0001 

000030 

VSCALE 

0003 

I0Q0SS 

vv 

0003 

100137 

vv  v 

0005 

0U0**23 

VZERO 

0003 

R 

075512 

X 

0003 

R 

07S751 

XB 

0005 

000000 

XBUL 

0006 

R 

000317 

XCENT 

0033 

R 

077100 

XCT 

3003 

066622 

XK 

0003 

R 

075615 

XPL 

0006 

R 

000003 

XPT 

000** 

000037 

XP  1 

000** 

000650 

XP2 

0030 

R 

00301 1 

XREV 

0001 

00006S 

XSEP 

0000 

R 

000003 

X 1 

0000 

R 

000007 

X 2 

0033 

R 

075020 

Y 

0003 

n 

076033 

YB 

ooos 

R 

000062 

YBUL 

0006 

R 

060320 

ycemi 

0003 

R 

076507 

YCT 

0003 

071556 

YK 

aou3 

n 

075155 

YPL 

0006 

R 

000157 

YPT 

0005 

O0OO1 I 

YPI 

000** 

0000**2 

TP2 

0030 

R 

03001 2 

YRE  V 

ooo<* 

000066 

YSEP 

0000 

R 

000005 

Y 1 

Oooo 

R 

OOOOIO 

Y2 

0003 

07771  1 

22 

000** 

000071 

22PRT 

ua 

a> 

K) 

U> 

O 


00101 

1 • 

SUBROUTINE  PRO 

000000 

09101 

2* 

001  01 

3* 

00101 

1 • 

000000 

00101 

s* 

00101 

6* 

00103 

7 • 

1 NC LUO t COM • L 1 ST 

000000 

00103 

e* 

c •••« 

00103 

a* 

COM* 

PROC 

000000 

00101 

e* 

PARAMETER  10*33  • JO  * 8S 

• KDMSQO  , NO  * 

12  .130-50 

000000 

00105 

B • 

parameter  ldmso  iNndip»2s 

,MMDIM»IC 

Oooooo 

00106 

8* 

parameter  naRR* io* id* jo* 1 1 • i 

IO*S*J0*17»1JD»2#XD^7*nNO|M*MMDIM 

000000 

00107 

e» 

parameter  nPaR-bv 

oooooo 

001  10 

8* 

COHMON/aRRAYS/U{ 1 4)  , JO  ) 

■ VI  ID , JD> 

.AHXClo.JO)  . 

oooooo 

00110 

a* 

• FX  ( 10, JO)  |FY< lO.JO) 

■ Silt  ID, JO) 

. S | 3 1 Id. JO)  . 

OOOOOO 

001 10 

8 • 

• S3 3 % IDt JO)  ,P(  lu. JO) 

• F ( 1 0 , JO  ) 

.xkiko)  • 

oooooo 

001  10 

8* 

•YK(KO)  ,X(ip) 

• RUO) 

. XPL 1 ID)  • 

oooooo 

00110 

0* 

• RPL  l 10)  , 0 X ( 1 0 ) 

,OXP«  JO) 

. V ( JD  ) • 

oooooo 

00110 

8 • 

• YPL(JD)  , 0 Y 1 JO ) 

,DYP( JO) 

• tauudi  • 

OOOOOO 

coho 

8* 

• ALN ( 1 JO)  1 BEN  C 1JD) 

.xa( 1 jo) 

.TttdJui  • 

oooooo 

001  10 

a* 

• FL(IJO)  , FR  l 1 JO ) 

• F T ( I JO) 

. F B ( IJD)  . 

oooooo 

091  10 

B* 

• VFOB  < IJD)  1 Y C Y ( 1J0) 

, RhO  V B l ID) 

. T J 38 ( t D 1 . 

600000 

001  10 

8* 

• T33DUD)  .AFOtjUJO) 

• POB ( IJD) 

.XCTUjD)  , 

oooooo 

COI  10 

e* 

• ICRACK (JO  ) , JCRaCK  < 10) 

• UOB ( I JO) 

.voetijD)  , 

oooooo 
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PHQ 


0 


OOl  10 

8 • 

• lHAS(IJO)  •JMAS(IJD)  i T T ( MNO 1 H ) tZZ 

( NNq I H 1 

• 

000000 

001  |0 

0* 

• FFCNNDlM)  ,Aa(hNO|M)  • FF  A A ( NND  l »1 ) »VV 

(NNDIM) 

• 

000000 

001  10 

8* 

•CDCNWDIH)  »VVV(MMD1«) 

oooooo 

001  I 1 

8 • 

COHMON/PARAMS/  FULL  * 5 UR  » E Mp 

• &ND 

• fax  , 

OOOOQO 

001  1 1 

• • 

•OB  .OBFUL  »PT  • G • AS 

» RHO  Z 

iHHO  « 

OOOOOO 

001  1 1 

0 • 

•BETA  iAP  *BP  .TLAST  .TOUPP 

t OTDUHP 

• TCP  » 

OoOoOO 

OOl  1 1 

8 • 

• D TCP  .TP  t OTP  .TTOTAL  .PH|N 

tVSCALE 

• EPS  , 

oooooo 

001  1 I 

0* 

•COMPEL  .SHEN  »SPEN  ,BW  »CK 

IXPI 

» XP2  § 

oooooo 

OOl  1 1 

$• 

• T P | ,YP2  .UCRAC*  ,IHAX  ,JM*X 

1 IMAXM 

iJMAXM  f 

oooooo 

OOl  1 1 

• • 

•UMAX  .KSAR  .((BARM  .NOUMP  .NCyC 

• ICR 

» JC  R • 

OOOOOO 

OOl  1 1 

• • 

• UMAX  iIKHAXP  .SHALL  .REV  .ISEP 

• JSEP 

tXSEP  , 

006000 

001 1 1 

• • 

• YSEP  i NNHAX  • HHH A x » 2 ZPR  T tOEL^Z 

oooooo 

OOl  |2 

• • 

INTEGER  F ,0B  .FULL  ,SUR  ,EMp 

• BND 

9FAX 

000090 

OOl  12 

• • 

• t P ART  »SMAlL  ,REV 

006000 

OOl  13 

• • 

OAT A FULL/ I/SUR/1/EMP/7/BN0/I0/F AX/ 1 3/OB/ 16/P ART /5/ 

oooooo 

00123 

• • 

DATA  rev/ is/shall/ii/ 

690009 

0012* 

• • 

DEFINE  INDEX  1 1 , JlaFLDIO, 18  .FI  1 , J) ) 

OOOOOO 

00127 

DEFINE  NB!T(N0tfll>|«FLD<  1 t«D) 

oooooo 

00130 

M 

INCLUDE  GELCHN.LIsT 

OOOOOO 

00130 

• • 

end 

000009 

00130 

8 • 

GELCHN  PROC 

oooooo 

00131 

0* 

parameter  QLMAX-So 

900090 

00132 

8* 

parameter  ngel»5*wlmaxm2*ih 

OOOOOO 

00133 

0* 

COMMON  /GELl/  XOUl  IGLMAX 1 .TBULIOLMAX 1 .PBUlIOLMAX | ,LMAX  ,T  . 

006009 

00133 

0 • 

. 1 DUMP . 1 PLOT  . ICulT  , ISTOP  .NAME! 1 2) .SHASS. IRHaX 

900000 

00133 

0* 

• , SH0H9U6UL(QLHAa) *VBUL(QlHaX) 

006090 

00133 

0 • 

• #ACC,GDT»SVELiDlSPtVzERO 

909990 

00133 

• • 

c 

000909 

00133 

I* 

END 

900009 

00131 

f* 

COMMON/ VOLCOM/NPT  tNl  , N2  , XPT ( 1 00 1 . TPT I 1 00 1 . 1 • J • 

SVOL 

900009 

60131 

10* 

••sarea.xcent.ycent 

900000 

00135 

U* 

AS--ACC 

OOOOOO 

00135 

12* 

OOOOOO 

00136 

1 3* 

DO  100  J*2 • JMAXM 

000001 

00111 

1 H* 

DO  100  1-2.IMAXH 

606021 

00111 

15* 

INDEX! | 9 J)«0 

. 000025 

00115 

14* 

IF  1 NB 1 T ( FAN »F C 1 t J ) 1 .N£ • | )Go  TO  1HC 

000027 

00117 

1 7 • 

CALL  OFF (FaK  ,F(  I , j) ) 

000036 

00150 

10* 

CALL  OFF ( RE V » F ( I • Jl 1 

000011 

00151 

1 ?• 

CALL  ON(EMP,F(  1 9J> ) 

000052 

00152 

20* 

U( 1 i J) «c«o 

000060 

00153 

2 I • 

GO  TO  100 

000061 

001S1 

2 2* 

1 HC  I F (NB ! T (OB  .F  11  , J) > #NEt 1)G0  TO  l Ou 

000063 

00156 

23* 

call  off  < ob • f ( i .J#  > 

0Q007I 

00157 

2 H • 

call  OFF(REV.F(  I ,J>  1 

000077 

00160 

25* 

CALL  OFF 1SMALL  < i t Jl) 

OQO|OS 

00161 

2 4* 

100  CONTINUE 

000 | 20 

00161 

27® 

DO  101  lJ-l.lJHAA 

000(20 

00167 

2 $• 

ALN( 1 Jl-0.0 

000|25 

00170 

2?  • 

BEN ( 1J)>0*D 

000(25 

00171 

30» 

AB( 1 J 1 ■ C • C 

000|26 

00172 

3 1 • 

Y B ( I J 1 *0 • 0 

000|27 

00173 

32* 

F L C I J I *3  • 0 

000(30 

CO  1 7 1 

33* 

F R(  1 • 1 *o 

OCO 1 3 1 
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PRO 


00175 

3m* 

FT! I J)-0.0 

000|32 

0017* 

35* 

FB< I J ) -0 • 0 

000133 

00177 

34# 

VFOB  ( I j » *0  * 0 

000|3<l 

00200 

37* 

AFOBI I J)-0.0 

000135 

00201 

38# 

FOB! I J) -0.0 

000 | 3* 

00202 

39  • 

XCTI IJI-0.0 

000(37 

00203 

MO* 

YCTI 1 Jl-0.0 

OOOMO 

0020*1 

Ml# 

UOBI 1 Jl-0.0 

0001*11 

00205 

M2* 

VOBI I J) -0.0 

000|  <12 

0020* 

M3* 

IMASt 131-0 

0001*13 

00207 

MM* 

aHASI I J)-0 

O00(  *1*1 

00210 

MS* 

101 

CONTINUE 

000|*l« 

002 1 0 

Mi* 

PROJECTILE 

POINTS  AND 

CALCULATE 

VALUES 

0001*1* 

00210 

M 7 ♦ 

CELLS. 

000|«l* 

00212 

MS* 

1050 

1 J-  I 

000|<l* 

00213 

M 9* 

Nl-I 

000151 

002  1 M 

5q* 

L-l 

000(52 

00215 

51* 

CALL  LCELL ( I . J • L > 

000(53 

0021* 

52* 

1-1 

0001*0 

00217 

53* 

INDEX!  I , J ) ■ I J 

000| *2 

00220 

SM* 

XI-0.0 

000(70 

00221 

5S* 

Yt-YBULl  I 1 

•00171 

00222 

Si* 

ml  1J1-CYI-YPL1  J-I  1 l/OYl  J) 

000(73 

00223 

57* 

1-2 

000(7* 

0022*1 

51* 

N2-3 

000200 

00225 

59* 

104 

N|«N0D(N2*2»M! 

•00203 

0022* 

40* 

IFCN1 .EQ*0)N1-M 

000207 

00230 

41* 

1 J 1 - I J 

000213 

00231 

42* 

I J- I J* 1 

•00215 

00232 

43* 

1 Jh  AX-  1 J 

000217 

00233 

4M* 

I F « I JH AX • LE  « Z JD ) Go 

TO  !0*n 

000220 

00235 

65* 

PRINT  12 

000223 

00237 

44* 

12 

forhatijh  ///'number  of  or  cells  exceeds 

DIMENSION 

LIMITS*  , 

000227 

002*10 

47* 

Returno 

000227 

002*11 

48* 

104C 

CONTINUE 

000232 

002*12 

49* 

I F 1 NB I T 1 UB  > F C 1 ,J>  ) . 

NE  • 1 ) GO  TO 

14C 

000235 

002*1*1 

70* 

I JO- 1 NOE  X ( I . J) 

0002*1*1 

002*tS 

7!* 

ALN( 1 Jl-ALNl 1 JO) 

0002*17 

002*1* 

72* 

BENI  I Jl-BENI  I JO) 

000251 

002*17 

73* 

X B C IJI-XBI 1J0) 

000253 

00250 

7 M • 

YB( 1 Jl-YBl 1 JO) 

000255 

00251 

75# 

FLC IJl-FLI IJO) 

000257 

00252 

74* 

FBI  I Jl-FBI 1 JO) 

0002*1 

00253 

77* 

FT  I I Jl-FTI 1 JO) 

0002*3 

0025*1 

78* 

FRI I JI-FRI I JO) 

0002*5 

002S5 

79* 

VFOB 1 1 J)«VF08I I JO, 

0002*7 

002S* 

80* 

AFOBI I J ) • AFOB I IJO, 

000271 

00257 

8 1 • 

XCTI 1 J)>XCTI IJO, 

000273 

002*0 

62* 

YCTI  1 Jl-YCTI IJO, 

000275 

002*1 

83# 

00  TO  111 

000277 

C02*2 

8 M • 

140 

INDEX  1 1 , J)-I J 

000301 

002*3 

8S» 

00  T0( 107 , 108, lo?  , , 

10) .Ni 

000305 

0C2*  *1 

84  • 

107 

FLI l JI-FRI 1 Jl , 

000317 

032*5 

87# 

00  TO  III 

000322 
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PRO 


00266 

as* 

138 

FT  ( 1 J 1 * F 3 1 1 J1 1 

000321 

00267 

89* 

<jO  TO  1 1 1 

000327 

00270 

90* 

109 

FR( l J)«FLt 1 J1 ) 

000331 

00271 

91* 

GO  TO  111 

000331 

00272 

92* 

1 1 J 

1 B t l J)»FT( l Jl 1 

00033* 

00273 

93* 

1 1 1 

CALL  CEXlT<|tJ»L»42»Y2»N2.X*EViYR£VtX|»YtaNU 

000312 

00271 

9M« 

IF (NB! T (Ob *r ( 1 • J> 1 »£Q. 1 )GO  TO  130 

00035* 

00276 

95* 

GO  TO( 1 12. 1 )3, ) | 1 , 1 151 ,N2 

000370 

00277 

9 6 • 

1 12 

FL(|J»"<7Pl(J)-Y2*/0TIJ) 

000102 

00300 

97* 

GO  TO  116 

000107 

00301 

98» 

113 

OOOll 1 

00302 

9 9 • 

GO  TO  11* 

000121 

00303 

100* 

1 19 

FRUJI-CY2-YPLIJ-1  ) »/0Y(J) 

.0012* 

0030*1 

I 0 1 • 

GO  TO  II* 

•00133 

0030S 

102* 

lib 

FB<lJ>-<X2**2-APH|-l)*«2|/(XPL<ll»*2-XPLll-l)**2) 

000135 

0030* 

103* 

1 16 

IF  CNBIT  ( «ev  ,F  ( I , J)  ) .NE  . | ) 1,0  TO  1*7 

000152 

00310 

lOf 

X 8 ( 1 J)«XREV 

0001*3 

0031  1 

1 05* 

YB(  ! Jl-YREV 

00016* 

00312 

106* 

OELX-XRE V-X | 

000170 

00313 

107® 

OFt  Y « Y h f V - * 1 

000172 

003)1 

108* 

G?  TO  163 

000171 

003 1 5 

1 09  • 

162 

Xtt(  1 JJ».5MXl+7?» 

00017* 

003)6 

1 10* 

YB ( 1 Jl* .5* ( Y 1 ♦?  2 1 

000502 

003)7 

111* 

0ELX-X2-X1 

00050* 

00320 

1 12* 

0ELY*Y2-Y| 

000511 

00321 

113® 

163 

RR.5QRT(0ELX**2^0tLY**2  ) 

000515 

00322 

IIM 

At  N ( 1J)»~DELY/Rf, 

00052* 

00323 

115* 

BENU  Jl-DELX/RR 

0.0532 

00321 

1 16* 

UOB ( I J ) • UBUt  < L- 1 ) 

000535 

00325 

1 1 7* 

V OB ( I J ) ■ VBUL ( L-  1 ) 

000510 

0032* 

lit* 

CALL  ONCOBiM  1 i J»  | 

000512 

00327 

1 19* 

IF  (N|  .NE#  I ir»0  TO  4 1 9 

000551 

00331 

120* 

I F t N2 . EG . 1 IGU  TO  16  9 

0005S7 

00333 

121* 

!F(N2*lG»2)G0  TO  117 

0005*2 

0033S 

122* 

1F(N2.l«.3)G0  TO  116 

0005*5 

00337 

1 23  • 

GO  TO  129 

000570 

00310 

1 29* 

1 • *» 

I F ( Y2 • LE • Y 1 IVjO  TO  liV 

, 000572 

00312 

125* 

F T ( I J ) ■ l *0 

000S7* 

00313 

126* 

117 

F R ( I J » - 1 *0 

«'*  000*01 

00311 

127* 

1 16 

FB ( 1 J) ■ | #C 

000*01 

00315 

128* 

GO  TO  129 

000*0* 

0031* 

129* 

119 

1 F ( N 1 • N£ • 2 ) GO  TO  |22 

000*10 

00350 

130* 

I F ( N2 . EG  « 2 1 GO  TO  j 65 

000*12 

003S2 

131* 

1 F ( N2.CQ « 3 ) GO  TO  l20 

000*15 

00351 

132* 

1 F ( N2 • EQ • 9 ) GO  TO  1 2 | 

000*20 

0035* 

133* 

GO  TO  129 

000*23 

003S7 

1 39* 

165 

IF(X2.LE«X1 1G0  TO  129 

000*25 

003*1 

135* 

FR< 1 J)«l .0 

000*31 

003*2 

1 34* 

120 

FBI 1J1-1 .0 

000*31 

00363 

137* 

121 

FLI 1 J 1 - 1 .0 

000*37 

003*1 

1 38  • 

GO  TO  129 

000*11 

003*5 

139* 

122 

IFIN1 «NE«3)GU  TO  | 2 5 

000*13 

003*7 

1**0* 

IF (N2.EQ.31G0  TO  l66 

000*15 

00371 

m* 

IF(N2.EQ.9 )G0  TO  l23 

000*50 
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PKO 


00173 

142* 

IFIN2.EQ. 1 IGO  TO  12* 

000653 

00375 

143* 

GO  TO  12? 

000456 

00374 

144* 

144 

IF ( Y2.GE«Y| IGC  TO  129 

000660 

00*00 

H5* 

FBI  1 JIM  *0 

00066* 

00*01 

144* 

123 

FLI  1 J)»l .0 

000647 

00*02 

147* 

12  4 

FTI  1 J>-| .0 

60&672 

00*03 

148* 

GO  TO  12? 

00047* 

60*0* 

IM* 

1 2S 

1 F I N 1 • EQ • * 1 GO  TO  |26 

000476 

00*04 

iso* 

RETURNO 

000700 

00*07 

1S1* 

124 

IF  1 N2.EQ ' * 1 GO  TO  |47 

•00703 

883!  1 

1*2* 

IFIN2.E8.IIG0  TO  |27 

•00783 

1S3* 

IFIN2.EQ.2IG0  TO  |26 

•00710 

00*|S 

1S4* 

GO  TO  129 

•00713 

00*14 

155* 

147 

1FIX2.GE*X| 160  TO  129 

•00710 

00*20 

1S4* 

FLI  1 Jl-l >0 

000721 

00*21 

1S7* 

127 

FTI  1JIM *0 

•0072* 

60*22 

I Si* 

128 

FRI  l JIM  *0 

I0&727 

00*23 

159* 

129 

XPT  I 1 1 « X I 

000732 

00*2* 

140* 

XPT (2I-X2 

•0073* 

00*2S 

lMf 

TPT  1 1 >■71 

000736 

00*26 

142* 

YPTI2IM2 

0007*0 

00*27 

143* 

NPT«2 

0007*2 

00*30 

14S* 

CALL  CELVOL 

•067** 

00*31 

145* 

VFOBI|J)"SVOL/ITAu<ll»DYljll 

0007*6 

00*32 

144* 

AFOBI  1 J)-SAREA/(Dx<  I I*Dy( Jl 1 

000755 

00*33 

147* 

XCTI 1 J) aXCENT 

■00762 

00*3* 

1 4 • • 

YCTI  l J 1 ■ YCENT 

00076* 

00*35 

1 4f  • 

1FIVF0BI IJI •GT.EPSIGO  To  130 

000766 

00*37 

170* 

CALL  ON | SHALL .F ( 1 ,J) > 

000771 

00**0 

I7|* 

130 

IFIN2.EQ'! 1 1*1-1 

•0l0»3 

00**2 

172* 

IFIN2.EQ.2I  J-JM 

001010 

00*** 

173* 

IFIN2.EQ.3)  1*1  + 1 

001016 

00**4 

1 7 <1  • 

IFIN2.EQ.MJ-JM 

00102* 

00*50 

175* 

141 

XI-X2 

001032 

00*51 

174* 

Y l ■ Y2 

00103* 

00*52 

177* 

IFI  1 .NE. 1 ) GO  TO  1 j6 

g 001036 

00*5* 

178* 

CALL  LCELLI 1 . J. 1 1 

r 0010*1 

00*55 

17?* 

00  135  L-2.LMAX 

0010*6 

00*60 

160* 

CALL  LCELLI IP. JP.L) 

0OIO53 

00*61 

16|« 

IFI  I.EU.IP.ANO.J«E8»JPIgO  TO  135 

001060 

00*63 

182* 

IFINBI  T IREV  ,F  1 1 , J|  1 .E8.  |T.r,0  TO  13* 

00107* 

00*65 

183* 

IF  1 IP.LE. 1 IGO  TO  | 31 

001 106 

00*47 

m* 

IFINBI T (OB. FI  I ,J*1 II .EQ. 1 IGO  TO  132 

001 1 12 

00*71 

185* 

CALL  ONIFAK.FI 1 ,J*I I 1 

00112* 

00*72 

184* 

GO  TO  132 

001132 

00*73 

I 8 7 • 

131 

IFI  IP.GE. 1 IGO  TO  132 

00113* 

00*75 

188* 

IFINBI T IOB ,FI I ,J-| )) .£8. IIGO  TO  132 

001 |37 

00*77 

189* 

CALL  ONIFAK ,F( l , J-l II 

001151 

00500 

190* 

132 

IFIJP.LE.JIGO  TO  | 33 

00l|60 

00502 

1 9 | • 

IFI  I “ 1 .EQ. 1 IGO  TO  13* 

001163 

OOSO* 

192* 

1FINBITI0B.FI l-|  .Jl  1 .E*. 1 IGO  TO  13* 

001 167 

00506 

193* 

CALL  ON  IF  AK.FI l-l , Jl  I 

001201 

00507 

1 9 4 • 

GO  TO  13* 

001207 

00510 

19S* 

133 

IFI JP.uE»JIGO  To  .3* 

OC 1 2 1 1 
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p*0 


00b  | 2 

196* 

IF<Nil!T(Urt.r4lM«J>>-F‘W.M6w*  T j 13*< 

001211 

0051  M 

1 979 

CALL  CHIP AK  ,r  C 1 *1  , J » J 

00122* 

00515 

19M 

1 3M 

1 » IP 

00123* 

00S|4 

1 99» 

J- J P 

00123* 

0051  7 

200* 

1 3s 

corn  inue 

00 1211 

00*21 

20  1 • 

DO  137  N N ■ 1 i 2 

00 1211 

005  2 M 

20  2 9 

00  137  J«2,JrtAXM 

001251 

00527 

203* 

00  137  |9|MAXH,2i-l 

0012*5 

00532 

20M  • 

ir(NBITIOB,rU  f J)  j »EQ.  I )6U  TO  437 

0012*5 

005  3 M 

205  • 

iriNBlKFAMFlUI.JPI.EQ.iiaU  TO  136 

001271 

00534 

204* 

IF ( N B I T ( FAK i F 1 I-l  , J ) ) • t 0 • 1 ) GU  TO  136 

001303 

OOSMO 

207  • 

IF (NB|T ( F A F i F ( 1 |J^1  ) ) » E Q « I )GO  TO  136 

001312 

005M  2 

20i  • 

IF1N8I ( (FAK.F 1 1 , J-l  )| *Ne  • 1 150  TO  137 

001321 

00SMM 

209  • 

136 

CALL  ON ( F AF  » F ( 1 ,Jj  ) 

001331 

005  H S 

210* 

137 

CONTINUE 

001311 

00551 

211* 

00  190  J-2.JNAXM 

001311 

0055  M 

2 1 2 • 

DO  190  I ■ 1 M A A M , 2 t - 1 

0013*5 

00557 

2 1 3 • 

IF  (N8|  f (FAX,F(  I , J)  ) .NE-  1 »f,0  Tj  I 9C 

0013*5 

00541 

2 l M • 

IF ( Nb 1 T ( FA' ,F ( 1- 1 , J 1 » .*  0 . | j *0  TO  191 

001371 

00543 

2 1 S • 

IF  < No  | 1 ( Ob  ■ r « 1 - ] t .•  > 1 *LD.  ( > GO  Tu  Ml 

00H03 

00545 

214* 

IF ( No  J T { BND . F 1 I - 1 . J 1)  . 1 . . 1 1 3U  10  191 

001H2 

00547 

217* 

is  0 lu  195 

001121 

00570 

218* 

1 9 l 

IF(NblKFAN,P<l*l,JII#f».|;iU  TO  19? 

00! 123 

00572 

2 19* 

IFlMBinOBJMM.JlItEi.lluO  TO  If? 

00H31 

0057  M 

2 209 

IFINBlMBNOiP  (M,J))>LO«l)(iU  TO  192 

001110 

00574 

22  1 • 

60  TO  195 

001117 

00577 

2 2 2 9 

19? 

IF<NB|T(FAK,F  < 1 , J-H  )> -Eg.  1 |60  TO  193 

00H5I 

00401 

2 2 3 • 

IF (N81 T (OB »F ( 1 • J9 1 1 ) *LQ#  1 )G0  TO  193 

001157 

00403 

2 m* 

IFINilTIBNPiF < 1 «J+|  I ) .Eq, 1 )S0  TO  193 

0011** 

00405 

2259 

60  TO  |95 

001175 

00404 

2 24* 

193 

1F(N0 | T (FAK ,F ( I , J-l  J)  .EQ.  1 ) GO  TO  194 

001177 

004|0 

227  • 

if(nbiT(Ob,m  i ,j-i  » i .tajuQ  to  194 

001505 

004  ] 2 

2 2 1 • 

IFCNBITlBNu.F ( 1 , J-l  > > .Ey  • 1 )GO  TO  194 

001511 

004  1 M 

2299 

19b 

CALL  OFF  1 FAF ♦ F 1 1 , J)  ) 

001521 

00415 

2309 

60  TO  190 

0C153I 

004  14 

23  l • 

196 

CALL  OFF (FULL  * F ( 1 , J ) ) 

=01533 

0041  7 

2 32  9 

CALL  OFF I(hp,f||(j|, 

001510 

00420 

2 33  9 

call  offisum.f  1 1 . 

30151* 

00421 

2 3 M 9 

1 Vy 

continue 

0015*1 

004  2 M 

2 359 

1 J * 1 J K A X ♦ 1 

0015*1 

00425 

2349 

FLC 1 Jl-l *0 

0015*1 

00424 

2 37  9 

FR(  1 J)-|  .0 

0015*7 

00427 

238* 

Fe ( 1 J ) * 1 • 0 

001570 

00430 

239  9 

FT ( IJ1-1.0 

001571 

00431 

2M0* 

DO  150  J-2,JMAXn 

001577 

006  3 M 

2 M 1 • 

00  150  1 ■ 2 . IMAXM 

001*12 

00437 

2 M 2 9 

1 F ( NB  1 T ( F AN  »F  ( 1 , J i ) .£L  . | • OR  #NB  I T ( OB  .F  ( 1 , J ) ) •C'J  • 1 > ^0  TO  150 

001*21 

006m  1 

2 M 3 • 

IF (NB ! T (Fax .F ( I , J*  1)  1 .NE # | ) 6U  TO  151 

001*15 

006H3 

2 M M • 

FTC  I J)«C«0 

001*51 

006mm 

2M59 

ALN( I J 1 «0«0 

001*5* 

006MS 

2M49 

BEN ( 1 J ) * 1 . 0 

001*57 

006M6 

2 m 7 9 

X B ( I J ) ■ X ( 1 1 

001**1 

006 M 7 

2 H 8 9 

TB ( I J ) « YPL ( J ) 

001**3 

00650 

2 M 9 9 

1 JFA*  » INDEX ( ! • J*  I i 

OP  1 6*5 
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OObSI 

250* 

GO  TO  IBM 

001670 

00*52 

25  | • 

I 5 I 

JF1NBI T CFAK ,FI l-l , Jl 1 .NE* 1 )G0  TO  152 

001*72 

00*51 

252* 

FLI 1 Jl-0.0 

001706 

00*55 

253* 

ALN ( l J>«-1 .0 

001707 

00*5* 

259* 

BEN ( I J)«0#0 

001711 

00*57 

255* 

X B ( IJl-XPLCl-I  1 

001712 

00**0 

254* 

V B ( IJ)»Yl J) 

001711 

00**1 

257  • 

1 JFAK«INDEX(  l-I  , J» 

001716 

00**2 

258  • 

GO  TO  159 

001720 

60**3 

251* 

152 

1F1NBIUF61C.FC  I ,J-1  1 1 .Nf.  | )C0  TO  153 

001722 

00**5 

2*0* 

FBI  1 J)»0*0 

00173> 

00444 

24  | • 

ALN ( I J)«0«0 

•01736 

00**7 

262* 

BENI  1 J>»-| *0 

001737 

00*70 

243* 

XB< 1 J)»X< I 1 

001711 

00471 

249* 

YB« 1JI-YPL1 J-I ) 

001713 

00*72 

265* 

I JFAK«INOEXl 1 i J-l j 

001715 

00473 

244* 

CO  TO  151 

001717 

00*7  1 

247* 

153 

IF(NBIT1FaK»F< !♦! § J ) ) • N £ # I )G0  TO  |50 

00I7&I 

00*7* 

26  8* 

FR(  1 J)«OtO 

001765 

00*77 

26f  • 

ALN ( I J ) - I .0 

001766 

00700 

270* 

BENI  1 J)«0*C 

00177* 

00701 

27  I • 

X B ( 1 J)-XPL( 1 ) 

001771 

00702 

2 72* 

YBC 1 J)”Yt J> 

001773 

00703 

273* 

1 JF AK»  1 NDEX  ( 1M  ,J| 

001775 

00701 

2 7 9 • 

159 

XCTU  JI-XC  I ) 

002000 

00705 

275* 

YCTI I J ) • Y ( J ) 

002006 

00706 

27  6 • 

INDEX! I » J > « I J 

002010 

00707 

27y 

AFOB ( I JJ-I .0 

002012 

007 1 0 

278* 

VFOB ( | J)*I «0 

0020H 

0071  1 

2 7f  • 

UOB ( | J)«U0B( I JFA*) 

002015 

00712 

2«0* 

VOB 1 I J J ■ VOtt I IJFaK) 

002017 

007  i 3 

281  • 

CALL  ON ( OB  » F ( I » J J ) 

002021 

00711 

282* 

i J«I J*l 

002027 

00715 

283* 

FLI I J > ■ I «0 

•02033 

00716 

289* 

F R ( I J ) * I • 0 

002035 

007|7 

2 85  • 

F T ( 1 J)«l .0 

00203* 

00720 

28  A • 

FBI  I J)-i .0 

002037 

00721 

287* 

ISO 

CONTINUE 

002015 

00721 

288* 

1 JMAX«1 J-l 

002015 

00721 

289* 



PRINT  OB  CCLl  yOAMTItlES. 

002015 

00725 

290* 

RETURN 

002050 

00726 

29  | • 

END 

002113 

end  of  compilation: 
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BF0R,5  prplt 

FOR  SE2C-09/ t*/ 75-u9  . 39  . \ lwl) 


SUBROUTINE  PRPLT  ENTR1  POI"7  JCCri  i 


STORAGE  USED:  cODE(1)  000226j  OATA(O)  000250;  BLANK  C0MM0N(2)  OOOOoO 
COMMON  BLOCKS: 


0003  ARRAYS  10G1S1 
000*1  PARAMS  000073 
OOOS  GEL!  000626 


EXTERNAL  REFERENCES  (BLOCK,  NAME) 

0006  NPKTS 
0C07  NIOIS 

0010  N 1 02  S 

0011  NI03S 

0012  NERR3* 


STORAGE  ASSIGNMENT  (BLOCK,  TYPE,  RELATIVE  LOCATION,  NAME) 


0000 

000175 

1 OF 

0000 

0C0202 

l IF 

0001 

000035 

|6  ie 

0003 

077773 

AA 

OOOS 

OOOS | 7 

ACC 

0003 

07673S 

afob 

0003 

012752 

AMX 

OOOS 

oooois 

AP 

ooos 

00001 1 

AS 

OOOS 

I 

000003 

BND 

OOOS 

000016 

BP 

ooos 

00003S 

BO 

OOOS 

000032 

COMPEN 

OOOS 

000072 

DELZ  Z 

ooos 

000S22 

DI5P 

OOOS 

000021 

DTDUMP 

ooos 

00002S 

DTP 

0003 

07S716 

ox 

0003 

075*4 1 7 

DYP 

OOOS 

I 

000002 

EMp 

ooos 

000031 

EP5 

0003 

0763S3 

FB 

0003 

0777S2 

FF 

0003 

I0002S 

FF  A A 

0003 

076261 

FT 

ooos 

I 

OOOOOO 

full 

0003 

020337 

FX 

OOOS 

000S20 

GOT 

ooos 

000013 

HMU 

0000 

1 

0001 7S 

1 

ooos 

000230 

1 DUMP 

0005 

000232 

IEDIT  1 

ooos 

OOOOS7 

I JMaX 

0003 

07  7 5 1 S 

1 MAS 

ooos 

I 

OOOOS 1 

imax 

O00S 

OOOOS6 

JMAXM 

OOOS 

000063 

1 SEP 

0005 

000233 

l S TOP 

cooo 

1 

000173 

J 

0000 

1 

000172 

JJ 

0003 

077576 

JMAS 

ooos 

I 

OOOOHS 

JMAX 

OOOS 

OOOOSi 

KBAR 

ooos 

000052 

KBARM 

ooos 

ooooso 

KMAX 

0000 

1 

000171 

N 

ooos 

I 

00023S 

NAME 

ooos 

ooooss 

NCYC 

OOOS 

1 

ooooos 

OB 

ooos 

000006 

OBFUL 

0003 

OS 3650 

P 

OOOS 

000027 

P M 1 N 

0003 

077016 

POB 

0003 

07*4553 

R 

OOOS 

000012 

RH02 

0003 

07S6S5 

RPL 

ooos 

000033 

SHEN 

OOOS 

0002S2 

SMOM 

ooos 

00003S 

SPEN 

ooos 

l 

000001 

SUR 

0003 

0S0676 

S l 3 

0003 

0S6263 

S 3 3 

ooos 

R 

000227 

T 

OOOS 

000020 

T DUMP 

ooos 

000017 

TLAST 

ooos 

00002S 

TP 

0003 

076632 

T 1 3 B 

0003 

076673 

T33B 

0003 

OOOOOO 

U 

0003 

077350 

UOB 

0003 

005365 

V 

ooos 

00033S 

VBUL 

OOOS 

000030 

vscale 

0003 

100055 

vv 

0003 

100137 

VVV 

0003 

075751 

xa 

OOOS 

OOOCCO 

XBUL 

0033 

077100 

XCT 

OOOS 

000037 

XP  l 

OOOS 

OOOOS3 

XP2 

OOiiS 

C3006S 

XSEP 

0001 

ooooss 

9003 

07S60S 

0003 

07S667 

0003 

100106 

ooos 

000007 

0003 

07S7S7 

• 0,3 

I 

061235 

0003 

076115 

0003 

02S72S 

ooos 

OOOOSS 

ooos 

OO02SI 

0000 

0002 1 S 

ooos 

OOOOS6 

ooos 

0000S7 

ooos 

000226 

ooos 

O000S3 

0000 

I 

OOOOOO 

ooos 

l 

000062 

ooos 

I 

000061 

ooos 

000S2 1 

0003 

07SSSS 

0003 

0776,0 

0009 

000253 

0003 

076S2S 

ooos 

OOOS23 

0003 

066622 

0003 

075020 

I SOG 
AUN 
BEN 
CO 
OT 
OXP 
F 

Ft 
FY 
ICR 
I KM  A X 
INJPS 
JCR 
JMAXM 
LNAX 
NDUMP 
PART 
REV 
SMALL 
SVEL 
TAU 
TT 

UBUL  OOPR 

VFOB  *063 

VZERO  0003 

XK  0003 

Y 0003 


tS<*G 
alfhan 

• ETA 
CK 

DTCP 
OY 

fa* 

FR 
G 

ICRaCK 
IRMA*? 
IPLflt 
JCRaCk 

user 

HMHaX 
NNHAX 
P»Ul 
076571  RHOVB 
Q00250  9KASS 
033311  SI  1 
000022  TCf 
000026  TTOTAL 
000063  UC*AC* 
077632  VOI 
0765} 2 X 
076616  XPL 
076033  YB 


0001  000061 
0000  R 000001 
0006  0*0016 
0006  000036 

0006  000023 

0003  075272 

0006  I 000006 

0003  076177 

0066  000610 
0003  I 077162 
0006  000060 

0005  000231 
0003  1 077307 

0006  000066 

0006  000070 

0006  000067 

OOOS  000166 
0003 

0005 
0003 

0006 
0006 
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0005  030C62  YBUL 

0004  OOOOM2  Yp2 


0033  076502  YCT 

OOtlH  000066  YSEP 


0033  071556  YK 

3003  077/11  ZZ 


0003  0751M5  YPL 

000  M 000071  ZZPRT 


OOOM  OOOOMl  YPl 


00101  1* 


SUBROUTINE  PRPLT 


00101 

00101 

00101 

00101 

00101 

00103 

00103 

00103 

OOION 

00105 

00106 
OC  107 
00110 
00110 
001  10 
00110 
00110 
00110 


2» 
3* 
M • 
5» 
6* 
7 • 
• • 
8» 
a* 

B» 

a* 
e» 
a • 
a* 
a* 
a* 
a* 
a* 


€••• 

COM* 


INCLUDE  COM, LIST 


PROC 

PARAMETER  ID»33  ,30*65  ■K0*!500  ,ND*12  ,|JD*50 

PARAMETER  LD* 1 50  ,NNDlM*25  ,HMOIM*IO 

PARAMETER  NARR*IC»ID»JD*I1*IU*S»JD+I7»1JD*2*KD*7»NNDIM6HMDIH 


PARAMETER  NPAR-57 
C0MM0N/aRRAYS/U(1o,JD> 

• F X ( I D , JD  ) • F Y 1 ,0,30) 

• S33  < I D , JD  I i P T 1 U , JO ) 


• YK  < KO ) • X ( lo I 

•RPL(IO)  ,0X110) 

• YPL I JO  I ,DY»J0I 


• V ( 1 0 ■ JD ) 

• Sill  ID, JO) 
, Ft  10, JO) 

,R  I ID ) 

, DAP ( 101 
,OYPI JO) 


• AMX ( ID, JO* 
,513110, JO) 
.Xk(KO) 

, XPL ( 1 03 
,Y( JD) 
•TAUlIo) 


00110 

8* 

• ALNl 1 JD)  • 6 r N ( 1 JO) 

• XB ( | J0» 

,VB( IJO) 

. 

00110 

8* 

•FL(IJD)  i FR 1 1 JO ) 

, FT  1 I JO  1 

•FBI IJO) 

• 

00110 

8 • 

• V FOB ( 1 JO)  iYCT ( I JO) 

, RHOVB 1 10) 

,T)3ac 10) 

• 

00110 

8 • 

• T 3 3 B ( ID)  tAFOtil 1 JD) 

, POB ( I JD) 

,XCT( 1 JO) 

• 

00110 

8« 

• ICRACKC  JD|  » JCRaCM  ID) 

• UOB ( I JD) 

, V08 ( IjO) 

t 

001  10 

8* 

• IMAS< I JD)  . JHA5C 1 JO) 

,TT  CNN01M  1 

•ZZ(NNOIM) 

• 

00110 

8* 

•FF(NNDIM)  .AAInNDIM) 

• FFAA1NND1M)  .WCNNdIM) 

t 

00110 

8* 

• CD ( NND 1 M ) • V V V i MftD 1 M ) 

0011  1 

8« 

COMHON/PARAMS/  full 

• SUR 

, EMP  ,bNO 

. F A K 

00111 

8» 

• OB  .OBFUL  t DT 

• G 

, AS  , RHOZ 

• HMU 

00111 

8* 

•beta  .ap  .bp 

•TlASY 

, TOUMP  .DTDUMP 

.TCP 

001  1 1 

8« 

•OTCP  .TP  .DTP 

.ttotal 

t P M | N , VSCALE 

• EPS 

001  1 1 

8* 

•COMPEN  ,SHEN  .SPEN 

• BO 

,CK  ,XP1 

,XP2 

0011  1 

e« 

•rpi  ,yp2  «dcrac< 

. 1 M A X 

.jmax  .imaxh 

. JMAXM 

001  1 1 

8» 

• kmax  ,k&ar  .KBARm 

. NDUMP 

.NCYC  , ICR 

. JCR 

001  1 1 

8* 

• 1JMAX  i 1 A M A X P .SMALL 

.REV 

,ISlP  .JSEP 

.XSEP 

0011  1 

8* 

•YSEP  .NmMAX  .MMMAX 

.ZZPRT 

•delZz 

00112 

8* 

INTEGER  F .00  .FULL 

• SUR 

,EMP  ,3N0 

• FAX 

001  12 

8 • 

• .PART  .SMALL  ,REV 

00113 

8* 

DATA  FULL/ I/5UR/M/EMP/7/6ND/I0/FAK/ 13/06/ 16/PART/S/ 

00123 

8 • 

DATA  RtV/IS/SMALL/lH/ 

00126 

8* 

DEFINE  INDEX! l.J)«FL0(0, 18 

• F ( 1 ,J)  ) 

00127 

«• 

DEFINE  NBIKNB.WD  j«FLD<36- 

NB. 1 >8D) 

00130 

8« 

include  gelcmn.list 

00130 

8* 

END 

00130 

8 • 

GE  L C M N PROC 

0C131 

8 • 

PARAMETER  QLMAX«5j 

00132 

8 • 

PARAMETER  NGEL"&*wLHAAM2«. 

1R 

00133 

8* 

COMMON  /GEL  1 / XDUl(WLMAX). 

YBUL (OlMaX ) , 

PBUl ! OLMAX ) ,LMAX  , T , 

000005 

000005 

OQOOOS 

000005 

000005 

000005 

000005 

000005 

000005 

000005 

OoOoos 

000005 

000005 

000005 

000005 

•00005 

000005 

000005 

QOOOOS 

000005 

000005 

000005 

000005 

000005 

000005 

000005 

OoOoOS 

000005 

000005 

000005 

000005 

000005 

000005 

ooooos 

000005 

000005 

000005 

ooboos 

000005 

000005 

000005 

000005 

ooooos 

000005 

000005 

000005 

000005 

000005 
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PRPlT 


00133 

8* 

. IOUMP,IPLOT,)£o|T, 1 StOp , NAMt 1 12)  , ShmSS , 1 K M * X 

000005 

00133 

8* 

• • SM0M.U8UL<QLMAx) »VBUL(QlMAX) 

000005 

00133 

8 • 

• .ACC.GOT.SVELiOlSP.VZERO 

00600s 

00133 

8 • 

C 

000005 

00133 

• • 

END 

000005 

0013H 

t* 

0 I HENS  1 ON  ALPHA  f)l|20) 

000005 

00135 

10* 

OATA  ALPHAN/ I20*8h  / 

000005 

00137 

1 !• 

PRINT  10. 1NAME1ID  ,N-1  , 10)  ,T 

ooooos 

00H6 

I 2* 

10  FORMAT! IH1 ,10A*,*h  TIMEa.IPC12.il 

000015 

001  *16 

1 3* 

C 

000015 

001H7 

1 M* 

00  101  J J* 1 • JMAX 

000015 

00 152 

IS* 

J»JMAX-JJ^ 1 

000015 

00152 

14* 

c 

000015 

00153 

1 7 • 

00  100  I"I.IMAX 

000051 

00 1 S3 

l $• 

c 

60O0SI 

00156 

It* 

IFINBITIFULL.F! I > J ) ) • EQ . I ) ALPHAN ( {• I ) a • • « 

0000*1 

OOUO 

20* 

1F(NB1T!SUR,F( 1 ,J) I.EQ.l 1 ALIHAN ! 2* | 1 a • * » 

000070 

001*2 

2 I* 

IF(NBIT(EMP.F(l,J)I.E0.|)ALPHANl2*|)a.  * 

000077 

001*1 

22* 

1F1NBIT (BND.F! 1 , J ) I.EQ.l )ALPHAN(2*|  ) a • • • 

OOOlO* 

001*4 

23* 

IF!NBITIFAK,F(I,J|).EQ.) )ALPHAN(2*I)a*A» 

000115 

00170 

2M* 

IF  < NBI T(0B.F( 1 • J> ) .EQ. | ) ALPHAN! 2»  | )a»0* 

000|21 

00172 

25  • 

IF  1 1 .EQ. 1CRACK! J) .AND.  J.EO. JCRACKI 1 ) ) ALPHaN <2. 1 )a«c» 

000|33 

00171 

24* 

100  CONTINUE 

000 |S5 

00171 

27* 

c 

000|6$ 

0017* 

28* 

PRINT  III  ALPHAN 

000155 

00201 

2t  • 

II  FORMATUH  • 1 20A  1 ) 

000|*4 

00202 

30* 

101  CONTINUE 

OOO)** 

00201 

31* 

RETURN 

000)4* 

00205 

32* 

END 

000225 

END  OF 

COMPILATION;  NO  DIAGNOSTICS. 

9HDG 


rdkum 


V 
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©FOR,S  ftDNuM 

FOR  SE2C-0V/19/75-C,9:39:32  (0,) 


RORUM 


SUBROUTINE  RORUM  ENTRY  POINT  00003o 


STORAGE  USED:  cOOEUl  0C004GJ  DaTA(O)  uOSGIHj  *LANK  COMMON(2)  oooooo 

COMMON  BLOCKS: 

0003  ARRAYS  1001S1 
000*1  PARAMS  000073 
OOOS  GELi  00042R 


EXTERNAL  REFERENCES  (BLOCK,  NAME) 

0006  NT  RAN 

0007  NERR3S 


STORAGE  ASSIGNMENT  (BLOCK,  TYPE,  RELATIVE  LOCATION,  NAME) 


0003 

077773 

A A 

OOOS 

0004 | 7 

ACC 

0003 

076734 

AFOB 

0004 

oooois 

aP 

0004 

OOOCI  1 

AS 

0003 

075667 

BEN 

0004 

000016 

BP 

0004 

00003S 

BQ 

0003 

100106 

CO 

0004 

000072 

0ELZ2 

OOOS 

000422 

D1SP 

0004 

000007 

DT 

0004 

00002S 

OTP 

0003 

0747  | 6 

OX 

0003 

07  **757 

DXP 

0004 

1 000002 

EMP 

0C04 

000031 

EPS 

0003 

| 06I23S 

F 

0C03 

Q 7 7 7 R 2 

FF 

0003 

100024 

FF  A A 

00u3 

0761  IS 

fl 

0C04 

I OOOOOO 

FULL 

0003 

020337 

FX 

0003 

025/24 

FY 

0004 

000013 

HMU 

0004 

OOOOSS 

ICR 

0033 

077162 

ICRACK 

0004 

OOOQS7 

1JMAX 

OOOS 

000251 

UMAX 

0004 

C0CJ60 

IKMaXP 

0004 

0CCO46 

1 maxm 

0000 

000010 

INJPS 

OOOS 

C0023I 

iplot 

OOOS 

0C0233 

1ST0P 

0004 

C003S6 

JCR 

0003 

077307 

jc  Rack 

0004 

CG0G**7 

J M A X M 

0004 

01)0064 

JSEP 

CC04 

DOOOSI 

KBAR 

0C05 

000226 

LM  A X 

0004 

000070 

HMM  A A 

00x5 

030234 

NAME 

0004 

OCOG67 

N N M A A 

b004 

1 000005 

Ob 

00J4 

000x06 

OBFUL 

OOOS 

000 1 R 4 

PBUL 

0004 

C0C027 

PM  IN 

0333 

37/016 

P09 

0003 

076S7I 

RHOVo 

00o4 

OOOCI 2 

RHOZ 

0GD3 

07  -*o5S 

RPL 

OOOS 

0002S0 

SMASS 

OOwS 

0002S2 

Spom 

0004 

000034 

sPEn 

0003 

03331  1 

St  1 

0003 

040676 

S 1 3 

u0i)3 

046263 

S33 

0004 

000022 

TCP 

0004 

000020 

TDUMP 

0004 

0301)17 

TL  AST 

0004 

00  OC  26 

TTOT At 

uOu3 

076632 

TUB 

u033 

0 7 6o7  3 

T33B 

0004 

000GH3 

UCRACK 

OC03 

077350 

UOB 

0093 

005365 

V 

0003 

077432 

vUB 

0004 

000030 

VSCALE 

0033 

1 OO0S5 

vv 

0003 

0 7 4 S 1 2 

X 

0003 

076751 

XB 

0 CO  s 

OOOOOO 

X0UL 

0003 

074614 

XPL 

0004 

000337 

XPI 

0334 

000040 

XP2 

0G03 

076333 

Tri 

0005 

0x0062 

YBUL 

0C03 

076507 

rcT 

CCU4 

COOC4 1 

Y P 1 

0004 

C00342 

YP2 

0004 

030066 

YSEP 

0003 

0756Q5 

ALN 

0003 

012752 

AMX 

0004 

000014 

beta 

0004 

I 

000003 

BNP 

0004 

000036 

CK 

D004 

000032 

COHpEN 

0004 

000023 

DTCP 

0004 

000021 

otouhp 

0003 

075272 

OY 

0003 

07S4 1 7 

DTP 

0004 

I 

000004 

fak 

0003 

076343 

FB 

0003 

076177 

FR 

0003 

076261 

FT 

0004 

ooooio 

G 

OOOS 

000420 

GOT 

0005 

000230 

IOUMP 

OOOS 

000232 

IEPIT 

0003 

07  7 S 1 4 

imas 

0004 

000044 

I MAX 

0004 

000063 

I SEP 

0000 

1 

OOOOOI 

ISTaT 

0003 

077576 

JMAS 

0004 

000045 

JMAX 

0004 

000052 

KBARM 

0004 

ooooso 

KMAX 

0004 

000054 

MCYC 

0004 

0000S3 

noUhp 

0003 

0536S0 

P 

0000 

1 

OOOOOO 

PART 

0003 

074553 

R 

5004 

I 

000062 

REV 

0004 

000033 

SHEN 

0004 

I 

000061 

SMALL 

0004 

1 

oooooi 

SUR 

OOOS 

000421 

SVEL 

0005 

000227 

T 

0003 

07SS44 

TAU 

0004 

000024 

TP 

0003 

077660 

TT 

0003 

R 

OOOOOO 

U 

boos 

000253 

UBUL 

OOOS 

0003JS 

VBUL 

0003 

076425 

VFOb 

0003 

100137 

VVV 

0005 

000423 

VZERO 

0003 

077100 

XCT 

0003 

0666,2 

XK 

0004 

000065 

XSEP 

0003 

075020 

t 

0003 

071556 

yk 

0003 

07S I 45 

YPL 

0003 

077711 

ZZ 

0004 

000071 

ZZPRt 
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RDRUH 


OOIOI 
00103 
00 1 03 
0010** 

00105 

00106 
00107 
001  10 
001  10 
001  |0 
001  10 
001  10 
001  10 
001  10 
001  10 
001  10 
001  |0 
001  10 
001  |0 
001  to 
001  to 
001 1 I 
001  1 I 
001 1 I 

ooi  n 

001 1 I 
OOI  | I 
OOI  I I 
OOI  I I 
OOI  I I 
00112 
OOI  |2 
00113 
00123 
00126 
00127 
00130 
00130 

00130 

00131 

00132 

00133 
00133 
00133 
00133 
00133 
00133 
00 1 3 H 

00135 

00136 

00137 
OOI  HO 
00  I H I 


1 • 

SUBROUTINE  RDRUM 

000000 

2 • 

INCLUDE  COM, LIST 

000000 

2 • 

COM® 

PROC 

00.000 

2 • 

PARAMETER  I 0 «3  3 #JD«85 

•KD-ISOO 

,ND«12  • I JD  *^0 

oooooo 

2 • 

parameter  ld*iso  ,nndim«?s 

,MHOIM«IO 

Oooooo 

2# 

parameter  narr-io® id® jd® i i*i 

0®S®JD®I7»IJO®2®KO®7#NNDIM®MMDIM 

600000 

2* 

parameter  NPAR«5? 

OOOOOO 

2® 

COMMON/aRRAYS/UUd.JD) 

,V( 10, JO) 

,AMX( lo.JD) 

• 

oooooo 

2* 

• FX(  ID, JD)  • F Y 1 | D • JD ) 

.SIIIID.JDI  . 5 | 3 ( | D i JO  1 

, 

oooooo 

2® 

• S3  3 ( ID, JD)  t P < I D • JD ) 

• FI  ID. JD) 

* Xk ( KD  J 

, 

oooooo 

2* 

®YK(KD)  |X(ID) 

.R( 1 D I 

.XPLtlDI 

, 

oooooo 

2® 

• RPLCIO)  , DX ( | D ) 

•DXPI ID) 

• Y I JD) 

, 

OOOOOO 

2* 

•YPLIJDI  ,DY<JD) 

•DYR( JO) 

.yauiid) 

• 

ooOooo 

2« 

• ALN  C 1 JD)  i BEN | 1 JD) 

.XBI  1 JO) 

. VB 1 IJD) 

» 

oooooo 

2* 

•FL(IJD)  ,FR(IJD) 

.FTC IJD) 

.FBI IJD) 

. 

oooooo 

2 • 

• VFOB  ( IJD)  .YCTUJD) 

.RHOV,{ ID) 

, T 1 38 1 | D j 

, 

oooooo 

2* 

• T 3 38  ( ID)  ,AFOb( IJD) 

.P0B  I |JD) 

,XCT( IJD) 

1 

oooooo 

2® 

• ICRACKi  JD)  .JCRaCM  ID) 

,UOB( I JD) 

. VOBI 1 jD) 

. 

OOOOOO 

2 • 

• IMAS(  IJD)  • JMASC IJD) 

.TMNNOIHi 

iZZ(NNolM) 

» 

OOOOOO 

2* 

•FF(NNDIM)  ,AA(NNDIM) 

. F F A A I NNO I M ) .VVINNoIM) 

, 

OQOOOO 

2® 

•CO(NNDIM)  ,VVV<MMD!M) 

006000 

2* 

common/params/  full 

• SUR 

» EMP  iBNO 

.FAX  , 

ooOooo 

2 • 

•OB  .OBFUL  ,DT 

. G 

.AS  .RHOZ 

, HMU  • 

OoOooo 

2® 

• BETA  , A P , BP 

•tlast 

• TDUMP  iDTDUHP 

• TCP  t 

OOOOOO 

2* 

• DTCP  .TP  , DTP 

,TTOTaL 

, PM | N .VSCALE 

.EPS  v 

OoOooo 

2 • 

•compen  ,shen  ,spen 

, B W 

,CX  .XPI 

• XP2  , 

oooooo 

2* 

•Yp|  ,YP2  .UCRACK 

• IMAX 

,JMaX  .imaxm 

.JMAXH  » 

006000 

2* 

•KHAX  ,XBAR  ,KBARM 

, NDUMP 

,ncyc  .ICR 

. JCR  . 

oooooo 

2* 

• UMAX  .IKMAXP  .small 

, RE  V 

,ISeP  » jSEP 

» X5EP  , 

OOOOOO 

2 • 

•YSEP  , NNM AX  .MMMAX 

, 2ZPRT 

.dclzz 

0000,0 

2 • 

INTEGER  F ,00  .FULL 

• SUR 

•CMP  .aRO 

• FAX 

606000 

2* 

• .PART  , SMAlL  ,REV 

oooooo 

2* 

DATA  FULL/ I/SUR/H/EMP/7/Bnd/IO/F AX /13/UB/l 6/PaRT /S/ 

oooooo 

2 • 

DATA  REV/IS/SMALL/14)/ 

OOOOOO 

2 • 

DEFINE  INDEX  ( liJ)>FLDI3,ln,ni  , J)  1 

OOOOOO 

2* 

DEFINE  NBITINB.RD.-FLD136-NB 

, 1 ,*D) 

OOOOOO 

2 • 

INCLUDE  IjELCMN  i L 1 b T 

oooooo 

2® 

END 

oooooo 

2® 

GELCMN  PROC 

OOOOOO 

2® 

PARAMETER  QLMAX-So 

OOOOOO 

2® 

PARAMETER  NGEL*5®*LMAX® | 2 ♦ i h 

OOOOOO 

2® 

COMMON  /GEL  I / XqUc(ULMaX)  .YBULIQLHaX)  ■ 

PBUl(DLMAX) .LMAX.T, 

006000 

2® 

. ioump  , iplot  , i edit,  i stop,  name  ii2i.shaSs.ik"ax 

006000 

2® 

• , SHOM.UBULIQLHAA)  .VBUL(OLHAX) 

oooooo 

2® 

• .ACC.GDT.SVEL.DISP.VZErO 

OOOOOO 

2® 

C 

OOOOOO 

2® 

END 

OOOOOO 

3® 

CALL  NTRANI  1 1 , 10i2.NPaR.FUlL 

. ISTAT) 

oooooo 

CALL  NTRANI 11.22) 

000007 

5® 

CALL  NTRANI  1 1 .2, NaRR.U.  ISTaT) 

000013 

6* 

Call  NTRANI 11,22) 

000022 

7® 

RETURN 

000026 

8® 

END 

000037 

End  of  compilation:  no  diagnostics 


O 

ft 

o 


3 

< 


* 


3 

0 

1 
9 
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srORtS  REFLAG 

FOR  SE2C-09/l9/7S-0?;3V;36  (3,1 


reflag 


SUBROUTINE  REFLAG  ENTRY  POINT  0007SU 


STORAGE  USED:  CODEUi  0007S7J  OaTA(O)  000035  j BLANK  common  ( 2 ) 000000 
COHHON  BLOCKS: 

0003  arrays  iooisi 
DOOR  PARAMS  000073 
OOOS  GEL  I 000*24 

0004  SPCOM  000002 


EXTERNAL  REFERENCES  (BLOCK,  NAME) 


0007 

OFF 

0010 

CELL 

0011 

ON 

0012 

lccll 

0013 

CEX1T 

00 l* 

NERR3S 

STORAGE 

ASSIGNMENT  (BLOCK,  TYPE 

, RELATIVE  LOCATION,  NAME) 

0001 

000104 

10U 

0001 

000546 

1 02L 

0001 

000544 

IOJl 

0001 

000474 

104L 

0001 

000*17 

I05t 

0001 

000211 

10*L 

0001 

000330 

1 07L 

0001 

000301 

1 OIL 

0001 

0002SI 

IIIL 

oooi 

0O073O 

12ft 

0001 

00000* 

1416 

0001 

000017 

1 4 4 G 

0001 

00003* 

1 53g 

0001 

000*10 

242G 

0001 

000423 

2454 

0001 

000**0 

254G 

C001 

0004S2 

257G 

0001 

#00574 

314G 

0001 

000410 

3 1 7 G 

0001 

000747 

343g 

0001 

000720 

3 H 4 G 

0003 

077773 

AA 

0035 

000*17 

acc 

0003 

07473* 

Afoe 

0003 

Of 54§5 

A t N 

0003 

0127S2 

A M X 

00J4 

000015 

AP 

000* 

OOOOl  1 

AS 

0003 

075447 

B£N 

000* 

000014 

BETA 

0004 

1 

000003 

BND 

0004 

000016 

BP 

000* 

000034 

BQ 

0003 

100104 

CD 

000* 

O0O034 

CX 

0004 

000032 

COhPfcN 

0004 

000072 

0EL2Z 

OOOS 

000*22 

D1SP 

000* 

000007 

DT 

ooo* 

060033 

OTCP 

0004 

00002  1 

DTDUMP 

0004 

000025 

OTP 

0033 

07*714 

DX 

0003 

07*757 

DXP 

0003 

075272 

OT 

0003 

075* 1 7 

DYP 

0004 

1 

000002 

Ehp 

000* 

003031 

EPS 

0003 

I 

041235 

F 

Ooo* 

1 

000004 

fax 

0003 

0743*3 

FB 

0003 

077742 

FF 

0003 

10002* 

FF  A A 

0003 

074115 

FL 

0003 

074177 

rn 

0003 

074241 

FT 

0004 

I 

000000 

FULL 

0003 

020337 

FX 

0003 

02572* 

F Y 

boo* 

000040 

« 

0005 

000*20 

GOT 

0004 

000013 

HMU 

0000 

i 

000003 

1 

000* 

000055 

ICR 

0003 

077 I 62 

*C*AfX 

0005 

000230 

1 DUMP 

OOOS 

000232 

1 ED  1 T 

000* 

000057 

UMAX 

0005 

000251 

UMAX 

ooo* 

000040 

lXMA*r 

0003 

07751* 

I MAS 

0004 

000044 

imax 

000* 

1 

0300** 

1HAXM 

0000 

OOOQI 7 

INJP* 

0005 

000231 

irtoT 

0004 

I 

000043 

1 SEP 

OOOS 

000233 

ISTOP 

0000 

1 

000002 

J 

000* 

000054 

JCR 

0003 

077307 

jcrack 

0003 

077574 

JMAS 

0004 

00004S 

JMAX 

000* 

I 

0000*7 

jmaxh 

000* 

1 

00004* 

JSEP 

0000 

J 

000604 

X 

0004 

1 

000051 

KBAR 

0004 

000052 

Kb  ARM 

000* 

000050 

KM  A X 

0004 

000000 

KSEP 

0000 

1 

000004 

L 

0005 

000224 

lhax 

00  OB 

1 

oooooi 

LSEP 

003* 

000070 

MMMaX 

0005 

00023* 

NAME 

ooo* 

0000S4 

NCTC 

0004 

000053 

ndupp 

0004 

000067 

NNMAX 

0033 

1 

000005 

Nl 

0000 

1 

OOOOl  1 

M2 

boo* 

1 

000005 

OB 

0004 

000004 

obful 

0003 

R 

053650 

P 

3030 

1 

000000 

PART 

0005 

0001** 

PBUL 

OOO* 

000027 

PM  1 N 

0003 

077014 

POB 

0003 

074553 

R 

030* 

I 

000042 

REV 

0003 

07457 1 

RHOVB 

ooo* 

000012 

RHOZ 

0003 

07*455 

R PL 

0C04 

00CC33 

SHEN 

3C00 

| 

030001 

SKIP 

000* 

1 

000041 

small 

0005 

000250 

SMASS 

0005 

000252 

SMUM 

OOJ4 

0JGC34 

SPEn 

oOO* 

I 

oooooi 

SUR 

00  j5 

009*21 

SVEL 

0003 

R 

06331 1 

SI  1 

0003 

R 

0*0676 

S I 3 

OOG  3 

R 

5462<,3 

S33 

u0^5 

930227 

T 

0033 

0755*  * 

T AU 

ooo* 

000022 

TCP 

REFLAG 


OOO4 

000020 

TDUMP 

00tl4 

CQ001 7 

TLAST 

<3034 

9G0C24 

TP 

0003 

077660 

TT 

0304 

000026 

ttotal 

0003 

0/6632 

T 1 36 

JC03 

076673 

T33B 

3033 

000300 

U 

ooos 

000253 

UBUL 

0004 

000043 

ucRaCk 

0003 

077350 

UOB 

0003 

DOG  365 

V 

ooos 

930335 

V 6UL 

0003 

076425 

VF0B 

0093 

077432 

VOB 

0004 

000030 

vscale 

0003 

I 00055 

vv 

00  j3 

100137 

WV 

ooos 

000423 

V2ER0 

0003 

074512 

X 

0003 

075751 

XQ 

0005 

000000 

XBUL 

0003 

077.00 

XCT 

0003 

066622 

XK 

0003 

07  4 6 1 4 

xrt 

ooos 

000037 

xpl 

000** 

000040 

XP2 

0000  R 

00 JO  1 4 

XRE  V 

0004 

000065 

X5EP 

0000 

r 000007 

xi 

0000 

R 000012 

X 2 

0003 

075020 

Y 

3003 

976033 

YB 

OOOS  R 

000062 

ybul 

0003 

076507 

YCT 

0003 

071656 

Y* 

0003 

075145 

ypl 

0034 

33004 1 

YP1 

000*1 

000042 

YP2 

0000 

R 000015 

YRE  V 

0004 

000066 

Y SEP 

0000 

R 000010 

Yl 

oC30  n 

000013 

Y 2 

0003 

077711 

ZZ 

0004 

000071 

ZZPRf 

00101 

1 • 

SUBROUTINE  REFLAG 

000000 

00101 

2 • 

> 000000 

00101 

3* 

> 000000 

00101 

4 • 

€••• 

CELLS  TO  ACCOUNT  FOR  ThE  FACT 

THAT 

000000 

00101 

s* 

€••• 

oooooo 

00101 

6 • 

• oooooo 

00101 

y 

> oooooo 

00103 

8 • 

INCLUDE  COM , L T ST 

OOOOOO 

00103 

?• 

> oooooo 

00103 

10* 

c*## 

oooooo 

00103 

10* 

COM* 

PROC 

oooooo 

00104 

\o^ 

PARAMETER  l 0"33  ,J0«8S 

.KD-lktO 

. ND«  ft  2 *|JD«SO 

oooooo 

00105 

10* 

parameter  ld-isg  *nndim»2s 

iMMDIM-IO 

oooooo 

00106 

10* 

parameter  narr»io*io*jo*i  i*id*5*jo*i7* 

1 JD*2*KD^7*nNDIM*MMdIM 

oooooo 

00107 

10* 

PARAMETER  NPAR-5? 

oooooo 

001  10 

10* 

COMMON/ ARR A YS/U(  lO. JD) 

• VC  ID. JO) 

. amxj 1 u « JD 1 

. 

oooooo 

001  10 

10* 

• F X < ID, JD)  i F Y C jD,JD> 

• SIHtO.JOl  « S 1 3 1 1 0 • JO  1 

. 

oooooo 

00110 

10* 

•5331 10. JO)  .PC  t D • JD) 

• n id.  jd) 

.XKlKDl 

. 

oooooo 

001  10 

10* 

• YKCXD)  » X < 1 U > 

•RC 10) 

• XPL 1 to) 

. 

oooooo 

001  10 

10* 

•RPLC1D)  .DXCTO) 

.OXPC ID) 

,T( JD1 

. 

oooooo 

001  10 

10* 

•TPLCJD)  .OYCJO) 

. 0 Y P C Ju  ) 

.TAUllol 

. 

oooooo 

001  10 

10* 

• A L N C 1 JD)  i BCN ( 1 JD) 

• X B ( 1 JO ) 

» T b 1 1 JQ  1 

. 

oooooo 

001  10 

10® 

•FLC1JD)  .FRCIJC) 

,FT ( 1 JD) 

.FBI  1 JO) 

. 

oooooo 

00110 

10* 

•VFOBC  I JD)  .YCT l I JO) 

.RMOVBC  I D > 

,T|3B«  ID) 

. 

oooooo 

001  10 

10* 

• T33BC  10)  . Af  JttC I JO) 

.PJB (1JD) 

. XCT 1 1 jOI 

. 

oooooo 

001  10 

I0» 

•1CRACKC  JO)  . JCRaCM  lU) 

iUJB ( 1 JD  ) 

» V OB | 1 JO) 

. 

oooooo 

001  10 

1C« 

• 1 M A S ( I JD)  .JMAbC  1 JO) 

.TT  (NNDlfi) 

.Z2INNalM| 

. 

oooooo 

001  10 

10* 

•FF(NNDlM)  .AA(nNuIM) 

.FFAAINNOIhI  ,VV(NN3tM| 

• 

oooooo 

001  10 

1 0* 

•CD(NNDIM)  .VVV(MMDIM) 

oooooo 

001  1 1 

10« 

common/params/  full 

• SUR 

. EMP  .BRO 

• fax  . 

oooooo 

00111 

10* 

•OB  .OBFUL  lOT 

. G 

.AS  .RHOZ 

»HMU  » 

oooooo 

001  1 1 

10» 

•BETA  .AP  .BP 

.TLAST 

.TDUMP  .OTDUMP 

• TCP  . 

oooooo 

001  1 1 

10* 

•DTC?  .TP  .OTP 

.ttotal 

.PM  1 N .VSCALE 

.EPS  . 

oooooo 

001  1 1 

10» 

•COMPEN  »ShEN  .SPEN 

• B<i 

.CK  .XPI 

. X P 2 » 

OOOOOO 

9011  1 

10* 

• Y P 1 • Y P2  .UCRACK 

» IMAX 

■ JM  A X .IMAXM 

.JMAXM  . 

OOOOOO 

001  1 1 

to* 

•kmax  ,kbar  .kbaRm 

.NDUHP 

.NCTC  .ICR 

. JCR  . 

OOOOOO 

001  1 1 

10* 

•ijmax  .ikmaxp  .small 

.REV 

•ISeP  .jsep 

. X SEP  . 

oooooo 

001  1 1 

1C* 

• YSEP  .NNMAX  • h rt  H A x 

• Z Z P R T 

.delzz 

oooooo 

00)12 

10" 

INTEGER  F .OB  .FULL 

.SuR 

.EMP  . 0ND 

.Fax 

oooooo 

091  12 

10* 

. .PART  .SMALL  .REV 

oooooo 

00113 

10* 

LATA  FuLL/t/SUR/^/EMP/T/BNU/lC/FAK/lD/UB/lA/PAKT/^/ 

090009 
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00123 

10® 

DATA  REV/IS/SMALL/1H/ 

oooooo 

00126 

10® 

0EF1NE  INDEX U , JJ-FL010,  l8,F< I ,J) ) 

000000 

00127 

10* 

DEFINE  NB|T<NBiKD>«FlO<36-nB.  1 »*0) 

oooooo 

00130 

10* 

INCtUOE  SELCMN.LlST 

oooooo 

00130 

10* 

ENO 

OOOOOO 

00130 

IQ* 

GCLCMN  PROC 

oooooo 

00131 

10* 

PARAMETER  SLMAK-So 

OOOOOO 

00132 

10* 

parameter  ngel-5»«lmax* i 2* n 

OOOOOO 

00133 

10® 

COMMON  /GELI/  XOUtlOLMAX) .TBUlCOLMaXJ  ,PBUu<8LMAXI ,LMAX,T , 

oooooo 

00133 

10* 

. 1 DUMP,  I PLOT  , (EDIT, 1ST  OP. NAME  lltl.Srl  ASS, ikmax 

oooooo 

00133 

10® 

• , SMOM.UBULIQLHAx) (VBULIULMAX) 

oooooo 

00133 

10® 

• ,ACC,G0T,SVEL»|)ISP,VZER0 

OOOOOO 

00133 

10® 

c 

oooooo 

00133 

10® 

END 

ooOooo 

00 131 

11® 

COMHON/SPCOM/KSE^  tLSEf 

oooooo 

00I3S 

12® 

INTEGER  SKIP 

oooooo 

00136 

13® 

DATA  SK | P/ l 2/ 

OOOOOO 

001  40 

1 H® 

DO  100  J*2 » JM  AXH 

oooooo 

001  *13 

15® 

00  100  I-2.IMAXM 

000017 

001 16 

16® 

CALL  OFF  1 PART , F ( 1 ,J)  1 

000017 

001  *(7 

17® 

100  CONTINUE 

000027 

00 1 4 7 

16® 

000027 

001S2 

It® 

DO  101  K-I.KBAR 

000027 

oo  i ss 

20® 

CALL  CELL! 1 ,J,K) 

0OOO34 

00IS6 

21® 

IF(NB1T(FAK,FU  ,J)  1 ,EQ,  | UO  TO  101 

000044 

00160 

22® 

CALL  ON<PART,F( 1 ,J> ) 

000053 

00161 

23® 

CALL  ON { SUR ,F  1 1 , J ) ) 

0000*2 

00162 

2*t® 

CALL  OFF  1 EMP , F ( I ,J) ) 

000071 

00163 

25® 

CALL  OFF  (FULL ,F ( 1 , J>) 

006077 

001*4 

26® 

101  CONTINUE 

000(07 

00166 

27® 

Nl-I 

000(07 

00167 

2 B • 

L-l 

000(1 ( 

00  1 70 

29  • 

CALL  LCELLU  ,J.L> 

000(12 

00171 

30® 

Xl-O.C 

000( (7 

00172 

31® 

T1-YBUL1I  ) 

000(20 

00173 

32® 

1-2 

000(22 

00174 

33® 

N2-3 

000124 

00175 

3M» 

105  N|-M00(N2*2,4| 

000(27 

00176 

35® 

IFCN1 .EQ.01NI-4 

000(33 

00200 

36  • 

CALL  CEXtT(|.J,L,A2,r2,N2.XREV,YKEV,X|,r|,NI) 

000(37 

00201 

37® 

IF1L.GT.LSEP1G0  To  106 

000(54 

00203 

38® 

CALL  ON(FULL,F< | ,J) ) 

000(63 

00204 

39® 

CALL  OFFIEMP.FI l ,J>  > 

000(72 

00205 

**0® 

CALL  OFFISUR ,F1 | , Jll 

00020 ( 

00206 

HI® 

60  TO  107 

000207 

00207 

H 2® 

106  1F( NBI T ( SK |P,F ( | , J) ) ,EQ. 1 )G0  TO  107 

0002 1 ( 

00211 

H3® 

IF1 I.EG. 1SEP. AND, J.E«. JSEPlGO  TO  ||| 

000222 

00213 

1F1NBIT (PART ,F< I ,0)1 ,NE. 1 )G0  To  108 

000236 

00215 

H5® 

1 1 1 CALL  0N1SUR.F1 I , J, ) 

000251 

00216 

M6® 

CALL  OFFIFULL.Fl 1 ,J)  » 

000262 

00217 

M 7 • 

call  offiemp.fi  I , j 1 1 

000271 

00220 

*♦6® 

GO  TO  107 

600277 

00221 

H9» 

toa  CALL  0N1EMP.F1 1 ,Ji > 

000301 

00222 

5C® 

CALL  OFFIFULL.F ( 1 ,j)  ) 

300312 
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00223 

51# 

CALL  OFF ( SUR » F ( I , J) ) 

000321 

00  22* 

52* 

107 

CALL  ON ( SK | P * F I 1 ,J)  1 

000330 

0022S 

53* 

IFIN2.EC.  1 1 1-1-2 

000340 

00227 

5M* 

IFIN2.EQ.2) J»J*1 

000314 

00231 

SS* 

IF1N2.E0.3) I-I*| 

000342 

00233 

SA* 

1 F ( N2.E9«*»)  J-J-l 

000370 

00235 

S7* 

X1-X2 

000374 

00234 

SI* 

TI-Y2 

000400 

00237 

St* 

IFU  • NE  « 1 160  TO  1 o5 

000402 

0024  | 

60* 

00  109  J»2 . JMAXM 

000410 

002MH 

A I • 

00  109  1-2.IMAXM 

000423 

002m  7 

62* 

CALL  OFFISKIP.FI I , JJ 1 

000423 

00250 

63* 

1C9 

CONTINUE 

000433 

002SD 

am* 

C< 

FROM  suh 

TO 

full 

OR 

SUR 

TO  EMP. 

000433 

00253 

65* 

00  103  J-2.JHAXM 

000433 

00256 

66* 

00  103  1 ■ 2 > I M A X H 

0004S2 

00241 

67* 

IFINBI T( SUR ,F t I , J> 1 .NE. I 160  TO 

i 193 

000452 

00243 

At* 

IF<NBIT<OB1F< 1 .J) J .EQ. 1 )G0  TO 

103 

000440 

0024S 

At* 

1F(NB1T(PART|F( 1 . J) 1 .EQ. l)GO  TO  103 

000447 

00247 

70* 

I F C NB 1 T ( EhP • F ( 1*1 , J) ) .EQ. I ) GO 

TO  102 

000474 

00271 

71* 

IFINBI r IEHP.F  < t-l , J> ) .£«. 1 )00 

TO  102 

000503 

00273 

72* 

IF<NB1T(EMP.F< I ,J*III .Eo. 1 160 

TO  102 

000512 

00275 

73* 

IFINBI TIEHP.FI  1 .EQ. | )60 

TO  102 

000521 

00277 

7M* 

CALL  ON<FULL,F< 1 , J) ) 

.00530 

00300 

75* 

CALL  OFF ( SUR • F ( I , j) ) 

000534 

00301 

76* 

GO  TO  103 

.00544 

00302 

77* 

102 

CALL  ON ( EMP • F ( I , J)  ) 

000544 

00303 

78* 

CALL  OFF ( SUR  #F ( I . J)  ) 

000553 

003OS 

7 1 • 

SI  I (1 , Jl-0.0 

.00541 

00305 

69* 

S331 1 , Jl-0.0 

000542 

00304 

81* 

P( I , J)-OtO 

0Q0543 

00307 

82* 

stall #ji -o.o 

000544 

00310 

83* 

103 

continue 

006571 

003|0 

8M* 

c* 

FROM  SUH 

TO 

full 

OR 

FULL 

TO  SUR  • 

000571 

00313 

85* 

00  lot  J-2.JNAXM 

000571 

003|4 

86* 

00  13t  1*2. IMAXM 

000410 

00321 

87* 

IFINBI T ISUR.FI 1 ,J| I .NE. | ICO  TO 

luM 

000410 

00323 

68* 

IFINBIl lEHP.FI 1*1  .J)  1 . LQ  . 1 )00 

TO  1CH 

000414 

00325 

89* 

IF (NBl 1 1 EMP . F < I-l , J » 1 .EQ. 1 I GO 

TO  I CM 

000425 

00327 

90* 

IFINBI T IEMP.FI  1 , J*l ) 1 .EQ. I) GO 

TO  1CH 

000434 

00331 

91* 

IFINBI T (EMP ,F I 1 , J-| II ,EQ. 1 )G0 

TO  10* 

000443 

00333 

92* 

IFINBITIOB.fi  1 .Jij.EQ.IlGO  TO 

10M 

000452 

00335 

1 3 • 

CALL  ON(FULL,F( I ,j) ) 

000441 

00334 

9 M • 

CALL  OFFISUR.FI I , Jll 

000447 

00337 

95* 

1 DM 

CONTINUE 

000701 

00337 

96* 

c* 

SPECIAL  FLAGGING 

FOrf 

OB 

cells. 

000701 

00342 

97* 

DO  129  J-2. JMAXfl 

000701 

00345 

98* 

DO  129  I ■ 2 • IMAXM 

000720 

C03S0 

99* 

IF  C N B I T ( SUR  * F ( I , J j 1 • NE  • 1 IqO  To 

1 29 

000720 

00352 

100* 

SI  1 ( I , J)«C.C 

000724 

00353 

101* 

S 1 3 ( I , j 1 «0.0 

000725 

C03S4 

102* 

S33( 1 . J) “0.0 

000724 

00355 

IC3* 

1 2 v 

CONT I NU£ 

000756 

C036C 

1C*** 

END 

000754 
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STORAGE  USED:  CODE!  I)  000126;  DaTA(O)  0000301  BLANK  COMMON  C 2 J ooooco 

COHHON  blocks: 

0003  arrays  iooisi 

000*1  PARAHS  000073 

OOOS  GEL  I 00092*1 


EXTERNAL  REFERENCES  (BLOCK.  NAME ) 

OOOS  SORT 
0007  NERR3S 


STORAGE  ASSIGNMENT  (BLOCK.  TYPE,  RELATIVE  LOCATION.  NAME) 


0001 

000070 

100L 

0001 

OGOIOl 

1 0 1 L 

0000 

R 

000004 

A 

0003 

077773 

aa 

0006 

000H7 

ACC 

0003 

07*739 

AFOB 

0000 

R 

ooooos 

ALA 

0003 

R 

075*05 

ALN 

0003 

012752 

AMX 

0004 

0000 1 s 

AP 

0004 

00001 1 

AS 

0000 

R 

00000* 

BEA 

0003 

R 

075*47 

BEN 

0004 

000014 

BETA 

0004 

1 

000003 

B N B 

0004 

0000*4 

BP 

0004 

00003S 

BO 

0003 

100104 

CD 

0004 

00003* 

CK 

0004 

000033 

COPpCN 

0000 

R 

000007 

COSTH 

0000 

R 

000010 

0 

0004 

t00Q7| 

delzz 

OOQS 

000422 

OISP 

0004 

000007 

aARKn e 

OT 

0004 

000023 

DTCP 

0004 

000021 

DTOUMp 

0004 

000025 

DTP 

0003 

07471* 

OX 

0000 

R 

000003 

OX  A 

0003 

079757 

OXP 

0003 

075272 

OY 

0000 

n 

000003 

dya 

0003 

075417 

OTP 

0004 

1 

000002 

EMP 

0004 

000031 

EPS 

0003 

l 

0*1235 

F 

0004 

I 

•00004 

FAK 

0003 

07*343 

FB 

0003 

077712 

Tf 

0003 

100029 

FF  A A 

0003 

076115 

FL 

0003 

074177 

FR 

0003 

07*241 

FT 

0004 

1 

OOOOQO 

FULL 

0003 

020337 

FX 

0003 

025724 

FY 

000  4 

030010 

G 

0005 

000420 

GOT 

0004 

000013 

hmu 

0004 

ooooss 

I CR 

0003 

0771*2 

ICHAClC 

OOOS 

000230 

10UHP 

OOOS 

000232 

IEDIT 

oooo 

I 

oooool 

1 J 

0004 

000057 

I jMAX 

OOOS 

000251 

1 KM  AX 

0004 

000040 

IKMaXP 

0003 

077514 

IHAS 

0004 

ooooii 

1 max 

0004 

00004* 

1MAXM 

0000 

00001 3 

INJPS 

OOOS 

000231 

I PLOT 

0004 

000043 

1 SEP 

0005 

000233 

ISTOP 

0004 

0000S4 

JCR 

0003 

077307 

JCR ACK 

0003 

07757* 

JM  AS 

0004 

000045 

JM  A X 

0004 

0000*17 

JMAXH 

0004 

000049 

JSEP 

0004 

000051 

kbaR 

0C34 

OOOOS2 

kbarh 

0004 

000050 

KM  A X 

0005 

000224 

LM  A X 

0004 

000070 

MMMAX 

OOOS 

000234 

NAME 

0004 

000054 

nCYC 

0004 

000053 

ndump 

0004 

000047 

nnmax 

0004 

1 

ooooos 

OB 

0004 

COOOO* 

OBFUL 

0003 

053450 

P 

0000 

I 

000000 

part 

0005 

ooom 

PBUL 

0004 

000027 

PM  1 N 

0003 

07701* 

POB 

0003 

07<t5S3 

R 

0004 

1 

000042 

REY 

0003 

074571 

RMOVB 

0004 

000012 

RHOZ 

0003 

074*55 

RPL 

0004 

000033 

SHEN 

0004 

1 

000041 

SHALL 

OOOS 

000250 

SMA5S 

OOOS 

000252 

SMOM 

0004 

000034 

SPEN 

0004 

t 

oooool 

SUR 

OOOS 

000421 

SVEL 

0O03 

0*331 1 

SI  1 

0003 

090*76 

SI3 

0003 

04*2*3 

S33 

OOOS 

000227 

T 

0003 

075544 

tau 

0OO4 

000022 

TCP 

0004 

000020 

TDUMP 

0004 

000017 

TL  AST 

0004 

000024 

TP 

0003 

0774*0 

TT 

0004 

000024 

ttotal 

0003 

07**32 

T 1 3b 

0003 

07**73 

T33B 

000  3 

000000 

U 

OOOS 

000253 

ubul 

0004 

000013 

UC  R ACK 

0003 

077350 

UOB 

0003 

0053*5 

V 

OOOS 

000336 

VBUL 

0003 

074425 

VFOB 

0003 

077132 

VOB 

0004 

000C30 

VSC  ALE. 

0003 

1 00055 

vv 

0003 

100137 

V V V 

OOOS 

000423 

vzero 

0003 

07HSJ2 

X 

0003 

R 

075751 

XB 

0005 

OOOOCO 

XBUL 

0003 

077100 

XCT 

0003 

R 

064422 

XK 

0003 

071 6 1 1 

XPL 

0004 

C00037 

XP  I 

0004 

000040 

XP2 

0004 

0000*5 

XSEP 

0000 

R 

00001 1 

XXX 

0003 

075020 

y 

0003 

R 

07*033 

Ye 

0005 

0000*2 

YBUL 

0003 

07*507 

YCT 

0003 

R 

07155* 

YK 

0003 

075115 

YPL 

0004 

C00041 

YPl 

0004 

000042 

YP2 

OC  04 

3000** 

Y SEP 

0000 

R 

0000)2 

TTY 

0003 

07774 1 

zz 

0004 

CC007 l 

ZZPRT 
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vQ 

a> 

10 

ju 

VO 
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SUBROUTINE  REFLCTj  I ,J,K) 

000001 

OU  1 (J  1 

ooioi 

£ 9 
3® 

00101 

H9 
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»•••••  ThlS  ROUT  1 1| E REFLECTS  PARTICLES  THAT  HAVE  CROSSED  THE  SURFACE 

000001 

00101 

s# 

c • • • 4 

»•••••  OF  The  PROJECTILE,  cell  INDICES  and  PARTICLE  NUMBER 

ARE 

000001 

00101 

*• 

000001 

OOIOI 

7® 

00101 

0® 

00103 

f • 

include  com, list 

000001 

OOIOI 

10® 

00103 

11* 

C®*®' 

INDEX  |J, 

000001 

00103 

l 1 • 

COM* 

PROC 

000001 

0010*1 

1 1 • 

PARAMETER  10-33  ,JD-85 

.KD-1600  , NO- 1 2 , | JD-SO 

ooOooi 

ooios 

1 !• 

PARAMETER  LD»15o  iNNDIM»2S  »MMDlH«lO 

000001 

00104 

1 1® 

parameter  narr*io*id®jd^i 

1»ID®S«Jd*17«1JD*2®KD*7*nNDIH®MHD|M 

OoOoOl 

00107 

11® 

parameter  NPAR»5V 

OOOOOI 

ooi  io 

1 !• 

COMMON/ aRR A TS/U( lot JD) 

, V ( ID.JDI  ,AMXUo,JD) 

t 

OOOOOI 

001  10 

11* 

• F X ( ID,  JO  1 ,FT(iO,JDI 

• SIKID.JDI  , S I 3 1 1 d , JO  ) 

• 

OOOOOI 

OOI  10 

II* 

• S33IID.J0)  , P 1 1 U , JO  1 

.FUD.JOI  ,XxlK0) 

t 

OOOOOI 

OOI  10 

U® 

•YK(KD)  ,X(Iu) 

, R ( 1 0 I (XPLIIol 

• 

OOOOOI 

OOI  10 

11® 

• RPL1IDI  ,0X1  ID) 

•OXP(ID)  ,V(JO» 

t 

OOOOOI 

00110 

I !• 

•yplijd)  .otijoi 

, OTP  1 JD  1 .TaUUdI 

t 

OOOOOI 

OOI  10 

1 !• 

•ALNUJO)  |BEN(  1 JO) 

, X B ( | JD 1 (TBIIJOI 

• 

OOOOOI 

OOI  10 

1 !• 

• FLUJD)  t FR  1 1 JO  ) 

, FTUJD)  ,PBUJD) 

• 

OOOOOI 

OOI  10 

» !• 

• VFODC 1 JD)  t Y C 7 | | JD) 

, RHOVB ( 101  , T 1 38 1 |D) 

t 

OOOOOI 

ooi  io 

1 !• 

• T33B1 ID)  tAFOy( I JO) 

.POB(IJD)  .XCTllJD) 

• 

OoOooi 

001 10 

U® 

• ICRACM  JO)  .JCRaCMID) 

, UOB 1 1 JO  1 , VOB ( 1 jDT 

t 

OOOOOI 

OOI  10 

!!• 

• IMASI 1 JO)  t JMAS< 1 JD) 

.TT(NNDIH)  .2ZINND1M1 

t 

OOOOOI 

ooi  io 

II® 

•FF(NNDIM)  tAA  INNDIM) 

.FFAAINNOIHI  .vvinnoihi 

» 

OOOOOI 

OOI  10 

11* 

• CO(NNOIM)  » V V V 4 MMD I M ) 

OOOOOI 

OOI  1 1 

II® 

COMMON/PARAMS/  FULL 

, SUR  , EMP  ,BNO 

|PAK 

• 

oooooi 

00111 

II® 

•OB  tObFUL  iDT 

,6  , AS  , RMO  Z 

t HMU 

» 

OOOOOI 

00111 

II® 

•BETA  |AP  #BP 

, TL  AST  .TDUMP  ,dTDUMP 

• TCP 

t 

OOOOOI 

OOI  1 1 

II® 

• DTCP  § TP  t DTP 

.TTOTAL  ,PM|N  .vscale 

• EPS 

• 

OOOOOI 

OOI  I 1 

11® 

• COMPEN  • SHEN  »SPEN 

.B*  ,CX  ,xPl 

* XP2 

• 

oooooi 

OOI  1 1 

11® 

• YPI  § Y P 2 tUCRAcK 

, 1 tl  A A .JMAX  , 1 MA  XM 

» JMAXM 

• 

oooooi 

OOI  1 1 

11® 

• KM A X # K fa  AR  » KB  A RM 

.NDUMP  ,nctc  , ICR 

• JCR 

• 

oooooi 

Ooi  1 1 

11® 

• 1JMAA  • 1 K M A XP  t SMALL 

,REV  ,ISEP  .JSEP 

• X SEP 

» 

oooooi 

OOI  1 1 

11® 

• Y SEP  iNNMAX  tMMMAX 

.22PNT  ,0Eu22 

oooooi 

00112 

11® 

INTEGER  F |0B  fFULL 

* SUR  ,EMP  ,BnD 

• F AK 

OOOOOI 

00112 

11® 

• » P A K T tSHALL  ,R 

EV 

oooooi 

00113 

11® 

data  FULL/ 1 /SUR/R/EMP/7/BND/ 10/FAX/ 1 3/ UB/ 1 6/ P a R T /5 / 

oooooi 

00123 

II® 

data  rev/is/small/ih/ 

oooooi 

00126 

11® 

DEFINE  1 NDEX(I,J)>FLD (0,18, Fit, Jll 

oooooi 

00127 

11® 

DEFINE  NB1T|NB,^D>»FLD(3G 

-NB. 1 »*D) 

oooooi 

00130 

11® 

INCLUDE  GELCMN.LlsT 

oooooi 

CO  1 30 

11® 

END 

oooooi 

00130 

1 1 • 

GELCMN  PROC 

OOOOOI 

00131 

I 1 • 

parameter  GLMAX-So 

OOOOOI 

00132 

1 1® 

parameter  ngel»&®*lmaam2 

♦ ; h 

oooooi 

CO  1 33 

1 1 • 

CO*  “ON  /GELi/  AlUlUl  ax) 

• YB*JLlOLPAX)tP9ULlOLlAX)aLMAX.TB 

oooooi 

00133 

1 I® 

. I DUMP  * I p 1 JT , | lwI T , l*TO^ ,\aML l i 21 .SmmSS • I**aX 

OOOOOI 

OS  1 33 

1 1 • 

• » SMOM  ,U3UL  * QuMAx  ) • \ZPUl  * 

odOooi 
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00 1 3 j 

l 1 • 

• .ACC.GOT.SVEL.DISP.VZEKO 

000001 

00133 

1 1 • 

c 

00000*1 

00133 

1 !• 

END 

00000*1 

0013*1 

12* 

1 J*  1 NDEX I 1 .J) 

OOOoOR 

00131 

13* 

c 

•••••  find  distance  prom  particle  to  line  <o»* 

000001 

00135 

14® 

DXA-XBI I J)-XK(K) 

OOOQOt 

00134 

1 5* 

DYA-TBI  I JI-YIC(K) 

000012 

00137 

14* 

A«SQRT<DXA**2*0YA«»2> 

0000  IS 

OOllO 

\7* 

AtA-OXA/A 

00002S 

00 1 t 

BEA-DYA/A 

000030 

00142 

14* 

COSTH-ALA*ALN( 1 Jt*BEA*BEN(l J) 

000033 

00143 

21* 

0«A»C0STH 

000037 

00143 

21* 

c 

•••••  If  D IS  NEGATIVE*  PARTICLE  H*S  CROSSED  LINE. 

000037 

dO  1 4 4 

22* 

IF(D*6T*0*0)G0  TO  101 

00&01I 

00144 

2 y 

c 

•••••  REFLECT  PARTICLE  BAK  T*  UNE. 

0Q001I 

00144 

24« 

XXX«XK(K )*D#ALN{ 1 J) 

000013 

00147 

2S« 

YYY*YK(KMD«BEN< Ij> 

000017 

00150 

24« 

1F(NB! T ( REV»F( I t J) ) «NE« U GO  TO  100 

OOOOS3 

00152 

2T 

IFCXMK)  • GT • XB ( 1 J ) >60  TO  101 

000043 

00154 

2M 

100 

JF1K.NE*  1 IXKOCI-XaX  . 

000070 

00154 

2f  • 

YK<K)-YYY 

00007S 

00157 

30» 

101 

RETURN 

000101 

00140 

3 1 • 

END 

000J2S 

ZHO  OF 

C0HP|LAT10N|  NO  DIAGNOSTICS* 

BHDS 
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UFOR.S  REPRO 

FOR  SE2C-0»/I9/75-09:3?:'*3  10.) 


REPRO 


SUBROUTINE  REPRO  ENTRY  POINT  00031# 


STORAGE  USED:  CODE! I)  000327;  OATA(O)  000035;  BLANK  C0HH0N»2|  300000 

COMMON  blocks; 

0003  arrays  iooisi 
0001  PARAMS  000073 
OOOS  GEL  I 0C0929 


EXTERNAL  REFERENCES  (BLOCK,  NAME) 


0006  OFF 

0007  ON 

0010  CELL 

0011  REFLCT 

0012  NERR6* 

0013  NERR3* 


UQ  STORAGE  ASSIGNMENT  (BLOCK,  TYPE,  RELATIVE  LOCATION,  NAME) 


0001 

OOOOSI 

IDOL 

0001 

000223 

1 0 1 L 

0001 

000139 

I02u 

0001 

000202 

1 oSL 

0001 

00020*4 

I0*L 

0001 

000276 

107L 

0001 

DOOlOl 

ISSG 

0001 

000H2 

UOG 

0001 

000233 

223g 

0003 

076739 

AF  OB 

0003 

07S6QS 

ALN 

0003 

* 

012/52 

A M X 

0003 

075667 

BEN 

000*4 

OCOO 1 *4 

BETA 

000*4 

1 

0001)03 

BNO 

0003 

100106 

CO 

U0G*4 

00003 ^ 

CK 

000  H 

00GO32 

COMPEN 

0009 

000007 

DT 

000*4 

Cu0ti23 

D T C P 

000*4 

000u2l 

dtdump 

0003 

079757 

DXP 

D3G3 

07B272 

DY 

0C33 

075917 

OYP 

0003 

I 

061235 

F 

J0C*4 

l 

OuCoO4* 

F An 

0CJ3 

376393 

Fd 

0003 

0761  IS 

FL 

0Cu3 

076177 

FR 

co:3 

076261 

FT 

0003 

025729 

F y 

DOOM 

COCGIG 

0 

uO'jS 

00o920 

OUT 

0009 

000055 

ICR 

C 7 7 l c 2 

ICR AC^ 

w w o s 

00C230 

1 DUMP 

OOOS 

000251 

I KH  A X 

GuCOou 

1 ArtAxp 

JO  ^3 

07/519 

MAS 

0000 

000007 

1NJP* 

COuO 

1 

CuCC03 

IP 

00  J5 

00U23 | 

IPLOI 

0000 

l 

000001 

J 

uOuH 

000056 

JCR 

0003 

077307 

JCRACK 

0009 

1 

000097 

JMAXn 

OOuO 

I 

OOOCO** 

JP 

000*4 

030069 

JSEP 

0009 

OOOOS2 

kBarm 

0C0*4 

1 

OOOuSO 

KM  AX 

oocs 

000226 

LM  AX 

0009 

000059 

ncyc 

OCOM 

000053 

NDUMP 

OC  3*4 

C00U67 

NNMAX 

0003 

053650 

P 

OCOO 

I 

ooocoo 

PART 

OOOS 

000199 

PBUL 

0003 

07-4553 

R 

000*4 

l 

000062 

REV 

0003 

076571 

RHOVB 

0009 

000033 

SMCN 

00  0 H 

I 

0 JCO  6 1 

SMALL 

coos 

000250 

smass 

0009 

l 

000001 

SUR 

u C C S 

000*421 

SVEL 

0u0  3 

03331  1 

Si  1 

OOOS 

000227 

T 

0Go3 

C75S*4*4 

TAU 

000*4 

003022 

TCP 

0009 

000G29 

TP 

Uw  J3 

0 7 7 6 1 u 

T 7 

003*4 

330026 

TTOTAL 

0003 

000000 

U 

CuuS 

CG3253 

U-UL 

JC*.  *4 

03&U93 

UCRaCK 

OOOS 

000335 

VbUL 

o J u 3 

C76H23 

% F Ji 

K 

’C Jw05 

VM 

0001 

000151 

103L 

0001 

000145 

tou 

0001 

000009 

1356 

0001 

06001 6 

1*106 

0003 

077773 

aa 

doos 

O0O<*|» 

ACC 

0009 

OOOOIS 

AP 

0009 

00001 1 

AS 

0009 

000016 

BP 

0009 

OOOOJ* 

BQ 

0009 

000072 

DEL  Z 2 

OOOS 

000922 

D 1 5P 

0009 

00002S 

DTP 

0003 

079  7 J 4 

DX 

0009 

l 

000002 

EMP 

0009 

000031 

EPS 

0003 

077792 

FF 

0003 

100029 

ffaa 

0009 

1 

000000 

full 

0OO3 

020337 

rx 

0009 

000013 

MMU 

Oooo 

1 

0000Q2 

1 

OOGS 

000232 

1 ED  I T 

0009 

000057 

UMAX 

0039 

000099 

MAX 

3009 

1 

000096 

IMAXM 

0009 

000063 

I SEP 

OOOS 

000233 

1 1 Top 

0003 

077S76 

JhAS 

0009 

000095 

jm  a x 

0000 

I 

000006 

K 

0000 

OOOOSI 

KBAR 

0009 

000070 

HMMAX 

ooos 

000239 

NAME 

0C09 

1 

OOOOOS 

DB 

00Q9 

000006 

obful 

0009 

000027 

PM  1 N 

0003 

0770(4 

POB 

0009 

000012 

RHOZ 

5003 

079655 

RPL 

OOOS 

0002S2 

SMOM 

0009 

000039 

SPEN 

0003 

090676 

S 1 3 

0003 

044263 

S3  3 

0009 

000020 

TOUMP 

0009 

000017 

TLA5T 

0033 

076632 

T13B 

0003 

074673 

T 33b 

0003 

077350 

UOB 

0003 

R 

00534S 

V 

0033 

077932 

VQ  B 

0309 

000030 

VSCALE 
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000) 

100055 

vv 

0003 

1001)7 

ooos 

000000 

XBUL 

0003 

077100 

000« 

000010 

XP2 

OOoH 

000065 

0003 

0?6S07 

YCT 

0003 

07155* 

0001 

0000** 

YSEP 

0003 

07771 1 

vvv 

0005 

000123 

V ZERO 

0003 

XCT 

0003 

0**b22 

XX 

0003 

XSEP 

0003 

075020 

Y 

0003 

YX 

0003 

075115 

YPL 

0001 

zz 

0001 

000071 

ZZPRT 

071512 

X 

0003 

075751 

XB 

071*11 

XPL 

0001 

000037 

XPl 

07*033 

yb 

0005 

0000*2 

ybul 

OOOOli 

YPI 

0001 

000012 

YPZ 

00101 

1 • 

SUBROUTINE  REPRO 

•08000 

00103 

2* 

INCLUDE  COM. LIST 

•oooao 

00103 

2« 

COM*  PROC 

•ooooo 

00101 

2* 

PARAMETER  10*33  ,J0*8S 

• KD*|BOO  . NO* 1 2 . | J0"50 

•ooooo 

00105 

2« 

PARAMETER  LD-1S0  >NNDlH*25 

.mmdim-io 

•ooooo 

Ooio* 

2* 

PARAMETER  NARR-I0*1D*JD*1 1*1 

0*5*JD«17*IJO*2*KD*7«NND1M*MMO 

• IM 

000000 

00107 

2* 

PARAMETER  NPAR-5V 

000000 

001  10 

2* 

COMMON/ aRR A TS/U1 lu. JDI 

, V ( I D ( JD  ) .AMXdO.jOl 

000000 

001  10 

2 • 

• FX  1 I 0 , JD 1 i F Y I 1 0 > JO ) 

.SIIIID.JOI  .SI3II0.J0I 

000000 

001  10 

2^ 

• S3  3 ( 1 0 • JD  ) iP(IO.JO) 

.FIID.JD)  ,XK(KD| 

000000 

001 10 

2^ 

•YK(KO)  • X ( 1 0 1 

, R 1 1 0 1 . XPL  | 1 D I 

000000 

001  |0 

2 • 

•RPLIIOI  .OX(lO) 

■ DXP ( | 0 1 » Y 1 JD 1 

000000 

001  10 

2^ 

•YPL  C JO ) .0YCJ01 

, DTP ( JD I ,TaU|ID1 

OOOOBO 

001  10 

2 • 

• ALN(IJO)  > BEN ( | JO  1 

• XB 1 I JD 1 t VB 1 I JDI 

500000 

00110 

2^ 

• FLIIJD)  . FR  C 1 JO  1 

.FTIIJO)  .FBllJDI 

000000 

001  10 

2^ 

•VFOBIIJD)  . YCT ( I JD 1 

• RHOV | ( 1 D 1 . 7 | 38 1 1 0 1 

oooooo 

001  10 

2^ 

•T33BII0)  .AFObIIJD) 

, POB 1 | JD 1 .XcTflJDI 

ooooto 

001 10 

2* 

•ICRACKIJD)  .JCRaCK(ID) 

> UOB ( I JD 1 iVOB(ljD) 

0000*0 

001 10 

2« 

•IHASlIJOl  .JMASIIJD) 

.TT(NNDIM)  IZZIMNOIMI 

oooooo 

00110 

2# 

• FFINNOIMI  i A A 1 NND I M ) 

•ffaainndihi  .Vvinndimi 

oooooo 

00110 

2* 

•CDINNDIHl  .VVV (MHO I M ) 

ooooo 

001  | 1 

2* 

COMMON/PARAMS/  FULL 

.SUR  , EHP  .BND 

• FAX  , 

oooooo 

0011  1 

2* 

•OB  .OBFUL  . DT 

.6  .AS  ,RHOZ 

• H MU  , 

oooooo 

001  1 1 

2^ 

•BETA  .AP  .BP 

. TL AST  .TOUmP  .DTDUMP 

• TCP  • 

OOOOOO 

00111 

2 • 

•DTCP  .TP  .DTP 

.TTOTaL  .PM|N  .vscale 

.EPS  , 

Oooooo 

00111 

2^ 

•COMPEN  ,SHEN  ,SPEN 

, BW  , CK  ,XPI 

* XF2  » 

oooooo 

001  | 1 

2^ 

•YPI  . YP2  . UCRACK 

, 1 MAX  . JM A X , | N A X M 

.JHAXH  . 

oooooo 

001  I 1 

2 • 

•kmax  .kbak  .kbarh 

iNDUMP  ,NCYC  .ICR 

. JC«  i 

OOOOOO 

001  1 1 

2# 

• Umax  .ikmaxp  .small 

.REV  . I SEP  . JSEP 

» XSEP  « 

OOOOOO 

001  I 1 

2 • 

• YSEP  . NNM A X . HMMAX 

.ZZPRT  .DELZZ 

OOOOOO 

00112 

2 • 

INTEGER  F .00  .FULL 

.SUR  • EHP  ,bND 

• fax 

OOOOOO 

00112 

2* 

• .part  .small  ,rev 

OOOOOO 

001  13 

2^ 

DATA  FULL/I/SUR/1/EMP/7/BND/ 

I0/FAK/13/OB/|*/PaRY/5/ 

OO0QOO 

00123 

2^ 

DATA  REV/I5/SMALL/I1/ 

OOOOOO 

0012* 

2 • 

DEFINE  INDEX (1 . Jl-FLDIO. 18,F( 1 .Jl 1 

OOOOOO 

00127 

2 • 

DEFINE  NBIT(NB.WD|*FLD(3*>NB 

.1  .woi 

OOOOOO 

00130 

2» 

include  gelcmn.list 

oooooo 

00130 

2^ 

END 

oooooo 

00130 

2^ 

GELCMN  PROC 

oooooo 

00131 

2 • 

parameter  QLMAX.SJ 

oooooo 

00132 

2* 

PARAMETER  NGEL»5*v(LMAX*|2*|1 

oooooo 

CO  1 33 

2» 

COMMON  /GEL  1 / XbUlIOLMAX  I .YBULIOLMAX ) ,PBUl IOLHAX) ,LMAX  ,T  , 

oooooo 

00133 

2 • 

. 1 DUMP,  I PLOT, lEolT, ISTOP.NAMtl 1 2 ) ,SH*SS  . 1 KMaX 

oooooo 

00133 

2* 

• , SI10M,UBUL(0LMA<)  .VBUlULMAXI 

OOOOOO 

CO  1 33 

2 • 

• .ACC.ODT.SVEL.oISP.VZEHO 

oooooo 
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00133 

2 • C 

oooooo 

00133 

2# 

ENO 

000000 

00131 

3* 

oo  loo  j-2.jna*m 

oooooo 

00137 

M* 

00  100  1 "2  i | HAXti 

00001* 

00112 

5* 

IF  (NB! T 108, F< 1 , J) I .NE. 1 |G0  TO  109 

00001* 

001 11 

•OUGNOST  1c* 

The 

; test  for  equality  between  no«j-i  ntegers  h** 

NOT  8 L MEANINGFUL* 

00111 

*• 

IFIAHXl 1 iJI .E9«0»0»60  TO  IOC 

000021 

OOll* 

7* 

CALL  OFFIEMP.F 1 I ,jl) 

00002* 

00117 

• • 

CALL  OFF  1 FULL . F I 1 , Jl  1 

000031 

00150 

9* 

CALL  0N1SUR.FI 1 ,J) 1 

0Q0012 

00151 

10 • 

100 

CONTINUE 

0QOO51 

001  Si 

II* 

00  101  J-2  » JH A X H 

000051 

00IS7 

12* 

00  101  I-2.INAX11 

000|12 

001*2 

1 3 • 

1F1NBI T (FAK.F < 1 , Jl  1 .NE. 1 ICO  TO  101 

O0OH2 

00 1 *i 

♦DIAGNOSTIC* 

The 

: TEST  FOR  EQUALITY  BETWEEN  NON-INTeGEKS  HaT 

NOT  Bt  MEANINGFUL# 

001*1 

I M* 

IFI AHX ( 1 ,JI .EQ«0*01GO  TO  lol 

000H7 

001** 

IS* 

IF(NB|T|SUR,F( 1 ,J-I 1 1 .NE. 1 )G0  To  102 

000121 

00170 

14* 

IP-1 

000|2* 

00171 

17* 

JP-J-I 

000 | 30 

00172 

16* 

GO  TO  10* 

000132 

00173 

19* 

102 

IFINyillSURiFI 1*1 .Jll.NE.llGO  10  103 

000131 

00 1 75 

20* 

IP- 1 ♦ 1 

000112 

0017* 

2 I • 

JP-J 

000115 

00177 

22 • 

GO  TO  10* 

000J17 

00200 

23* 

103 

1F1NBITiSUR.fi  1 ,J. I)) .NE. 1 )G0  TO  101 

OQO|51 

0O2O2 

2M* 

IP-  1 

000157 

00203 

25* 

JP-J*I 

000|«1 

Q0201 

24* 

GO  TO  10* 

0001*3 

0020S 

27* 

10M 

IF(NBlT(SUR,FI l-l ,J> ) .N£. 1 IGO  TO  |0S 

0001*5 

00207 

20* 

1P-I-I 

000 | 73 

00210 

29* 

JP*  J 

000 | 7* 

0021  1 

30* 

GO  TO  104 

000200 

00212 

31* 

105 

RETURN^ 

000202 

00213 

32* 

106 

VM*  ANX  i I P « JP ) • V ( IPiJP)  ♦ AH  a ( 1 » J ) • V ( 1 i J J 

000201 

00211 

33* 

AMX(  |P,jP)*AMX(  IP  | JP  J * A H X ( l , Jl 

000211 

00215 

3M* 

V C | P . JP ) aVM/AHX  1 IP  , JP  ) 

000217 

00216 

35  • 

A M X 1 1 , J 1 «0#0 

000221 

00217 

34* 

101 

CONTINUE 

000233 

00222 

37* 

DO  107  *■  1 ,KMAX 

000233 

00225 

30* 

CALL  ClLLI 

000233 

0022* 

39* 

IF  I N 0 | | ( U 0 • F t I iJl  l • N E • l«AiiD«NBlT  (FaK  ipi  1 »jl  1 

• ui. « I ) GO  Tu  107 

000213 

00230 

MO* 

CALL  RtFLCTl  l,J^| 

000270 

00231 

M|* 

107 

continue 

000277 

0023  3 

H2* 

return 

000277 

0C231 

M3* 

END 

00032* 

END  OF  COMPILATION:  2 DIAuNuSTICS. 
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RESET 


I9F0R  , S RESET 

FOR  SE2C-09/l9/7S-o9:39:*t*  (0.) 

subroutine  reset  entry  point  oooaot 


STORAGE  USEO:  CODEC l ) 0003|2;  OATA(O)  OOOOSS;  BLANK  C0HH0N(2I  000000 

cohhon  blocks: 

0003  AHRATS  1 001 S I 

0009  FARAMS  000073  ,?- 

OOOS  GEL  I 0009  21  ' 


EXTERNAL  REFERENCES  (BLOCK,  NAME) 
0006  NERR3S 


‘if 

STORAGE  ASSIGNMENT  (BLOCK.  TYPE,  RELATIVE  location,  namei 


0001 

000130 

100L 

0001 

0001 |5 

1 0 1 L 

0001 

000132 

I02l 

0001 

000222 

I03L 

0001 

000207 

1 0*L 

0001 

000229 

I05L 

0001 

000131 

1041 

0001 

000223 

107t 

0001 

000257 

IOSL 

6001 

000023 

1 3$G 

0001 

000091 

l*OG 

0001 

000237 

2ISG 

0001 

000290 

220G 

0003 

077773 

AA 

OOOS 

000*17 

ACC 

0003 

026739 

AFOB 

0003 

075605 

ALN 

0003 

012752 

AhX 

0009 

OOOOIS 

AP 

0009 

oOooi 1 

AS 

0003 

075667 

BEN 

000* 

000019 

BETA 

0009 

1 

000003 

BNO 

0009 

00001* 

BP 

0009 

000035 

BQ 

0003 

100106 

CO 

000* 

0C0036 

CK 

0009 

000032 

COMPEN 

0009 

000072 

DEL  ZZ 

00Q5 

000*32 

0|Sp 

0009 

000007 

OT 

DOOM 

000023 

DTCP 

0009 

000021 

OTOUMP 

0009 

00002S 

DTP 

0003 

0793|* 

OX 

0003 

079757 

DXP 

0003 

075272 

DY 

0003 

075917 

D YP 

0009 

1 

000002 

EMP 

0009 

000031 

EPS 

0003 

I 

0*1235 

F 

000* 

| 'OOOOO1* 

FAK 

0003 

n 

07*393 

FB 

0003 

077792 

FF 

0003 

1 0002* 

FF  A A 

0003 

R 

0761  IS 

FL 

0003 

R 076177 

FR 

0003 

n 

076261 

FT 

0009 

1 

000000 

FULL 

0003 

R 

0*0337 

FX 

0003 

R 

025729 

FY 

000* 

000010 

G 

OOOS 

000920 

GOT 

0009 

0000(3 

MMU 

0000 

1 

000002 

1 

0009 

000055 

ICR 

0003 

077(62 

ICRACk 

OOOS 

000230 

JDUMP 

OOOS 

000232 

IEOIT 

0000 

1 

000003 

1 J 

0009 

000057 

IJMAX 

000& 

000251 

1 KM  AX 

0009 

900U60 

ikmaxp 

0003 

077519 

IMAS 

0009 

0000*  * 

IMAX 

0009 

I 

000096 

imaxh 

0000 

00000* 

INJPS 

OOOS 

000231 

IPUOT 

0009 

000063 

I SEP 

Ooos 

000233 

1 STOP 

0000 

1 

000001 

J 

000* 

000056 

JCR 

0033 

077307 

jcrack 

0003 

077576 

JMAS 

0009 

0000*5 

JM  A X 

0009 

1 

000097 

jmaxm 

000* 

000069 

JSEP 

0CJ9 

OOOuSI 

KBAR 

0009 

9000S2 

KBARM 

0009 

OOOOSO 

KM  A X 

OOOS 

000226 

L M A X 

000* 

000070 

MMMAX 

OOOS 

000239 

NAME 

0009 

000059 

NCYC 

0009 

000053 

ndump 

0009 

000067 

nnmax 

000* 

( OOOOOS 

OB 

0039 

000006 

OBFUL 

OOo3 

053650 

P 

0000 

1 

000000 

part 

OOOS 

000199 

P0UL 

000* 

000027 

PM  1 N 

0003 

07701* 

POB 

0003 

079553 

R 

0009 

1 

000042 

REV 

0003 

076571 

RHOV0 

000* 

0000(2 

RHOZ 

0003 

079655 

RPL 

0009 

000033 

SHEN 

0009 

1 

00004 1 

SHALL 

OOOS 

000250 

SMASS 

0005 

300252 

SMOM 

0009 

000039 

SPEN 

0009 

1 

OOOOOl 

SUR 

ooos 

000*21 

SVEL 

0003 

03331 1 

SI  1 

0003 

09067* 

S 1 3 

0003 

09*2*3 

533 

OOOS 

000227 

T 

0003 

0755** 

tau 

0009 

000022 

TCP 

000* 

000020 

TDUMP 

0009 

000017 

TL  AST 

0009 

000029 

TP 

0003 

077440 

tt 

0009 

000026 

T TOT  At 

0003 

076632 

TI3B 

0003 

07*673 

T33B 

0003 

000000 

U 

OOOS 

000253 

UBUt 

0009 

000093 

UCRACK 

00o3 

077350 

UOB 

0033 

005365 

V 

OOOS 

000335 

V BUL 

0003 

074*25 

VFOB 

0003 

077932 

VOB 

000* 

CoS 030 

VSCALt 

0003 

lOOOSt 

vv 

0003 

100137 

VVV 

0005 

000*23 

V ZERO 

0003 

079512 

X 

0C03 

075751 

X0 

oces 

000000 

xbul 

0003 

077 l 00 

XCT 

0003 

044422 

XK 

0003 

07H6I9 

XPL 

000* 

000037 

XP1 

C 039 

000090 

X P 2 

000“ 

000065 

XSEP 

0003 

075020 

Y 

0C03 

076C33 

Y tJ 

0CQ5 

000062 

YbUL 

CC  >3 

0765J7 

YCT 

0003 

C7I556 

yk 

0003 

0751*5 

YPL 

C009 

C0CC9  1 

YP  1 

C3w* 

00039  2 

YP  2 

jcr'i 

333J*6 

Y SEP 

0003 

37771  1 

zz 

0009 

00007  1 

zzprt 

RESET 


OOIOI 

1 • 

SUBROUTINE  RESET 

000010 

OOIOI 

2 • 

OOIOI 

3* 

00101 

H • 

<;•••< 

TNt  FRACTIONAL  areas  for  OB  CELLS  AND 

000010 

ooioi 

5* 

C*##< 

FOR  FAX  AND 

EMP  CELLS  TO  0 a 0 

AND  SETS 

OOOOIO 

OOIOI 

4 • 

c***< 

FULL  NON-OB 

CELLS  TO  l • 0 • 

000010 

OOIOI 

7* 

OOIOI 

• • 

00103 

9* 

include  COM  § L 1 st 

ooooio 

00103 

10* 

00IO3 

11* 

000010 

00103 

II® 

COM  • 

PROC 

OOOOIO 

Ooioi 

II* 

PARAMETER  10*33  • JO*flS 

• X 0 ■ 1 BOO 

. NQ« 1 2 iIJO-SQ 

ooooio 

00105 

!!• 

parameter  ldmso  iNndim«2s  iMmdim»io 

ooooio 

00104 

II* 

parameter  narr*io»id*jd^i 1 

•|D*S»J0*17« 

|JDa2*XD*7»nND1«^MMDIM 

ooooio 

00107 

11* 

PARAMETER  NRaR«&9 

ooOoto 

00110 

1 1 • 

COMMON/aRRAYS/UI 1 U i JO ) 

.VI IO.JDI 

• AMX( I 0 • JO  » 

• 

OOOOIO 

00110 

II* 

• F X ( 1 D a JD  ) aFY(|OaJOI 

aSIMlOaJDl  .S|3llDaJ0> 

• 

OOOOIO 

ooi  to 

1 l • 

• S33UD.JD)  iP(lUtJD> 

aFC  IO.JDI 

,XKIKD) 

i 

OOOOIO 

001 10 

11* 

• Y 1C  1 K 0 > • x ( 1 u 1 

a R ( 101 

a XPL 1 1 o 1 

i 

ooooio 

001 10 

1 1* 

•RPLtID)  aOXIlDI 

aOXPI |DI 

a V f JO) 

• 

OOOOIO 

ooiio 

11* 

• t PL  1 JO  I aDYIjD) 

a D TP ( JO  1 

aTAUI IDI 

t 

ooOoio 

00110 

II* 

•ALNIIJDI  tBCN(IJD) 

a X B I 1 JO) 

, TB • 1 JO  1 

. 

OOOOIO 

Ooi  io 

II* 

• FLIIJDI  a FR  ( | JO  1 

aFTC I JO ) 

a F6 1 1 JO  1 

• 

OOOOIO 

00110 

II* 

• VFOBUJDI  ,YCT||JD) 

aRHOVil 101 

a Tl 3B I jO) 

i 

OOOOIO 

OOIIO 

II* 

• 13  36(  101  .AFObUJOI 

aPOBI t JDl 

a XCT ( 1 JO. 

• 

OOOOIO 

ooi  io 

U* 

• 1 CRACK  I JO ) .JCRaCK(ID) 

aUOBI | JDI 

aVOBI I JDI 

• 

OOOOIO 

Ooiio 

11* 

•IHAS(IJD)  aJHASIIJDI 

aTTINNOIH) 

aZZINNolHI 

• 

ooOoio 

OOIIO 

11* 

• FF(NNOIM)  a A A ( NND 1 H ) 

a FF  A A | NND  1 H 1 aVVlNNolHI 

» 

ooooio 

OOIIO 

II* 

•CO(NNDIM)  aVVV(MMOlM) 

OOOOIO 

OOI  1 1 

II* 

COMMON/PARAMS/  FULL 

.SUR 

a EMP  a BND 

. F A X , 

OOOOIO 

OOI  1 1 

1 1 • 

• OB  a ObFUL  aDT 

t G 

a AS  aRHOZ 

• hmu  » 

OOOOIO 

OOI  1 1 

II® 

• BETA  a AP  ,BP 

•TlAST 

.TOUMP  a jT  DUMP 

.TCP  . 

OOOOIO 

OOI  1 1 

1 1* 

• DtCP  a T P ,OTP 

.ttotal 

,PM|N  aVSCALE 

• EPS  , 

OOOOIO 

OOI  I 1 

11* 

•COMPEN  aSHEN  ,SPEN 

.BO 

a CK  aXPI 

• XP2  . 

OOOOIO 

OOI  | l 

l I* 

• Y P | a YP2  aUCRACK 

. imax 

a JH A X ajHAXM 

•JMAXM  . 

OOOOIO 

OOI  1 1 

1 1 • 

• K H A X aKBAK  ,ABARm 

,NOUMP 

,NCtC  a I C R 

• JC  R • 

ooooio 

OOI  1 1 

1 1 * 

•UMAX  a 1 KMAXP  a$MALL 

• R£  V 

,|StP  ajSEP 

. XSEP  , 

ooooio 

OOI  1 1 

1 1 • 

•TSEP  .NWMAX  aMMMAx 

•Z2PRT 

aOEL/i 

ooooio 

00112 

1 1 • 

INTEGER  F a OQ  aFULL 

.SUR 

a EMM  aijNO 

• FAX 

ooooio 

00112 

II* 

• |PARt  • small  # Rf.  v 

ooooio 

00113 

11* 

Data  full/ 1 /SUR/1/EMP/7/BN0/ 1 O/TAK/ 13/OB/ 1 6/PaRT/S/ 

ooooio 

00123 

1 I* 

DATA  REV/ IS/5MALL/ 1 1/ 

ooooio 

00126 

1 1 * 

DEFINE  1 NOEX  1 1 aJI -FLOIO, i e 

.FU.JI) 

ooooio 

00127 

1 1 • 

DEFINE  NBI T ( N B a H 0 ( *FLD( 36- 

MB. 1 . WJ) 

ooooio 

00130 

1 1* 

INCLUOE  GELCHN.LlsT 

ooooio 

00130 

l !• 

E MO 

ooooio 

00130 

11* 

GEL C MN  PROC 

ooooio 

00131 

1 1 • 

PARAMETER  gLMAX-So 

OOOOIO 

00132 

1 1 • 

PARAMETER  nGEL*£*wLMAX* 1 2* 

1 * 

OOOOIO 

00I3J 

1 1 • 

COMMON  /<j£L  1 / AQUL(WLMAX), 

YdUL  1 'i  L H A A ) , 

PbUi,(WLMAX  ) ,LMAX  ,T 

» 

OOOOIO 

00133 

1 1 • 

. I UUMP  . | PLOT , I Eu 1 T , 1 STOP 

,MAM£  ( 1 2 l .Si 

JaMAA 

OOOOIO 

OCI  33 

1 1 • 

• , SMOM  ,OfaUL  (QLI1A  a 1 • VBUL  1 JLM  AX  1 

OOOOIO 
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RtSET 


00133 

00133 

00133 

0013*1 

60137 

00112 

00112 

001*13 

00115 

001*17 


00155 

00157 

OOUO 

60142 

00143 
00 141 
00145 
00145 

00144 
00170 
00172 
0017** 
00174 
00200 
Q0202 

00203 
0O2OS 

00204 
00207 
00210 
0021  I 
002i  H 

00217 

00222 

0022*1 

00224 

00227 

00230 

00231 

00232 
00235 
00234 


11*  • .ACC.GDT.SVEl.DISP.VzEro 

I »•  C 

l|*  END 

12*  00  105  J-2.JHAXH 

13*  DO  105  | "2 • I H AXH 

II*  IJ-lNDLXI  l,J) 

1 5*  C TEST  FLAGS  AnD  SET  RIGHT  AND  LEFT  CEtL  EDGES  WHERE  NEEDED. 

14*  IF  INBIT (EMP  »F ( I , J I I «EQ. 1 )G0  TO  100 

17*  IFINBITIFAKtFC I ,J» > *EQ. j 160  TO  100 

I ••  IF<N#|T<CHP|F< 1*1  ,J) I «EQ*| )G0  TO  104 

IT*  IF(N8IT(0B.F(l»J)j«N£.l)60  TO  102 

20*  IFINBI  HSUR.FI  1 • J ) > « EG  • I >60  TO  102 

2 | • IF(NB|T< SOR,F< 1*1 ,JII .£«. | )G0  TO  101 

22*  FX< l.J»*FR(tJ) 

23*  101  IF<NBIT(SUR,F< l-l ,J)».EO. I »G0  TO  102 

2***  FX<  l-l  .Jl-FLI  1 J) 

25*  GO  TO  102 

24*  103  F X ( l-l . JI-0.0 

27*  104  F X < I . J)«0.0 

26*  £•••••••••  TEST  FLAGS  AND  SET  Top  AND  BOTTOH  EDGES  AHERe  NEEDED. 

2T*  102  IF(NBIT<EMP.F< I ,J» I.EQ.J IGO  TO  103 

30*  IFINBITIFAK.FI 1 , J| > .EG. I >60  TO  103 

3 | • IFtNBIT <EMP,F< I , J.l ) I .El. |)G0  TO  |07 

32*  IF<N8IT<0B.F< I ,J> ) .NE. I )G0  TO  105 

33*  IFlNBIT ISUR.FI I . J) ) .EQ. I I 60  TO  105 

3*t*  IF (NBI T (SUR.FI I , J.l > I .EO. I >60  TO  10*1 

35*  F Y < 1 . J > *FT ( I J ) 

34*  10**  IFINBI T <SUR.F< 1 ,J-| >> .C|. | )60  TO  105 

37*  FYI I >J-I >*FB< I J) 

3(*  GO  TO  105 

3T*  103  FT<  t .J-l >*0.0 

**0*  107  F Y < I 1 J ) *0 .0 

**l*  105  CONTINUE 

**2*  DO  I OR  J*2.JHAXM 

**3  • DO  IJ8  1*2.  I MA  XN 

*****  IFINBI  T (FULL  .FI  | . J)  | .NE.  I )60  TO  108 

*•5*  IFINBITIOB.FI  I ,J>  ) .Ed.  I |G0  TO  10B 

**  4 • FXII.JI-I.O 

**7*  FX(  l-l  • J>»l  .0 

**8*  FYtl.JI-I.O 

**T*  FY<  I . J-l  >*l  .0 

50*  IOd  CONTINUE 

5 | • RETURN 

52*  END 


END  OF  COMPILATION:  NO  DIAGNOSTICS. 


000010 
000010 
00O010 
000010 
0000**  I 
ooOo**** 
OOOOII 
000050 
000055 
000042 
000071 
000074 
000103 
000|12 
000| |5 
000121 
000 | 24 
000130 
000|3I 
000|3I 
OoO | 32 
OOOlll 
000|50 
000 | 57 
006|44 
006| 75 
000201 
000207 
000214 
•00220 
000222 
000223 
000231 
000231 
000210 
000210 
000211 
000251 
000253 
0002S1 
000255 
000242 
000242 
000311 


GHOG 
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9F OR , 5 RESTRT 

FOR  SE2C-09/19/75-C9:39:**9  (0,) 


RLSTRT 


subroutine  restrt  entry  point  C000*2 

STORAGE  USED;  COOE(I)  OOOO^M  DATA(O)  00002S|  rLANK  C0MM0N(2)  000000 

common  blocks: 

0003  ARRAYS  1001S1 
000H  PARAHS  000073 
0005  GELl  000M2M 

EXTERNAL  REFERENCES  (BLOCK,  NAME) 


0006 

ntran 

0007 

NPRTS 

0010 

N ! 02 S 

0011 

NERR3S 

STORAGE  ASSIGNMENT  (BLOCK,  TYPE*  RELATIVE  LOCATION,  NAME) 


0000 

000002 

I OF 

uOO  1 

000004 

100L 

0001 

000042 

1 0 1 L 

0003 

0^6734 

AFOB 

0003 

075605 

ALN 

0003 

012752 

AMX 

0003 

075467 

BEN 

0004 

000014 

beta 

0004 

1 

000002 

BND 

0003 

100106 

CO 

0004 

000036 

CK 

0004 

000032 

COMPEN 

0004 

000007 

DT 

0C04 

000023 

DTCP 

0004 

000021 

dtdump 

0003 

074757 

DXP 

0003 

075272 

DY 

0003 

075417 

DYP 

0003  1 

06(235 

F 

0004 

1 000CC4 

F AK 

0003 

076343 

FB 

0003 

0761  IS 

FL 

0003 

076(77 

FR 

3003 

076261 

FT 

0003 

025724 

FY 

0004 

000010 

G 

3005 

00042C 

&DT 

0003 

077162 

ICRACK 

0505 

030230 

l DUMP 

a CoS 

000232 

IED  J T 

C004  1 

0CC060 

ikm a xp 

0003 

0775(4 

imas 

OC34 

003344 

| MAX 

0005 

000231 

(PLOT 

0004 

000363 

1 SEP 

0033 

l 

930301 

1 S T A T 

0003 

077307 

JCR ACK 

0003 

077576 

jmas 

oo;4 

030U45 

jmax 

0004 

0C0051 

KB  AR 

C534 

000352 

K B A R H 

00J4 

030JS0 

KHAX 

0C05 

000234 

NAME 

0004 

000054 

*CYC 

U3-4 

! 

000o53 

NDUhP 

0004 

0C0006 

OBFUL 

0003 

053650 

P 

0O3O 

! 

000 JOC 

PART 

0003 

077016 

POB 

C0o3 

074553 

R 

0004 

1 

000062 

REV 

0003 

074655 

RPL 

0004 

000033 

SHEN 

C004 

I 

000061 

SMALL 

0004 

000034 

SPEN 

0004 

1 COOO&l 

SUR 

C035 

000421 

svel 

0003 

046263 

S 3 3 

0005 

000227 

T 

U003 

075544 

TAU 

0004 

000017 

tlast 

0004 

000024 

TP 

0003 

077660 

TT 

0003 

C 7 66  7 3 

T 3 3 B 

0003 

R OCCCOO 

U 

0005 

000253 

UBUL 

0003 

005265 

V 

uCOS 

000335 

VBUL 

v,O03 

076425 

vfob 

0003 

100055 

V V 

0003 

1 00 1 3 7 

V Vv 

oOo5 

000423 

Y ZERO 

0005 

000000 

X8UL 

00  w 3 

077(00 

X C T 

uOO  3 

066622 

xK 

0004 

000040 

XP2 

C0„4 

CuOjoS 

X SEP 

«CC3 

075020 

Y 

0003 

076507 

yct 

0003 

071556 

Yk 

o003 

075145 

rp  L 

0004 

C00G66 

YSEP 

0303 

C 7 7 7 | 1 

IL 

iX„4 

00007 ( 

2ZPRT 

0002 

077773 

AA 

0004 

OOOOIS 

AP 

0004 

00001* 

BP 

0004 

000072 

DEWZZ 

0004 

000025 

OTP 

0004 

1 

000002 

CMP 

0003 

077742 

FF 

0004 

l 

000000 

FULL 

0004 

000013 

HMU 

0004 

OOOOS7 

UMAX 

0004 

003046 

IMAXM 

0005 

000233 

istop 

0004 

003047 

JMAXM 

0005 

000226 

LMAX 

0004 

000067 

NNHAX 

0005 

000144 

PBUL 

0003 

076571 

RHOVB 

0005 

000250 

smass 

0003 

03331  1 

SI  1 

0004 

000022 

TCP 

0004 

R 

000024 

TTOTAL 

0004 

000043 

UCRACK 

00C3 

077432 

VOB 

0033 

074512 

X 

00C3 

0744(4 

xp  L 

0003 

074033 

YB 

0004 

000041 

Y"  | 

0005 

OOo4|7 

ACC 

0004 

OOOO4I 

AS 

0004 

000035 

BQ 

0005 

000422 

D | $P 

0003 

074716 

OX 

0004 

00003  1 

EPS 

0003 

100014 

FPAA 

0003 

020337 

FX 

0004 

000055 

ICR 

0005 

000251 

Ikha* 

0000 

000020 

INJP» 

0004 

00G0S6 

JCR 

0004 

000044 

JSEP 

0004 

000070 

mmmai 

6004  ] 

1 000005 

OB 

0004 

000027 

PHlN 

0004 

000012 

RHOZ 

0005 

000252 

SMOM 

0003 

040674 

S 1 3 

0004 

000020 

TdUmP 

0003 

074432 

T13b 

0003 

077350 

uoa 

0004 

000030 

VSCA»-E 

0003 

075751 

XB 

0004 

000037 

XPI 

0005 

000062 

TBUu 

0004 

090042 

YP  2 

rlstrt 


*VJ 

0» 

IQ 

CD 


ro 

ur 

oo 


0010! 

1 • 

SUBROUTINE  REST R T i KOUMP ) 

000000 

00101 

00  101 

3« 

00IO! 

M • 

FROM  RESTART  TAPE. 

000000 

00101 

5* 

00101 

4* 

00103 

T 

INCLUDE.  COM, LIST 

000000 

00103 

00103 

COM* 

PROC 

oooooo 

0010* 

f 

parameter  id<03 

«KD*  1 HO  , NO*  1 2 »IJ0«5t 

•ooooo 

• OIOS 

• • 

PARAMETER  LO-ISo  ,NNDlM"2S 

•MMDIMa 10 

ooooto 

00104 

Parameter  naRR“IO»id«jo*i l•»D♦s•Jo♦l7•l Jo*2*ico»7»NNoiMtMMoiM 

OOOOM 

00107 

• • 

PARAMETER  NPAR-59 

•ooooo 

OOIIO 

»• 

COMMON/aRRaVS/UI lO.JD) 

.VIID.JDI  .AMX(IO.Ui) 

• 

oooooo 

OOllO 

• • 

• F X ( 1 0 i JO  1 * F Y ( 1 0 • JO ) 

iSIIIID.JDI  ,S|3<lo,JO) 

• 

OOOOOO 

001 10 

• • 

• S3  3 ( ID. JD)  .P( 1 U • JD ) 

.fiid.jdi  .xkixdi 

. 

oooooo 

001  10 

8* 

•YKIKDI  iXIlQl 

, R 1 I 0 I » XPL | l D 1 

• 

oooooo 

OOIIO 

8 • 

•RPLI10)  iDXllOl 

,DXP(|Ol  , Y 1 JD I 

• 

oooooo 

OOIIO 

8* 

•YPLCJDI  ,0Y(JD» 

.DTPIJOI  .TaUIId) 

i 

oooooo 

OOIIO 

!• 

•ALNIIJO)  iBEN | 1 JD I 

.XB(IJD)  .YBIUDI 

• 

oooooo 

OOIIO 

8» 

«FL ( 1 JO  1 » FR  C I JO  > 

. FT  I | JDl  , Fs I 1 JD I 

• 

OQOQpO 

OOIIO 

!• 

• V FOB ( I JD  I »TCT( 1 JD ) 

.RHOV,  1 1 D ) » T 1 3H  I D 1 

» 

ooooo# 

OOIIO 

• • 

• T33BII0I  • AFOu I | JD ) 

.POBIIJD)  .XCTfljDI 

i 

oooooo 

doi  io 

• • 

• 1 CRACK ( UP ) 'JCRaCK(ID) 

• UOBIIJDI  .VOidJDI 

• 

oooooo 

OOIIO 

• • 

•IMASIIJDI  .JMASIIJOI 

•TTINNDIH)  .ZZINNOIM) 

• 

oooooo 

001  10 

• • 

•FFINNOIM)  .AAlNNDIM) 

.ffaainndimi  .VVINNOIHI 

• 

oooooo 

OOIIO 

M 

• CD(NNDIM)  •WV(MMOIM) 

OOOOOO 

Ooiu 

• • 

COMMON/PARAMS/  FULL 

• SUR  , EMP  ,bMD 

• F A*  • 

oooooo 

001 II 

M 

•OB  tOBFUL  ,DT 

•G  .AS  ,RHOZ 

• HMU  , 

oooooo 

OOlll 

• • 

•BETA  .AP  .BP 

.TLAST  .TOUmP  .DIOUMP 

• TCP  t 

oooooo 

0011 1 

«• 

•DTCP  .TP  .OTP 

.TTOTAL  , PM  1 N .VSCALE 

• EPS  • 

oooooo 

0011 1 

6 • 

•COMPEN  .SHEN  .SPEN 

.BY  ,CX  .XPi 

• XP2  i 

ooOooo 

001 1 1 

8 • 

• YPI  . YP2  .UCRACK 

, I M A X . JH A X , | MAXM 

•JMAXM  | 

oooooo 

OOI 1 1 

8* 

•amax  .kbar  .KbARH 

.NDUHP  , NC  YC  .ICR 

• JCR  • 

ooOooo 

001 1 1 

8* 

• IJMAX  . I KHAXP  .SMALL 

.REV  , 1 SEP  » JSEP 

• X SEP  , 

oooooo 

OOlll 

8 • 

• YSEP  .NNMAX  .MMMAX 

.ZZPRT  .DElZZ 

oooooo 

00112 

8® 

INTEGER  F .OB  .FULL 

, SUR  ,EHP  (QND 

• FAX 

oooooo 

00112 

8* 

• .PART  .SMAcL  • RrV 

oooooo 

00113 

8* 

DATA  FULL/ I/SUR/H/EMP/7/BNB/I0/FAA/I3/UB/I 4/P AHT/5/ 

000000 

00123 

8» 

DATA  REV/IS/SMALL/IH/ 

oooooo 

0012* 

8 • 

DEFINE  INDEX!  I.JUFLDIO.IB.FII.JH 

oooooo 

00127 

8 • 

DEFINE  NBIT<NB,W0)»FLD(3*-NB 

•1 tWD) 

oooooo 

00130 

8* 

INCLUDE  GELCMN, LIST 

oooooo 

00130 

8® 

END 

oooooo 

00130 

8* 

GELCMN  PROC 

oooooo 

00131 

8* 

parameter  qlmaxoSo 

oooooo 

00132 

8* 

PARAMETER  NGEL*5*wLMAX*|2*|R 

oooooo 

0CI33 

8* 

COMMON  /GEL  1 / XB^L < QL M A X ) . YBUL < Ql M A X ) , PBUl < QL M A X ) , LM A X , T , 

oooooo 

00133 

8* 

. 10UMP.IPL0T  . | Edit,  I5T0P,NAME(  12),SnASS,iKMAX 

oooooo 

00133 

B* 

♦ , SMOM.UBUHQLMAAl  .VBUl  IQlMmX) 

oooooo 

CO  1 3 3 

8* 

• . ACC, GOT, SVEL.jISP, /ZERO 

oooooo 

00133 

8* 

C 

oooooo 

00133 

8* 

END 

oooooo 

RCSTRT 


0013*1 

9 • 

00135 

10* 

00135 

1 1 • 

00136 

12* 

00137 

13* 

OOIHO 

14# 

00111 

15* 

001  *1 2 

1 6 • 

00111 

17* 

001  *45 

It* 

00  1 16 

19* 

00117 

20* 

00117 

21* 

00150 

22* 

00152 

23* 

00155 

24* 

00156 

25* 

00157 

2 4* 

00160 

27* 

PARAMETER  ITAP-9 
CALL  N TRAN  t 9,10) 

• ••»••••  read  a DUMP  MOM  Tape. 

ICO  CONTINUE 

CALL  NTRAN(9i2,NPaR,FULL.I5TaT) 

CALL  NTRANl9.2,NAi<R.U,lSTAT) 

CALL  NTRAN(9,22) 

IFCNDUMP*EQ»*C0UMP)60  TO  101 

UMAXP-  IKMAXP*2 

CALL  NTRAN(9 ,7  , IKMAXP) 

60  TO  100 
101  CONTINUE 

•••••«••  IF  NOT  DUMP  uESIREDi  GO  TO  100  AND  READ  ANOTHER  DUMP. 
IF(NOUMP«NE«KDUMP)GO  TO  ICO 
PRINT  1 0 t NDUMP 

10  FORMAT!  1H  , •RESTARTED  T ROM  TmPL  DiimP 

ttotal*o*o 

return 

end 


000000 

oooooo 

000000 

000004 

000004 

000012 

000021 

000025 

000030 

00d033 

000040 

000042 

000042 

000042 

000044 

000051 

000051 

000052 

000065 


end  of  compilation: 


NO  DIAGNOSTIC*. 


JJ  ©HOG 

(D 

ro 
u i 

V£> 


RMO 
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RHO 


OFOR.S  RHO 

FOR  SE2C-0V/I?/7S-0*:3?:S1  <0»> 

FUNCTION  RHO  ENTRY  POINT  00007* 


STORAGE  USEO:  COOE(I)  OOOIOHl  OATA(O)  303016]  aLANk  C0MM0N<2|  000000 
COMMON  iLOCKS; 

0003  arrays  iooisi 

000**  PARAMS  000073 
OOOS  GEL  I 000424 

EXTERNAL  REFERENCES  (BLOCK,  NAME! 

0004  NERR3S 


STORAGE  ASSIGNMENT  (BLOCK,  TYPE,  RELATIVE  LOCATION,  N*hE! 


0001 

000024 

I 0 1 L 

0001 

000036 

102l 

0001 

000043 

t03L 

000 1 

000062 

1 tOL 

0003 

077773 

AA 

OOOS 

0004|7 

ACC 

0003 

074734 

AFOB 

0033 

075405 

ALN 

0003 

R 

012752 

AMX 

0004 

000015 

AP 

0004 

0000 II 

AS 

0003 

075667 

BEN 

0004 

000014 

BETA 

0004 

I 

000003 

BND 

0004 

0000)6 

• P 

0004 

000035 

8Q 

0003 

100106 

CD 

0004 

000034 

CK 

0004 

000032 

COMPEN 

0004 

000072 

DCLZ2 

OOOS 

000422 

01SP 

0004 

00000? 

DT 

0004 

00002) 

dtcp 

0004 

000021 

DTDUMP 

6004 

060025 

DTP 

0003 

074714 

OX 

0033 

074757 

DXP 

0003 

R 575272 

DY 

0003 

07S<U7 

DYP 

0004 

I 

•00002 

CAP 

000*! 

000031 

EPS 

0003 

1 061235 

F 

0004 

| 00000* 

FAX 

0003 

0763«*3 

FB 

0003 

0)7)42 

FF 

0003 

100024 

FF  A A 

0003 

0761 |S 

fl 

0003 

074177 

FR 

0003 

076261 

FT 

0004 

I 

OOOOOO 

full 

0003 

020337 

FX 

0003 

02S724 

FY 

0004 

OOOOlO 

G 

OOOS 

0OOH2O 

GOT 

0004 

0600| 3 

HHU 

OOOS 

000055 

ICR 

0003 

077162 

ICRACk 

0035 

000230 

IDUMP 

0005 

000232 

IEOI  T 

0000 

I 

000003 

U 

0004 

000057 

UMAX 

OOOS 

00025 1 

IKMAX 

0004 

300U40 

jkmaxp 

0003 

0775 l M 

1 M A S 

0004 

000044 

INAX 

0004 

000044 

1 maxm 

0030 

000006 

1NJPS 

3035 

000231 

IPLOT 

0004 

000063 

1 SEP 

OOOS 

000233 

ISTOP 

0004 

0000S4 

JCR 

0003 

077307 

JCRACX 

0003 

077574 

JM  AS 

0004 

OOOOHS 

JM  A X 

0004 

000047 

JM  A X H 

0004 

000064 

JSEP 

0004 

oooost 

KBAR 

0004 

000052 

KBARM 

0004 

000050 

KMAX 

OOOS 

000226 

LM  A X 

0004 

000070 

MMMAX 

OOOS 

000234 

NAME 

0004 

000054 

NCYC 

0004 

000053 

NDUMP 

0004 

000067 

nnhax 

0004 

I ooooos 

OB 

3004 

OOCD06 

OBFUL 

JC33 

053650 

P 

0000 

1 

oooooi 

part 

0005 

000144 

PAUL 

0004 

000027 

PMIN 

0033 

077016 

POB 

0033 

074553 

R 

0004 

1 

000062 

REV 

Oooo 

R 

OOOOOO 

RHO 

0003 

07657  1 

RHO  VB 

3C  v 4 

R 030012 

RHOZ 

0033 

074*55 

RPl 

0004 

000033 

SHEN 

0004 

l 

000061 

small 

OOOS 

000250 

SMASS 

OOJS 

000252 

SMOM 

0004 

000034 

SPEN 

0004 

1 

oooooi 

SUR 

0005 

0004(1 

SVEL 

0003 

033311 

SI  1 

0003 

040676 

SU 

0003 

046263 

S33 

0005 

000227 

T 

0003 

R 

075544 

tau 

0004 

000022 

TCP 

0004 

000020 

TDUMP 

0004 

000017 

TL  AST 

0004 

00002*4 

TP 

0003 

077660 

TT 

0004 

000026 

TTOTAL 

0003 

076632 

T13B 

0003 

074673 

T 33b 

0003 

000000 

U 

0005 

000253 

U0UL 

0004 

000043 

UCRACK 

0003 

077350 

U08 

0033 

005365 

V 

0005 

000335 

VBUL 

6060 

R 

000002 

VF 

0003 

R 076425 

VFOB 

0003 

077432 

VOB 

3004 

000030 

vscale 

0003 

100055 

VV 

0003 

100137 

vvv 

OOOS 

000423 

V2ERU 

0003 

074512 

X 

3033 

075751 

XB 

OOOS 

oooooo 

XBUL 

0003 

077100 

XCT 

0003 

0»6622 

X K 

0033 

0746| 4 

XPL 

0004 

000037 

XP  1 

0004 

000040 

XP2 

0004 

000065 

XSEP 

0003 

075020 

Y 

3033 

076033 

Y3 

3035 

000062 

YBUL 

0003 

076507 

YCT 

0003 

0?1S56 

YX 

0003 

C7  5 1 4 5 

Y PL 

0034 

000341 

YPI 

0004 

300042 

YP  2 

0004 

000066 

YSEP 

0003 

077711 

zz 

0004  C00Q71  7ZPRT 
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DO  1 0 1 

1* 

OOIOI 

2 • 

00101 

3 • 

OOIOI 

M • 

00101 

5 • 

OOIOI 

6* 

OOIOI 

7 • 

00103 

8* 

00103 

9* 

00103 

10* 

00103 

to* 

OOIOH 

1 0 A 

OOIOS 

10* 

00106 

1 0* 

00107 

to* 

0OI  10 

10* 

001  10 

10* 

001  10 

10* 

001  10 

10* 

00110 

10* 

001  10 

10* 

001  10 

10* 

001  10 

10* 

001  10 

10* 

00  t 10 

10* 

001  10 

10* 

001  10 

10* 

001  to 

to* 

001  10 

10* 

001  1 1 

10* 

00  111 

10* 

00111 

1C* 

COI  1 1 

10* 

001  1 1 

1C* 

00  111 

10* 

com 

I 3* 

COI  1 1 

1C* 

coll) 

10* 

COI  12 

10* 

COI  12 

10* 

00113 

10* 

00123 

10* 

CO  1 2 6 

13* 

00127 

IG* 

00130 

10* 

001  JO 

1C* 

30130 

10* 

00131 

1C* 

00132 

1 0* 

00133 

ia* 

CO  1 3 3 

I-* 

001  3 3 

10* 

COI  33 

10* 

»••••••< 

,'•••••  4 


funct ION  RHO< i . j) 

Tilts  FUNCTIOi,  CALCULATES  I HE  FLUID  Dtl«S|IY  IU  CELL  I.J. 

c. ........  * sur  cell,  rnt  deksitt  is  sit  to  hhijZi  the  .^orhal  density. 

include  com, list 


C*##< 

COM  • 


COMMON/aK«aYS/U(  1 *j  » J 0 ) 

• F X ( ID,  JO)  .EY  < 


• •••  if  SUR  CELL  • SET  RhO*RHOZ* 

PROC 

PARAMETER  l 0*33  »JD»85  .KO-1530 

parameter  ld«iso  ,nndim*2s  ,mmdim»io 
parameter  naRR«ij*id*jd*u • id*s*jo*17- i jd*2*ko*7#nndim*mmdim 
parameter  M’aR-s? 

.VUD.JO) 

• silt  10, Ju* 

, F l | u , JD ) 

,r<  :o 

il^p  I ! J * 

,DfP<  Jj) 

.X3C  1 JJ) 

,f  r < i jo) 

,RHOVH(  I 0 ) 

, POB ( 2 JO) 

• UOB I 2 JO) 

,TT(NNDIMI 

.ffaainnoim) 


• S 3 3 i ID  , JO  I 
• YK i XU ) 

•rpl i : dj 

• ypl  < jo ) 

•ALr  ( l JD I 

• F L < I JO) 

• VFOBI  1 JD) 

• T33B l ID) 
•ICRACKI JO) 

• I M AS ( I JD ) 
•FF(NNOIM) 


.P( I o • JD ) 

• M I u I 
,0X1  |D) 

, U Y ( j 0 ) 
,brNi  I JD) 

, F R ( 1 JD) 

• Y C T ( 1 JD) 
,AFOb( I JD) 

• JC«ACF(  10) 
, JI1AS(  I JO) 
•AA(NNDiM) 


, NO-12  • J J0*50 


, 4M a ( | t i JU ) 

,sj j( id. jo) 
, X K <KD) 
.XHIID) 

, r ( jo  ) 

, T A J ( 10) 

, vat  i jo) 
.FBI  I Jo) 
i T | 3B ( I D ) 
,XCT( I JD) 
»YOB( 1 JO) 
•ZZ(NNOIM) 

• W(NNolM) 


• CDINNDIH)  t VV V ( HMD  I M ) 

COHMON/PAR AMS/  FULL 

, SUR 

,EMP 

tBND 

.fax 

• OB 

.obful 

.OT 

.G 

.AS 

• RHOZ 

. HMU 

• bET  A 

. AP 

.DP 

,TL AST 

,TDuMP 

. OT  DUMP 

• TCP 

• DT  C P 

. TP 

.OTP 

•T TOTAL 

» p M 1 N 

, VSCALE 

.EPS 

•COnPtN 

,S  EN 

oPLN 

• E - 

. f < 

,XP1 

. X P 2 

• YPl 

,TP2 

.wCw*.- 

. : * 4 x 

. i * x 

t ; M % a H 

. Jh  A X M 

• KM  A < 

, K o A R 

,»l  nr 

* , r 

. i c r- 

* J c R 

• 1 JM a k 

, 1 r * ' P 

. Nh al  L 

, Rk  V 

, 1S5.P 

. JSFP 

. A bcP 

• tSE^ 

1 U » L <•  1 n 

i N *■  f 

r , 

1 ,M'"  K 

pull 

„ / P * * 

S * 

• 1 / ' 

.our 

. F XK 

• , f x R T i ^ ^ L »tv 

DATA  FULL / 1 / SUR/R /tm  , 7/6..  J / i « / 1 lU/  - '/ io'^HT/j/ 
DATA  REV/ 15/SMALL/ IM/ 

DE)  1 u E INDEX!  !.J)«Fl0(0,1o,F  11  .J)  ) 

DEFINE  fJBJT(NB.WD|-FLDl36-NB»l«*l  1 
INCLUOE  GELCMN.LlbT 

t ND 

UELCMN  PROC 

PARAMETER  JLMAXcSw 
PA^AMFTrR  rjfiEL»r.  • j L M a * ♦ | 2 ♦ I R 

COMMON  /<»EL  I / aTUl  ( K i ) t rdUL  1 WL  n a X 1 .FBwu  * 

. iou-.f.ipl  T i ! t j l T • l Stop  ,naml  1 1 < ) »s  t , » * 

• , smom  , tiBui  ; . w” * x ) • . r Jt  ! »^l*  « a > 

• ,aCs.,»jl>Ti-..Lu»  i i’tVjr  ^ 


4 * A 


I H A x , f 


OOOOOS 

onooos 

OOOOOS 

03000S 

OOOOOS 

OOOOOS 

OOOOOS 

OOOOOS 

OOOOOS 

OQOOOS 

OOOOOS 

OOOOOS 

OOOOOS 

OOOOOS 

OQOOOS 

OOOOOS 

OOOOOS 

000005 

OOOOOS 

OOOOOS 

OOOOOS 

OOOOOS 

000005 

OOOOOS 

OOOOOS 

ooOoot 

OOOOOS 

OOOOOS 

OOOOOS 

OOOOOS 

OOOOOS 

OOOOOS 

OOOOOS 

OOOOOS 

OOOOOS 

OQOOOS 

orooos 

onooos 

OOOOOS 

OOOOOS 

OOOOOS 

OOOOOS 

OOOOOS 

OOOOOS 

OOOOOS 

OOOOOS 

OOOOOS 

OQOOOS 

000005 

UOOOOS 

OQOOOS 

DrODOS 

ciooos 
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00133 

00133 

00134 
00134 
00134 
00137 
00141 

JO  1 42 
1144 
M14S 
60144 
00147 
60147 
001SO 
00151 
00153 
00154 


0HDG 


RHQ 


10* 

C 

ooooos 

10* 

END 

000005 

11* 

IF (MBIT ISUR .F< I , J) ) .NE» 1 160  TO  101 

000005 

1 2 • 

RHO-RHUZ 

0000 1 1 

13* 

C 

>••••  IF  NEGATIVE  MASSi  RMO-O.O 

0000  IN 

1 4 • 

IF(AMX(1'J)«LE»0«U)RhO-O»O 

000014 

15* 

ao  TO  110 

000022 

1 4* 

101 

IFINBITIOB.FC 1 *J) ).EQ.|)GO  TO  102 

■0002N 

17# 

VF“ 1 .0 

■00032 

!•• 

GO  TO  103 

•00031 

It* 

102 

I J" INDEX  1 1 ,J> 

■00034 

20* 

VF ■ VFOB ( 1 Jl 

■00010 

21* 

c 

•••••  calculate  fluio  density. 

000011 

22* 

103 

RHO-AHXl I , J)/(TAU( !)#OYC U)«VF) 

000013 

23* 

1F( ABS1RH0-RH0Z) /RHOZ*LT* | . E-4 ) RhO«RH02 

■00050 

24# 

110 

RETURN 

■00042 

25* 

ENO 

■00103 

END  OF 

compilation;  no  diagnostics. 

SCELtS 
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teF OR  | S SCELLS 

FOR  SF.2C-0’/ 1 R/7b-c,9  : 39  : S2 


SUBROUTINE  SCELLb  ENTRY  POINT  oCJ24f 


STORAGE  used:  CODEC  1)  000254;  oaTA(O)  U00J33 ; BLANK  C0HH0N<2)  oooooo 
COMMON  BLOCKS; 

0003  ARRAYS  IJOlbl 

0004  PARAMS  000073 

0005  GEL  1 000424 


external  References  (block,  na«l) 

OOOo  NERR6S 
0007  NERR3S 


STORAGE  ASSIGNMtNT  (BLOCK,  TYPE,  RELATIVE  LOCATION,  NAME) 


000) 

000)01 

)0*L 

0001 

000)26 

) 04  L 

OCO) 

00C15* 

000) 

000022 

1 35G 

0001 

000036 

)40G 

0003 

077773 

0003 

075605 

ALN 

0003 

R 

0)2752 

amx 

0004 

000015 

0004 

00001* 

BETA 

000* 

) 

000003 

8ND 

0004 

00001* 

0004 

000036 

CK 

000* 

000032 

COMPEN 

0004 

000072 

0004 

000023 

DTCP 

000* 

00002) 

DTOUMp 

0004 

000025 

0003 

R 

075272 

DY 

0003 

0754  ) 7 

OYP 

0004 

1 

000002 

0004 

I 

00000* 

F AK 

0CG3 

07  A 3 4 3 

FB 

0003 

0777*2 

0003 

076177 

FR 

3333 

076261 

FT 

0004 

I 

OOOOOO 

0004 

000010 

G 

000420 

GDT 

0004 

030013 

0003 

077162 

ICRACk 

oocs 

0DC23D 

I OUMP 

0005 

000232 

OOOS 

000251 

UMAX 

00*/  4 

000060 

I KM AXP 

ooco 

) 

C3J003 

0004 

) 

0000*6 

1 MAXM 

DO  jO 

3 JOO ) J 

)NJP« 

00u5 

00C231 

0000 

) 

000001 

J 

DO  0 4 

000356 

JCK 

00?3 

07/307 

0004 

0000*5 

JMAX 

0304 

I 

0 0 C 0 4 7 

JMAXM 

DCOM 

0CU06* 

0004 

000050 

K M A X 

00  Jb 

900226 

lmax 

JC  J 4 

0 wuO 7 3 

0004 

000053 

NDUMP 

D0u4 

0 D C C 6 7 

NNM  AX 

0004 

1 

000005 

0000 

I 

OOOCOO 

part 

JO  J5 

000) 44 

PBUL 

0004 

003027 

0004 

1 

000062 

REV 

uO  JO 

R 

000006 

RM 

00  JO 

* 

000005 

0003 

07  *655 

RPL 

DOw  4 

000C33 

ShEN 

UC  3 4 

I 

0000*1 

0004 

00003* 

SPEN 

DO  J 4 

I 

OJOJOl 

SUR 

u005 

000*21 

0003 

0*6263 

S 3 3 

dolS 

QJC227 

T 

J 0 J 3 

n 

0755** 

0004 

000017 

TLAST 

00  j4 

000024 

TP 

0003 

077660 

0003 

076673 

T 3 3 B 

COO  3 

OOOOOO 

U 

U0u5 

0 JC2S3 

0003 

005365 

V 

DDLS 

000335 

VBUL 

wC33 

076*25 

0003 

1 00055 

V V 

£3  w 3 

100137 

VV  V 

uGu5 

030*23 

0005 

OOOOOO 

X MU  L 

00  J 3 

9 7 7 1 C 0 

XCT 

uC03 

0*6o22 

0004 

0000*0 

XP* 

juJ4 

3 DOC o 5 

XSEP 

0003 

075020 

0003 

076507 

YCT 

j:^3 

971556 

Y K 

DC  j3 

375  1*5 

0004 

C00066 

YSEP 

;:w3 

£777  1 1 

LL 

V*  J is  4 

320C7 1 

lO*L 

OOOl 

000202 

)0*L 

0001 

00022) 

1 1 Ou 

A A 

0005 

000*17 

ACC 

0003 

074734 

AfOB 

aP 

000* 

0000! 1 

AS 

0003 

075447 

BEN 

BP 

000* 

000035 

BQ 

0003 

100104 

CD 

OELZZ 

0005 

000*22 

D)SP 

000* 

000007 

DT 

DTP 

0003 

07*7J6 

DX 

0003 

074757 

DXP 

EMP 

000* 

000031 

EPS 

0003 

I 06)235 

F 

ff 

0003 

10002* 

FF  A A 

0003 

076)15 

fl 

full 

0003 

020337 

FX 

0003 

025724 

FT 

HMU 

0000 

) 

000002 

I 

000* 

000055 

ICR 

1 ED  I T 

0000 

) 

000307 

) J 

000* 

000057 

!JHAX 

IN 

0003 

) 

07751* 

) M A S 

000* 

000044 

I M A X 

)PLJT 

000* 

000063 

1 SEP 

0005 

000233 

ISTOP 

jcrack 

0000 

) 

00000* 

JM 

0003 

I 077576 

JM  AS 

jSE  P 

000* 

000051 

KBAR 

000* 

000052 

KBARM 

MMM  A X 

0005 

00023* 

NAME 

doo* 

000054 

NCYC 

OB 

000* 

00030* 

OBFUL 

0003 

053450 

P 

P M I N 

0003 

07701* 

POB 

0003 

074553 

n 

R HM  A X 

0003 

076571 

RHOVB 

000* 

000012 

*HOZ 

small 

0005 

000250 

smass 

0005 

000252 

SMOM 

SVEL 

0003 

03331  1 

S)  1 

0003 

040474 

S 1 3 

T AU 

000* 

000022 

TCP 

000* 

000020 

tdumC 

tt 

000* 

00002* 

ttotal 

0003 

074432 

T 1 3b 

UBJL 

000* 

0000*3 

UCRACK 

0003 

077350 

UOB 

VFOB 

0033 

077*32 

VOB 

000* 

000030 

VSCAlE 

V ZERO 

0303 

07*512 

X 

0003 

075751 

XB 

XK 

0033 

07*61  * 

XPL 

000* 

000037 

XP1 

Y 

0033 

076033 

T B 

dobs 

000042 

ybul 

YPL 
Z Z Pn  T 

000* 

0C33* 1 

YP) 

000* 

000042 

YP2 

scells 


ODIOI 

1 * 

SUBROUTINE  scells 

0000 10 

OOIO) 

2* 

INCLUDE  COM, LIST 

000010 

00103 

COH« 

PROC 

000010 

00101 

2* 

PARAMETER  10-33  ,JD-«S 

• KDalSBO  . N0» 1 2 .IJ0*SO 

000010 

OOIOS 

2* 

parameter  ld-iso  .nndih-zs  ,mmoim-io 

000010 

0010* 

2» 

parameter  narr-io»io*jo*i i*id*s*jd*it«i jd*2*ko*7*nnoim*mmdim 

000010 

• 0107 

2* 

parameter  npar-st 

0000 10 

OHIO 

2* 

COMMON/aRRAYS/U! Ip.JD) 

• VI  IO.JDI  ,AMXUo»JO) 

• 

000010 

•0110 

2« 

• FXdD.JD)  , FT  1 | D , JO ) 

• SIldD.JDI  ,S|)(  ID,  JO) 

1 

OOOQIO 

091)0 

• S J) I IDtJDI  , P ( 1 0 , JO  ) 

.MID.JDI  .XKlKDt 

• 

•000 10 

OHIO 

!• 

•TKIKOI  ,X(lo> 

iRIIDI  .XPLllO) 

• 

ooooio 

40110 

f 

• RPLdD)  ,*X(I0I 

.OXPCIOI  . V I J* 1 

• 

6000 10 

0*110 

!• 

• TPL(JO)  , OY 1 JO ) 

, DTP ( JO  1 .TaUIId) 

1 

000010 

00110 

2 • 

• ALN I I JO  > • BEN ( I jo ) 

.XBdJO)  .YBdJDl 

» 

OOOOIO 

•0110 

2* 

• FL  t I JO  I ,FR«|JO) 

, FT  ( I JO  ) .FBdJD) 

1 

900010 

00 1 10 

2* 

• VFOB(IJO)  , T C T | 1 JO  1 

.RHOVBIlDt  »T  I 38 ( |0 ) 

1 

006010 

001  |0 

»• 

•T33BII0)  , AFOk ( I JD ) 

.POBdJDI  .XCT(ljP) 

• 

OOOOIO 

001 10 

2* 

• ICRACHJD)  ,JCRaCKI|0) 

.UOB(IJO)  .VOBIIjDi 

• 

OOOOIO 

001 10 

!• 

•IMASIIJDt  .JMASIIJO) 

.TT(NNDlM)  .ZZ(NNolH) 

1 

OOOOIO 

001 10 

2 • 

•FFINNDIMI  ,AA(NNOIH) 

•FFAA(NNDIM)  .VVINNoIM) 

» 

OOOOIO 

00110 

2* 

•COINNOIMI  ,VVV<HHOlM| 

OOOOIO 

0011 1 

2* 

COMMON/PARAHS/  FULL 

, SUR  , EMP  .BND 

• fax  , 

OOOOIO 

001 1 1 

2* 

• OB  ,OSFUL  » OT 

•G  .AS  ,RHOZ 

• HMU  . 

OOOOIO 

0011 1 

2 • 

• BETA  , AP  * BP 

.TLAST  .TOUMP  .OTDUMP 

• TCP  • 

OOOOIO 

001  1 I 

2* 

•DTCP  ,TP  ,OTP 

.TTOTAL  .pmin  , VSCALE 

• EPS  . 

606010 

com 

2 • 

•COMPEN  ,SHEN  , SPEN 

» BG  . , CK  ,XP) 

• XP2  . 

OOOOIO 

001 11 

2^ 

• YP | , YP2  tUCRAcK 

, I MAX  .JMaX  .IMAXM 

• JMAXM  • 

606010 

001 1 1 

2* 

•UMAX  ,K8AR  , KB ARM 

.NDUMP  ,NCYC  »|CR 

• JCR  • 

OOOOIO 

OOIII 

2* 

• UMAX  • I KHAXP  (SHALL 

.REV  ,ISCP  (JSEP 

•XSEP  . 

600010 

001 1 I 

2^ 

• Y SEP  (NNHAX  ,MMMAX 

, ZZPRT  .OCLZZ 

OOOOIO 

00112 

2* 

INTEGER  F ,0B  .FULL 

•SUR  ,£HP  ,BNO 

• FAX 

OOOOIO 

00112 

2* 

• .PART  .SHALL  ,R£y 

6OO0IO 

00113 

2* 

DATA  FULL/ 1 /SUR/N/EMP/7/BND/ 1 O/FAK/ 1 3/UB/ 1 6/PaRT/S/ 

OOOOIO 

00123 

2* 

DATA  REV/IS/SMALL/11/ 

OOOOIO 

00126 

2* 

DEFINE  INDEX!!  .JUFlUIO,  18 

, f i t i j d 

OOOOIO 

00127 

2* 

DEFINE  NBIT(NB,Y.D|»FL0<36- 

MB.  i ,WD| 

OOOOIO 

00130 

2* 

INCLUOE  GELCMN.LlbT 

OOOOIO 

00130 

2 • 

END 

OOOOIO 

00 1 30 

2* 

GELCHN  proc 

OOOOIO 

00131 

2^ 

PARAMETER  QLM A A«5y 

OOOOIO 

00132 

2^ 

parameter  n6EL»s»«lmax*i 2+1 i 

OOOOIO 

00133 

2» 

COMMON  /GEL  1 / XbUlIOLNAXI, 

YBUL(QLMAX) .PBUlIOLMAX) .lmax.t, 

000010 

00133 

2* 

. IDUMP, IPL0T, IEuIT, ISTOP 

.NAME! m .SmaSS. IKMaX 

006010 

00133 

2» 

• , SHOH.UBULIQLMAX! .VBUl(QLMAX) 

OOOOIO 

00133 

2» 

• • ACC . GOT .SVEL .UiSP , V ZERO 

OOOOIO 

00133 

2» 

C 

OOOOIO 

00133 

2« 

END 

OOOOIO 

00131 

DO  no  J*2  iJMAXM 

OOOOIO 

00137 

**• 

DO  no  I ■ 2 » X H A X M 

000036 

DDIH2 

5* 

irCNDjT ( SMALL  » F ( I , J) ) • Nf  * | 

) GO  TO  110 

00003* 

00H1 

*• 

ir (NdTT(rULL,F( I • J ) ) • NE  « 1 ) 

GO  TU  IIC 

000013 

00  M 6 

y 

IM-0 

DOOOSO 

0DU7 

8« 

% 

JM  "0 

« 

0000s 1 

• 
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SCELLS 


OOISO 

9 • 

KM** X-O.Q 

OOOOS2 

OOISI 

10* 

1F(NB|T(FULL.F(I»j-1)).nE.1M,0 

TO 

102 

000053 

90 1 S3 

I I • 

HH- A MX i | iJ-1  ) / ( T At)  ( 1 ) OY  ( J-  | ) J 

0000*2 

001S1 

1 2 • 

1F(«H.L6*NHMAX JGO  TO  102 

0000*7 

OOIS* 

1 3 • 

RHMAX-RH 

000072 

00IS7 

1 M • 

IM-  1 

000071 

001*0 

IS* 

JM-J-I 

00007* 

001*1 

14* 

102 

1 F ( NB I T < FULL  » F ( 1 • J* 1 ) ) . NE . \ ) toO 

TO 

1 0 M 

OOOjOl 

001*3 

17* 

RH*  AMX ( 1 • J ♦ 1 ) / ( T AO  1 I 1 • D Y ( *)♦  l ) ) 

006)07 

001*1 

II* 

IFIRH.LE.RHMAXIGO  to  ioh 

000| 11 

001*6 

19* 

RHMAX-HH 

000) 17 

001*7 

20* 

IM-I 

000 | 2 1 

00170 

2 1 • 

JM  - I 

000(23 

00171 

22* 

1 0 M 

IF(NB!T(FULL»F(IM»v)))'NE«|)GO 

TO 

104 

000(24 

00173 

23* 

RH-AMx<i*i,j>/CTAutiM>*DriJn 

000131 

00171 

2M* 

IF (RH.LE«RHMAX )G0  TO  106 

000(11 

0017* 

25* 

H HMAX-RH 

000(11 

00177 

24* 

I M ■ I ♦ 1 

000|1* 

00200 

27* 

JM- J 

000(51 

00201 

28* 

104 

IF (NBITIFUlL iF  < 1*1  , Jl) .ML. 1 160 

TO 

108 

000|S1 

00203 

29* 

RH»AMX(I-|,J)/(TAu(I-n«DY(J)) 

OoO | *2 

00201 

30* 

IF(Rh.LE.RhHaX)GO  TO  |08 

OoO |*7 

0020* 

31* 

rh«ax»Rh 

000(72 

60207 

32* 

IM- 1-  1 

000(71 

00210 

33* 

JM-J 

000(77 

0021  1 

3N« 

108 

I F ( 1 M • LQ • 0 ) RETURN j 

000202 

002)3 

35* 

I J-INDEXI  I , J) 

000210 

60211 

34* 

1 H A S ( 1 J ) - I H 

006211 

002 1 S 

37* 

JM  A S ( | J)-JM 

0002U 

002)* 

38* 

1 10 

CONTINUE 

000224 

00221 

3 9* 

return 

000224 

00222 

MO* 

END 

000253 

END  OF 

COMPILATION;  NO  DIAGNOSTICS. 

tf  HOG 


StTPL  f 
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SFOR.S  SETPLT 

FOR  SE2C-0?/19/75-0»:39:55  (0,1 


SETPLT 


SUBROUTINE  SETPLT  ENTRY  POINT  000176 


STORA&E  USED;  COOE(I)  0002051  OATA(O)  .00036 1 blank  COMMON  1 2 ) oooooo 
COMMON  BLOCKS: 

0003  ARRAYS  IOOISI 

0004  PARAHS  000073 

0005  6CL I 000424 


EXTERNAL  REFERENCES  (BLOCK,  NAME! 

000*  MO0EV 
0007  DGA 

0010  BOUNDS 

0011  GX  A I 

0012  GYAI 

0013  NERR3S 


STORAGE  ASSIGNMENT  (BLOCK,  TYPE,  RELATIVE  LOCATION,  NAME) 


pool 

0C00I6 

IC*L 

0001 

000042 

i ml 

0001 

000060 

1 ISL 

0001 

000103 

15*6 

0001 

000124 

U3G 

0003 

077773 

AA 

0005 

0004|7 

ACC 

0003 

076734 

APOB 

0003 

075605 

ALN 

0003 

0 1 2752 

amx 

0C04 

OOOOIS 

AP 

0004 

00001  1 

AS 

O0D3 

075*67 

BEN 

0004 

000014 

BETA 

0004 

I 

000003 

bnd 

0004 

00001  A 

BP 

0004 

000C35 

B Q 

OOC3 

100106 

CO* 

0004 

000036 

CK 

0004 

000032 

COMpEN 

0004 

000072 

DEL  2 1 

0035 

000422 

DISP 

0004 

000307 

OT 

0004 

000023 

D TCP 

0004 

000021 

otouhp 

0004 

000025 

OTP 

0333 

07  4 7 J 6 

OX 

3C03 

07h757 

DXP 

0003 

075272 

OY 

0003 

075417 

DTP 

0004 

I 

000002 

LMP 

CO  3 4 

0CO03I 

EPS 

SS03 

l 

061235 

F 

0004 

1 300004 

fak 

0003 

076343 

FB 

0003 

077742 

FF 

0303 

100024 

ffaa 

0C03 

C7oi  I. 

r L 

3003 

076177 

FR 

0003 

076261 

FT 

0004 

1 

000030 

FULL 

0033 

020337 

FA 

03.3 

025724 

FY 

0004 

000010 

6 

0005 

000420 

GOT 

0004 

000013 

H MU 

0000 

I 

0003 1 3 

1 

CC04 

000355 

ICR 

0003 

077162 

i c Rack 

0005 

030230 

IDUKf* 

0005 

000*32 

I E 0 I T 

0030 

I 

O.CCC 1 

IFL 

0004 

0C00S7 

1 JM  A A 

00C5 

000251 

UMAX 

0034 

000060 

UMaap 

0003 

077514 

iMAS 

0t>3  4 

30CC44 

I MAX 

00.4 

1 

003.46 

IMAXM 

OOCO 

000023 

INUPS 

0005 

000231 

IPIO* 

0004 

0C0C63 

I SEP 

CO. 5 

0CC233 

istop 

0C30 

I 

COOOlC 

1 x L 

00.3 

1 000007 

IXR 

030C 

! 

00001 1 

IYB 

0000 

| 

000306 

i r t 

0030 

l 

f.OOOl  2 

j 

jC04 

000356 

JCR 

0003 

077307 

JCRACK 

0003 

077576 

JHAS 

0004 

000045 

UMAX 

0034 

1 

000047 

JMAX/i 

0004 

003364 

JSEP 

00C4 

000051 

KBAR 

0004 

000052 

kbarm 

0004 

000050 

KM  A X 

0005 

00C226 

Lhax 

0C34 

000070 

MMMA  A 

0035 

000234 

name 

0004 

000054 

NCYC 

0004 

0000S3 

ndomp 

0004 

000067 

NNMAX 

0034 

I 

000005 

OB 

0004 

000006 

OBFUL 

0003 

0536S0 

P 

0000 

I 

ooocoo 

PART 

0035 

000144 

PfiUL 

0C04 

003327 

PHIN 

0003 

077016 

POB 

0003 

074553 

R 

0004 

1 

0C3C62 

HE  V 

oO  J 3 

076571 

RnOVB 

0004 

C j Ju 1 2 

RHO  2 

0003 

0746SS 

RPL 

0004 

000033 

shen 

0004 

I 

00006  1 

SMALL 

03.5 

000253 

SHASS 

00.5 

C002S2 

SMOM 

0004 

000034 

SPEN 

0004 

I 

000001 

SUR 

0005 

000421 

S V CL 

0033 

033311 

SI  k 

.3.3 

OH  067  A 

SI  3 

0003 

046263 

S3  3 

0005 

000227 

T 

0003 

075544 

T AU 

300  4 

00CC22 

TCP 

0004 

O0U020 

TOUhr' 

0DC4 

000017 

tlast 

0004 

000024 

TP 

0003 

077660 

T I 

03.4 

03C026 

TTOTal 

0003 

0 7 oo  3 2 

T 1 3b 

0003 

076673 

T 3 38 

0003 

OOOOOO 

U 

0005 

000253 

UOUL 

DC.4 

CCCC‘1 3 

UCi%  A C k 

.c:3 

07/350 

UOB 

00C3 

uO^)36S 

V 

0005 

000335 

VBUl 

0003 

076425 

Vr  Ob 

...3 

.>774  j2 

V I'M 

33.  . 

01 32 

l*  S ’ . 

c;o3 

30055 

Vi 

0003 

100137 

vvv 

0005 

0004*3 

V L t M w 

tC>3  J 

274.12 

X 

0 7a/S' 

02w5 

000.3 

C77 100 

X C T 
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SlT**LT 


0903 

066622 

X* 

OOwC  R 

000002 

XL 

w C f 3 

* C7  ioJ*t 

XPL 

030** 

H 000037 

XPI 

0001 

R 

003040 

X P 2 

0000 

R 000G03 

Xk 

0004 

OoOuoS 

XSEP 

0003 

37^,020 

Y 

OOC  J 

076033 

yb 

0000 

K 

000005 

ybe 

0005 

000062 

YoUL 

U0u3 

076SC.7 

yct 

CiC0  3 

C 7 t b 5 * 

YK 

0303 

R 075145 

YPL 

000** 

R 

00004 1 

YPl 

0004 

R 003C  4 2 

Y P 2 

Q^JH 

000066 

YS£P 

3C00 

R COJuO** 

YT 

0003 

07771  1 

ZZ 

000** 

00007! 

ZZPrT 

l 

1 • 

SUBROU  I INE 

setplt 

000000 

OOtOI  2 • 000000 


30101 

00101 

3« 
4 • 

PDtn  a Aj  / f j 1 £ 

AgC  . 

flQOnOD 

C • • • 

uKJU  AND  wtLL  f L 

^ M J t 

yyyy y L 

00101 

5* 

UUIU1 

00103 

6 • 
7 • 

Include  com, cut 

030000 

GO  1 03 

8 • 

c • • • 

QflOOOQ 

J \J  1 U J 

00103 

9* 

c • • • 

COM* 

proc 

v y ▼ u v u 

000000 

00104 

9* 

PAP^meTER  I~*33  ,J*i«3S 

.KDMS??  i N 0 * ) 2 • | JD  *50 

000000 

00105 

9 • 

PARAMETER  LD»1^G  |NU01H*25 

000000 

00106 

9« 

PARAMETER  NARP*K)»1u«J0*  1 ) •lU*5«J0*l  7*1  J D ♦ 2 

•<0^  / *nNO I M^MMO | M 

000000 

00107 

9 • 

parameter  npar*59 

00O000 

001  10 

9 • 

COMMON/ aRR A TS/U{ !u. JO) 

. V ( IU.JO) 

• A MX  1 IQ  > JD ) 

. 

000000 

001  10 

9» 

• FX(  ID, J0>  » F Y t |0. JO) 

. S 1 I ( 1 o • Jo  1 

,S1 3( lot JD) 

i 

000000 

001 10 

9« 

• S3 3 f ID.  JO)  »P(  ii)»  JO) 

• F ( 10. JO) 

.XK(KD) 

t 

000000 

001  10 

9* 

•YkOCO)  .X(lo) 

•R< ID) 

• X PL ( Id) 

. 

000000 

001  10 

9 • 

• RPLU0)  » DX  ( I 0 ) 

»DXP( JD) 

•r ( jd) 

i 

000000 

001  10 

9 • 

• YPL(JO)  • 0 Y t JO  ) 

.OYP(JO) 

• TaUUD) 

. 

0000.0 

001  10 

*• 

• A L N 1 I JO)  »&EN( I JD) 

>XB(  1 JO) 

.YB( 1 JO) 

. 

000000 

001  10 

9 • 

•FL(IJD)  • FR ( i JO ) 

• F T ( 1 JO) 

• FBU  JO) 

• 

OqOooo 

001  10 

?• 

• VF08( I JO)  *YcT( 1 JO) 

•RhOVBl I D l 

» T 1 3 i < I D ) 

t 

000000 

001  10 

9* 

• T 33B ( 10)  1 AFOb(  I JO) 

• POB ( 1 JD) 

•XCT« 1 JD) 

i 

ooooao 

09110 

9 • 

• 1CRACM  JO)  . JC«aCX(  ID) 

i UOB ( 1 JO) 

. VOB \ IjD) 

. 

000000 

COIIO 

9 • 

• 1 M a S < ? JO)  » JMAbl 1 JD) 

•TT(NNDIM) 

•ZZ(NNOIM) 

• 

000000 

COMO 

9 • 

• FF  tNNDiM)  t AA  UND  J M 

• F F A A f . . N 0 1 n 1 

iW(NNjIM) 

• 

000000 

00110 

9 • 

• CO(NNOIM)  ,VVV(MMDImi 

000000 

0011  1 

?• 

common/params/  full 

j S JR  ,EM» 

• Fax  • 

000000 

0311  1 

9» 

•ob  .ubful  .0 r 

i vi  * • 5 

• RmOZ 

. HHU  . 

000000 

001  1 1 

9* 

•beta  .aP  ioP 

» 1 1 x 5 * i fuel 

P .UTDUMP 

• TCP  • 

000000 

OOll  1 

9 • 

•i/ICP  ,TF  • U!u 

.UOI;L  .FmjN 

• vscall 

• EPS  • 

000000 

001  1 1 

9 • 

•COMHEN  »5mEN  iSPEn 

• BC  iCa 

• XPI 

• X P 2 » 

000000 

COM  ) 

9 • 

• YPl  i YP  2 lUCRACK 

• 1 rt  A a iJHaX 

• 1MAXM 

• JM A AM  » 

000000 

00111 

9 • 

•KHXX  iKbAR  iABARm 

,NJUMP  .NCYC 

. ICR 

. JeR  • 

000000 

0011  1 

9 • 

•IJMAx  ,1KMAXP  .SMALL 

•REV  .ISLP 

• JSEP 

•X5EP  . 

000000 

301  1 1 

9 • 

•YSEP  .NNMAX  . MMM  A X 

.ZZPhT  iDEtZZ 

000000 

00112 

?• 

INTEGER  F ,0b  .FULL 

• S JR  » E MP 

• BNO 

.fax 

000000 

CCI  12 

9 • 

• .PART  .SMALL  ,«EV 

000000 

COM3 

?• 

DATA  FULL  / 1 /SUR/4/EMP/7/BN0/  IC/FAIC/13/0B/1  6/PaRT/s/ 

000000 

00123 

9» 

DATA  REV/ 15/SMALL/ 1 4/ 

000000 

00126 

9 • 

J E F INC  |NOEX(  I iJ)»FLD(Ot ldi 

F ( I * J ) } 

000000 

COI  27 

9 • 

i/ET  INE  NB  1 T ( ll R • UO  l «FL0  1 36-r* 

B • ) t Xf  C 1 

000000 

00130 

9 • 

I'  CLUOL  GElCMM.i  Ibf 

000000 

30130 

?• 

LNt* 

000000 

001  JO 

9 • 

G*  L C <4 N Pi<OC 

000000 
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SfcTPLT 


00131 

?• 

PARAMETER  ULMAX-Sd 

00132 

f • 

PARAMETER  NGEL"5*uLMAX*|2*|‘ 

00133 

?• 

COMMON  /GEL  1 7 XqOl 1 «LM AX  1 . T 1 

00133 

t* 

• 

1 DUMP, I PLOT ,IEuIT,ISTOP,I 

00133 

9 * 

• 

, SMOM.UBULiQLHAXl ,VBULIOcl 

00133 

9« 

• 

,ACC,6DT,SVEL,UtSP,V2ER0 

00133 

!• 

C 

00133 

?• 

END 

0013* 

10* 

CALL  MODEVI ••INDOh* ) 

00135 

l 1 • 

1 FL“0 

00135 

1 2* 

C< 

00134 

13* 

XLaXPL 1 1 1 

00137 

M* 

XR-XPLl IMAXM) 

001*0 

15* 

tt-tpli JMAXM) 

001*1 

14* 

YBE-YPLI  l 1 

OOM2 

17* 

105 

l F 1 X R . GT  » Y T 1 GO  TO  II* 

001** 

18* 

IYT-923 

OOMS 

19* 

|XR*I23, 0*800. 0»XR/IYT«YBeI 

001*4 

20* 

GO  TO  ||5 

001*7 

2 1 • 

111 

IXR-923 

00150 

22* 

IYT-I23.0.80C.C*  C YT-Y8EI/XR 

0OISI 

23  • 

1 15 

IXL-123 

00152 

2H* 

1 YBal 23 

00152 

25* 

c 1 

00153 

2 4* 

CALL  06A(1XLiIXRiiYT,IYb,XL 

00153 

27# 

c- 

0015* 

28* 

* 

CALL  BOUNDS 

0015* 

29* 

c« 

00155 

30* 

DO  102  J-IiJMAXM 

00140 

3 | • 

102 

CALL  GXAl ( 1 ,0.0,YPL 1 Jl ,0.0. 

00142 

32« 

DO  103  1-IiIMAXM 

00145 

33# 

103 

CALL  GYAI ( 1 tXPLI 1 | ,0.0,0*O, 

00145 

3*f  • 

c 

00147 

35* 

I F ( IFL.EQ.l (RETURN 

00147 

34  • 

c« 

0017  1 

37  • 

IFl-l 

00172 

38  • 

XL-XPl 

00173 

39  • 

XR-XP2 

0017* 

HO* 

YT*YP2 

00175 

Hi* 

Y BE* YP  1 

00174 

HZ* 

50  TO  IQS 

00177 

HZ* 

END 

CLOSEUP  PLOT. 


OOOOOO 

000000 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

oodooo 

ooooo* 

OOOOO* 

•0*006 
•00007 
00001 1 
000013 
000014 
•00031 
000023 
0000*0 
0000*2 
0000*3 
000040 
•00041 
000041 
000042 
000041 
00007* 
00007* 
000074 
000103 
0OO| 17 
00012* 
000| 2* 
000 1*0 
000|*0 
OOOl *4 
000150 
000152 
000|5H 
000 | 54 
000|40 
00020* 


END  OF  COMPILATION; 


NO  DIAGNOSTICS. 


0HDG 


shift 
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• • i i 

5  m 1 F T 

9F0R  | S SHIFT 

FOR  SE^C*0V/l?/7S-0?:3V;S;  10.) 

SUBROUTINE  SHIFT  ENTRY  POINT  UC0321 

STORAGE:  USEO:  CODE!!)  000337;  OaTA(G)  0300S6;  blank  COMMON  ( 2 ) ooooco 

COMMON  BLOCKS; 

0003  ARRAYS  I 00  I S 1 
OOOH  PARAMS  000073 

OCOS  GEL  1 000  H 2 M 

EXTERNAL  REFERENCES  (BLOCK  | NAME) 

0006  f.PRTs 

0007  N I 02s 
0010  SERR3S 


STORAGE  ASSIGNMENT  (PLUCK,  type,  relative  LOCaTIUN,  NAME) 


0000 

000006 

1 OF 

COO  1 

00J023 

1 G2  L 

0001 

000267 

iohl 

ooo> 

000276 

1 10L 

0001 

000037 

IHOq 

0001 

0000  H 2 

1 H3G 

0001 

GUOIO*» 

15HG 

0001 

OOOIOS 

157$ 

0001 

OOOUI 

20*G 

6001 

00023H 

2 35$ 

0001 

0002H2 

2H0G 

0000 

R 

0C000> 

A 

00  J3 

077/73 

AA 

ooos 

OOOH 1 7 

ACC 

0003 

0*473M 

AFOi 

0003 

075*05 

ALN 

0003 

R 

0I27&2 

AM  X 

OOOH 

000015 

AP 

000. 

00001 I 

AS 

0003 

0756*7 

BEN 

OOOH 

OOOCIH 

beta 

OOOH 

I 

0000G3 

BND 

OOOH 

00001* 

8P 

000. 

000035 

BQ 

0003 

10019* 

CO 

oooh 

000036 

CK 

OOOH 

000032 

COHPEn 

OOOH 

000073 

OEL22 

ooos 

OOOH22 

oisp 

000. 

000097 

OT 

OOOH 

000023 

0 T CP 

OOOH 

000021 

OTOUMP 

OOOH 

000025 

OTP 

00o3 

07H7|6 

OX 

0003 

07  H 757 

OXP 

0003 

R 

075272 

0 Y 

0003 

R 

075H|  7 

OYP 

OCJH 

1 

CO  000  2 

EMP 

000. 

000031 

EPS 

0003 

I 

0*1235 

r 

OOOH 

1 

OOOOOH 

F AK 

00u3 

0763.  J 

Fu 

00J3 

0 7 / / H 2 

FF 

0003 

1 0002  H 

FF  A A 

0003 

0761(5 

FL 

0003 

076) 77 

F H 

one  3 

C762 61 

FT 

3C5H 

l 

300  iQb 

FULL 

Ono3 

R 

020337 

FX 

0003 

R 

02572H 

FY 

OOOH 

000010 

G 

oOi  S 

330.20 

bD  f 

OOjH 

3 2 3U  1 3 

HHU 

0000 

I 

000003 

1 

000. 

000055 

ICR 

0003 

1 

077162 

1CWALK 

OOub 

3002  jr. 

10U"P 

00  cs 

C302J2 

1 ED  1 1 

0000 

1 

000005 

1 J 

030. 

000057 

I JHaX 

ooos 

000251 

1 KM  A X 

J03H 

r joJoC. 

1 t M 1 A *• 

c:^3 

077S1M 

1MAS 

000. 

1 

0000  H H 

1 H A X 

030. 

1 

OOOOH6 

1 HA  XM 

0030 

00002C 

INJPI 

*|0«S 

CC  323  1 

1PL0  f 

.c  *H 

CC0O*3 

!5EP 

ooos 

0002 J3 

1ST0P 

0000 

1 

000002 

J 

OOOH 

1 

000CS6 

JCR 

jOO  3 

1 

077 }j7 

JCKAC* 

^0.3 

1 

J7/S76 

JP  A J 

000* 

1 

0000  H 5 

JrtAX 

000. 

1 

OOOOH7 

jmaxm 

cooo 

I 

OOOOOH 

jM  A X .2 

OOJH 

1 

00C36. 

JSEP 

jOuH 

OOOJS1 

>:b  * i 

ooo. 

000052 

KB  ARM 

000. 

000050 

KM  A X 

ooos 

0302  26 

LM  AX 

OOOH 

003070 

MMM  A X 

00  JS 

00023“ 

NAME 

000. 

00005  H 

NC  YC 

Ooo. 

000053 

noump 

OOOH 

000067 

NNM  Ax 

OOOH 

I 

000005 

Ob 

00  JH 

00 OuO* 

OBFUL 

0003 

R 

053650 

P 

0000 

I 

ODOOOO 

part 

OOOS 

0001 HM 

PBUL 

OOOH 

000027 

Pm  IN 

00  j3 

§7701* 

P0B 

0003 

07H553 

R 

000. 

1 

000062 

REV 

0003 

076571 

HHOVd 

jOOH 

000012 

RHOZ 

UO  j3 

0 7 H 655 

RPL 

000. 

000033 

5HEN 

000. 

I 

000061 

shall 

OOOS 

0C02SQ 

SMAS5 

0035 

0002&2 

SMOM 

OOOH 

00003H 

SPEN 

000. 

1 

oooooi 

SUR 

ooos 

000H2I 

SVEL 

0003 

H 

03331  1 

si  1 

00u3 

R 

0.0676 

513 

0003 

H 

OH  62*3 

S33 

OOOS 

R 

000227 

T 

0003 

075SHH 

tau 

OOOH 

000 J 22 

TCP 

DOC  H 

300u20 

TOUMP 

003H 

000017 

fLAST 

00c. 

000J2H 

TP 

6003 

077640 

TT 

OCOM 

0C0C26 

TTOT AL 

00  j 3 

376632 

TUB 

0003 

076673 

T33b 

0003 

R 

000000 

U 

boos 

000253 

UBUL 

003H 

OCCc  H 3 

u C R A C K 

30  J 3 

077300 

UOd 

0033 

R 

C05J6S 

V 

ooos 

000335 

VQUL 

0003 

0 7 6M  25 

VFOB 

PC  03 

07  7 M 32 

V'jU 

05JH 

003C30 

VSC ALF 

00  53 

1 :du5s 

V V 

0033 

100137 

VV  v 

ooos 

OOOH  23 

V2CR0 

0003 

C7HS  1 2 

1 

uO*J3 

-,7S7S  1 

X tj 

uC  J5 

223  JOO 

A B ’It 

0033 

077100 

ACT 

0003 

066622 

XK 

0C03 

2 7H6  1 H 

«PL 

J2wH 

G bU J 3 7 

AP  1 

,3'Ju*  J 

aP  / 

030 1 

000065 

A5EP 

0303 

R 

*175020 

Y 

0003 

0 7 6C  3 T 

t H 

*035 

CjCC6Z 

YSOC 

.0,3 

r 7 6 j c ; 

rCT 

3C33 

07155* 

vr 

*333 

w 

075  1 H 5 

YPL 
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Shift 


OOOS  0000MI  YPI  DOOM  000GH2  TP2  OCGH  000064  YSEP  0003  07771  1 ZZ  000<4  000071  2ZPRI 


00101 

00101 

Ooloi 

00101 

00101 

00101 

00101 


001  I 
001  1 
001  1 
0011 
001  1 
0011 
9011 
0011 
001  1 
00112 
00112 
00113 
00123 
00126 
00127 
00130 
00130 
00130 
30131 
CO  1 32 
CO  1 3 3 


I • 
2® 
3* 
M • 
&• 
6 • 
7* 


subroutine  shift 


c« 
c« 

c« 

c‘ 

Q • • • • • < 

c* •• • • • « 


THIS  ROUTINE  ADDS  A ROW  OF  CELLS  AT  THE  TOP  AND  DELETES  A 

row  at  the  bottom  whenever  the  fluid  moves  out  of  row  3* 


00103 

•• 

INCLUDE  COM  » 

LIST 

00103 

9 • 



00103 

9 • 

COM*  PROC 

00  1 OH 

9 • 

PARAMETER  ID 

■ 33  • J 0 ■ 8 5 

»K0»  1500  .NO- 

|2  * I JD-Sl 

00105 

f» 

parameter  ld 

■ISO  • NND 1 M*  2£ 

» MhD 1 H • 1 0 

00106 

9» 

PARAMETER  NAKR*10*ID*JD*IIMD^b»JDM7»  I JD®2»*D*7*NND  1 M 

00107 

9* 

parameter  npar»5* 

001  10 

COMMI)N/aHRaVS/U<  Iu.JOI 

.VI 10, JD) 

•AHX I lo, JO) 

001  10 

9« 

• F X • ID.  JO) 

,FY  I lD.JO) 

.51 1 I ID, JO) 

,S| 31 1 o , JO  ) 

00110 

9 • 

•S33( ID. JD) 

,P( lO.JO) 

,F 1 IO.JD) 

.XKlICDl 

001  10 

9* 

•ykikdi 

.XI lo) 

.ROD) 

, XPL ( I 0 ) 

001  10 

?• 

•RPLI101 

.0X1  ID) 

.0XP1 ID) 

,Y|JD) 

001  10 

9® 

•TPLI JD) 

.0Y» JO) 

.DYPI JD) 

.TAUIlD) 

00110 

9 • 

• ALNI 1 JO) 

.BENI | JD) 

,X0l I JD) 

. YB I 1 JD ) 

ooi  to 

9 • 

• FU  1 JD  ) 

•FR( | JD) 

,FTII  JD) 

.FBI IJO) 

ooi  io 

9 • 

•VFOBI 1 JD) 

,YcT{ | JD) 

,RHOV»*ID> 

. T 1 3B ( 1 0 I 

OOI  |0 

9 • 

•T33BI 10) 

.AFOttl I JD) 

,POB I | JD) 

.XCTCIJO) 

OOI  10 

9 • 

• ICRACK ( JD) 

.JcRaCM  ID) 

• UOB 1 IJD) 

.VOB(IjD) 

OOI  10 

9 • 

• 1 HAS ( 1 JD ) 

.JflASI  1 JD) 

iTT(NNDIH) 

. ZZ I NNo 1 M ) 

OOI  10 

9 • 

♦FF INNDIM) 

.AA(mNDIM) 

.FFAA(NNDIH) 

.VVCNNdIM) 

OOI  |0 

9» 

•cdinmdim) 

.VVV(MMDIM) 

9 • 

COMMON/PARAMS/ 

full 

• SUR 

• EMP 

• BND 

• F AK 

9 • 

• 00 

,OBFUL 

• UT 

iG 

• AS 

• RHOZ 

• HMU 

9 • 

•BETA 

• AP 

• BP 

•tlast 

•TDUMP 

iqTDUMP 

• TCP 

9 • 

• UTCP 

• TP 

• DTP 

• T TOT  Al 

• P M | N 

• V5CALE 

• EPS 

9 • 

• C 0 M p E N 

• SnEN 

.5PEN 

• B* 

» C K 

• XP  1 

• X P 2 

9* 

• Tpl 

• Y P 2 

iUC« ACK 

, |MAA 

• JH).  * 

• ;ma YM 

• JMAXM 

9® 

• K M A X 

b k ti  A R 

,|C0  ARK 

, N D U ***  P 

• N C f C 

• I c R 

• JCR 

9® 

• 1 Jh  A X 

, 1M1AXP 

•small 

, R L V 

• ISlP 

. JSEP 

• XSEP 

9* 

• YSEP 

,NNMAX 

•MMMAX 

•ZZPRT 

•DELZZ 

9 • 

INTEGER 

F ,0B 

• FULL 

• SUR 

• EMP 

• bnd 

• FaK 

9 • 

• .PART 

.SHALL  ,REV 

?•  DATA  FULL/l/SUR/S/EMP/7/BNDZ IO/Faa/I3/OB/|£/FaRT/$/ 

?•  DATA  RtV/lS/SMALL/ I4*/ 

9 • OEF  I HE  I NDtX  ( IiJ)-FLO(OtU,r(l,JI) 

9 • DEFINE  NQ|T(NBi17D|»FLD(36-nBiI  »*l>) 

9®  INCLUDl  GELCMN.lIsT 

9 • E NO 

9«  GLLCMN  PR OL 

9»  pAKAMf  T£K 

9.  PArtAMElErf  J£iEL"',»,LMAA*|  2*J  i 

9*  /9tul/  APUl  ( ML  ’ A * I I r HwL  * U'LI*  A * I I K00w  ( LL  M •<  X I . L M » * ■ I • 


000020 

000020 

•oOoZO 

000020 

000020 

•00020 

•0002* 

0M02C 

•00020 

0o6o2« 

000020 

•0«02« 

000020 

•00020 

000020 

•00020 

••••20 

•00020 

•00020 

teftoao 

••oo«p 

#00020 

•00020 

•0OQ2» 

000020 

•00020 

000020 

•00020 

000020 

000020 

000020 

000020 

000020 

000020 

000020 

000020 

000020 

000020 

000020 

000020 

000020 

000020 

000020 

000020 

000020 

000020 

000o20 

000020 

onoc2o 
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SHIFT 


00133 

9 • 

. lUUMPtlPLOT  , | Eu  1 T ,ISTGP.r*AMt  C 12)  ,S  1mSS,IK1-4X 

000020 

00133 

9® 

• , SHOH.UBUL 1 QLMAa)  • VBUl ) 

000020 

00133 

9* 

• .«CC,aDT,SVEt.DlSP,V2fcwO 

000020 

00133 

9* 

C 

000020 

00133 

9 • 

END 

000020 

00134 

10* 

OAT*  A/1.2/ 

000020 

00134 

11* 

C 

••*•*  LOOP  THROUGH  RQ*S  2 AND  3* 

000020 

00134 

12* 

A • 1 • 0 

000020 

00137 

13* 

102 

00  100  J-2.3 

000023 

00  1 M 2 

lM* 

00  1C3  («2,IMAXt1 

000042 

00  1 M 2 

1 5 • 

c 

•••••  IF  A FULL  OR  5UR  CELL  IS  FOUND.  OUNT  *00  AND  DELETE. 

000042 

00I4S 

1 4 • 

1FINB1 T (FULL.Fl  1 , jll ,E3. 1 . OR . Nd 1 T | SUR , F C 1 ,JI 1 .E8.|  160  TO  110 

000042 

00  M 7 

1 7 • 

IOC 

CONTINUE 

000070 

001  *1  7 

I 8 • 

c 

••*••  shift  storage* 

000070 

00152 

19* 

JMAXM2- JHAa-2 

006070 

00153 

2 0 • 

00  ICI  J*2  , JHAAM2 

000073 

001S4 

2 I • 

DO  101  1-l.lMAX 

000105 

00161 

22  • 

U ( I • J1 »UC  I . J*  n 

000 l 05 

00162 

23* 

9 ( 1 » J 1 * V C I i J* 1 1 

000106 

00143 

2M* 

ArU  t 1 , J ) *AHX 1 1 * J ♦ * » 

OOOl 10 

00164 

2 5* 

F X ( I • J)«FX<  I , J*|  1 

000(12 

00I4S 

24* 

F Y ( I , Jl-FT  ( 1 iJM  ) 

000 ) 1 * 

00144 

2 7* 

SI  1 C I , Jl-SI 1 1 l . J*i  1 

000116 

00167 

2 8 • 

513(1 •J)*S13(1»J+1) 

000 | 20 

00170 

29* 

S33 ( 1 i J ) ■S33 ( I » U* l 1 

000|22 

00171 

30  • 

P( 1 tUl-PC 1 • J*1 ) 

000(24 

00172 

31* 

F(1.J)«F( I.JMI 

000(26 

00173 

32* 

T ( J 1 ■ Y ( J> | ) 

000(30 

60174 

33* 

YPL( J)-YPL( J*1 1 

000(32 

001  75 

3 

0Y( J)-DY( J*1  1 

000(34 

00176 

35* 

OYP( J)»OYP( J*1  1 

006(36 

60177 

34* 

ICRACKi JI«ICRACK( J*l ) 

000(40 

00200 

37  • 

101 

CONT 1NJE 

000(50 

00203 

38  • 

JSEP- JSEP-1 

OoOiso 

00204 

39* 

UCR* JCK-  1 

000|53 

0020S 

*0 • 

00  103  I ■ 2 t 1 H A XM 

000(61 

00210 

• 

JCRACK ( 1 )*JCRACK ( I ) • 1 

OO0 | 6 1 

0021  1 

M2# 

103 

CONTINUE 

000(64 

0021  I 

‘O* 

c 

• SET  VALUES  FqR  Ro*  | and  aDD  a Row  AT  TOP* 

000(64 

00213 

MM* 

T<  1 1 » Y < 2 1 “D Y ( 2 1 

000(64 

002 1 4 

M5  • 

YPLI 1 >»Y12l-.5*pY(2» 

000(67 

00215 

H4* 

OYI 1 1 »DY I 2 1 

000(73 

002|6 

M 7 • 

DYP 1 1 1 »DY  I 1 1 

000(75 

00217 

MS* 

0Y( JHAXM)"A»OYI JHAXM2» 

000(76 

00220 

R9* 

YPLI  JMaXN1««YPLCJMaXM2»*oY  IjMAXMl 

006201 

00221 

so» 

Y( JMAXM1-YPLI JNAXH2I*.5»0YI JMAXH) 

00020) 

00222 

5 1 • 

OYPC JMAXH21-Y1  JMAXH1-Y1 JMAXH21 

000207 

00223 

52* 

OYPUMAXH»«DY(JMAXMJ 

000}1 ( 

00224 

S3* 

Y(JHAX)»YCJMAXM)*dYP(JMxXn| 

000213 

00225 

SM* 

OYIJMAXl-OYI JMAXM) 

000215 

00226 

ss* 

OYP( UMAX l-OYPI JHAXMI 

000217 

00227 

S4* 

YPLI JMAX1-YPL1 JHAXH1+DY  UMAX | 

006221 

00230 

57* 

PRINT  10. T 

000223 

00233 

58* 

10 

FORHATI 1H1 , 'SHlrTtO  AT  T«  ••IPLI2.4) 

000234 

shift 


0023R 

5f  • 

00237 

60# 

002H2 

*!• 

002HH 

62* 

002H5 

63* 

00217 

002S0 

65* 

10 

00253 

64* 

0025H 

47# 

1 1 

00255 

48* 

00  IOH  J-2.JNAXM 
DO  10**  1-2.1MAXI1 

lFH*8ITtSh*U.F|  I ,J) 
I F * NB I T I FULL  > F ( | .J) ) 
I J» I NDtX ( l , J> 

JHASI I J|«JHAS« I J)-l 
1 CONTINUE 
GO  TO  102 
0 RETURN 
END 


> >N£. 1 )G0  TO 
«NE, I )G0  TO 


IOH 

OH 


00023** 

0002H2 

0002HS 

000252 

000257 

000253 

00027H 

OO027H 

000275 

000335 


END  OF  COMPILATION; 


NO  DIAGNOSTICS, 


BHDG 


SMCELL 


13 

0> 

vQ 

(0 

to 

K> 
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5MCELL 


ttFOR,S  SMCELl 

FOR  SE2C-09/ IO/75-C?: H :GS  ( C,  • » 

SU&ROuTINE  SMCELl  ENTRY  POlNl  **CJll*4 


STORAGE  USED;  COuE(l)  0J012J;  OaTAIG)  UJCJ31;  blank  CUMMONtZ)  O00030 

common  blocks: 

0003  ARRAYS  100IS1 
DOOM  PARAMS  000073 
OOOS  GEL  1 000*42*4 


EXTERNAL  REFERENCES  (BLOCK,  namU 

0006  NERR3S 


STORAGE  ASSIGNMENT  i a L 0 C K • TTPt,  RCLAT 


0001 

0C0072 

1 10L 

L9JI 

0005*2*4 

0003 

0?67 JH 

AFOB 

00u3 

075605 

0003 

075667 

BEN 

003H 

COOOIH 

0003 

100106 

CD 

OOuH 

000036 

000* 

000007 

DT 

OOOH 

000023 

0003 

07*1757 

DXP 

09  J3 

075272 

0003 

1 

061235 

F 

JOO  H 

I 

09000  H 

0003 

076115 

FL 

0003 

076177 

0003 

02S72H 

F Y 

OOOH 

000010 

OOOH 

000055 

ICR 

0003 

077162 

OOOH 

000057 

I JHAX 

OOoS 

0002G1 

OOOH 

OOOOHH 

IMAX 

(199*4 

I 

00CCM6 

0005 

000233 

ISTOP 

U9J0 

1 

3GC002 

0003 

l 

077576 

JH  AS 

03vH 

0003  H 5 

OOOH 

000052 

K B ARM 

OOOH 

CUC050 

OOOH 

00005H 

NCYC 

J9j*4 

0J0053 

0003 

053650 

P 

UOOO 

I 

DoOGCO 

0003 

07*553 

R 

00  J H 

I 

000062 

OOOH 

000333 

SHEN 

OOOH 

I 

00006 1 

0000 

R 

000001 

SSEPS 

OOOH 

I 

oooool 

0003 

0H6263 

S3  3 

0005 

000227 

OOOH 

000017 

TlAST 

OOOH 

00002H 

0003 

076673 

T 33b 

0003 

R 

oooooo 

0003 

R 

005365 

V 

0005 

000335 

0003 

100055 

VV 

0003 

100137 

0005 

000000 

XHUL 

0003 

0/7100 

OOOH 

GOOOHO 

xp2 

OOOH 

C0006 5 

0003 

076507 

YCT 

0903 

07155^ 

OOOH 

000066 

YSEP 

L 903 

077711 

IVE  LOCATION,  . a •*  E I 


1 36g 

3Cw  1 

000032 

1 H 1 G 

0003 

ALN 

0003 

012752 

AMX 

OOOH 

BETA 

OOOH 

1 000003 

BNO 

OOOH 

CK 

OOOH 

000032 

COHPEN 

OOOH 

OTCP 

OOOH 

000021 

dtoump 

OOOH 

OY 

0003 

07SH17 

DYP 

OOOH 

1 

FAK 

0003 

0763H3 

FB 

0003 

FR 

0003 

076261 

FT 

OOOH 

1 

G 

0005 

OOOH20 

GOT 

OOOH 

ICRACK 

0005 

000230 

IDUHP 

000& 

1KMAA 

OOOH 

330063 

ikmaxp 

0000 

l 

1 M A X M 

0C3O 

3300 1 C 

i N JP  5 

0005 

J 

)OJH 

£30056 

JCR 

0003 

JHAX 

OOOH 

1 C3G0H7 

jmaxm 

OOOH 

KM  A A 

.,035 

330*26 

L H A A 

OOOH 

noump 

00  7 H 

3C0067 

nnmaa 

OOOH 

1 

PAR  T 

00  05 

030 l H M 

p&ul 

OOOH 

REV 

0033 

07657 | 

RH9  VS 

OOOH 

small 

OGOS 

000*53 

SMASS 

0005 

SUR 

0005 

000H2I 

SVEL 

0003 

T 

0003 

0755** 

TAU 

OOOH 

TP 

0003 

077660 

TT 

OOOH 

u 

0005 

000253 

UBUL 

OOOH 

VQUL 

0003 

M 076*25 

vfob 

0003 

VVV 

0005 

OOOH23 

V2ER0 

0003 

XCT 

0003 

066622 

XK 

0003 

XSEP 

0003 

075020 

Y 

0003 

YK 

O0i,3 

0751*5 

YPL 

OOOH 

IL 

w03* 

000071 

ZZPR  T 

077773 

aa 

0005 

OOOH  1 7 

ACC 

000015 

AP 

OOOH 

000011 

AS 

0000 1* 

BP 

dooi 

060d35 

BQ 

000072 

DELZZ 

0QQ5 

000122 

D|Sp 

000025 

DTP 

6003 

0>1714 

DX 

000002 

EHP 

000* 

000031 

EPS 

0777H2 

FF 

0003 

l6002H 

FF  A A 

OOOOOO 

full 

0003 

020337 

FX 

000013 

HMU 

OOOO 

1 

000603 

1 

000232 

1 ED  1 T 

0000 

1 

0600*1 

I J 

000005 

!M 

0003 

I 

077511 

1 HA$ 

000231 

iplot 

OOOH 

O0OO43 

1 SEP 

077307 

JCRACK 

0000 

I 

06060* 

JH 

00006H 

J5EP 

OOOH 

000051 

KBAR 

000070 

MMMAX 

0005 

000231 

NAME 

000005 

OB 

OOOH 

000006 

OBFUL 

000027 

P M I N 

6003 

0?70 1 6 

POB 

000012 

RHOZ 

0003 

07H4SS 

RPL 

000252 

SMOM 

OOOH 

000031 

spen 

033311 

SI  1 

6003 

010476 

S13 

000022 

TCP 

OOOH 

000020 

TOUht 

000026 

ttotal 

0003 

074432 

T|9t 

0030H3 

UC  RACK 

0003 

077350 

uob 

077*32 

VOS 

OOOH 

000039 

vsca»-e 

07H5I2 

X 

0003 

075751 

XB 

07H6 1 H 

XPL 

OOOH 

000037 

XPl 

076033 

tb 

6005 

060042 

YBDl 

0000*1 

TP  1 

OOOH 

0000*2 

YP2 

smcell 


00101 

I • 

SUBROUTINE  SMCELL 

0000 10 

00103 

2 • 

INCLUDE  COM, LIST 

000010 

00103 

2* 

COM*  PROC 

000010 

00 1 01 

!• 

PARAMETER  1 D“33  ,JD"8S 

•KO-I&00 

• ND ■ 1 2 »IJD*50 

ooooio 

00I0S 

2* 

PARAMETER  LD«ISo  »NNDlM«?S 

•MMDIM-IO 

000010 

00106 

2 • 

parameter  narr«io*id*jo*i  i* 

JO^S*J0^17»IJD*2»K0^7#NN0IH*MMo1H 

ooooio 

00107 

2* 

parameter  NPAR-5? 

•00010 

00110 

2# 

COMMON/ aRR ATS/U ( lo,  jo  1 

• vdo.joi 

• AMX  du.JOl 

• 

ooooio 

001 10 

2 • 

• rxdo.JO)  .RvdO.JD) 

• SI  1 ( ID. JDI  • 5 | 3 • lOi  JO) 

• 

ooooio 

ooi  io 

2# 

• S33 ( ID , JO  1 i P < I 0 , JD 1 

.F(ID.JO) 

•XkIKD) 

1 

ooooio 

OOllO 

2* 

•YK(KD)  ,X(lol 

• R ( ID) 

• XPL ( Ip) 

1 

ooooio 

001 10 

2 • 

• RPLdOl  lOX(lO) 

• DXPC  JD) 

•r ( jd) 

1 

ooooio 

001 10 

2« 

• TPLCJOI  , D Y ( JD ) 

•DYPt JD) 

,TAU(lD) 

• 

ooooio 

00110 

2« 

• ALNIIJO)  i BLN ( IJD) 

»XB( I JO) 

• yb 4 1 JD) 

t 

ooooio 

00110 

2® 

• EL(IJO)  « F R i , JD ) 

•FTC IJD) 

•FB( IJD) 

• 

0000 1 0 

OOllO 

2 • 

• VFOBIIJD)  , YC  T ( I JD ) 

•RHO* • 1 10  ) 

• T J 3»  1 ID) 

• 

ooooio 

00110 

2« 

• T33BdD)  .AfOndJOl 

. POB ( IJD) 

•XCT { IJD) 

• 

ooooio 

OOllO 

2» 

• 1 CRACK  ( JD ) .JC^CMIDl 

•UOBI IJD) 

• VOBI I jD) 

• 

OOOOIO 

OOllO 

2 • 

• IMAS(IJD)  .JMAjUJDI 

•TT INNOIN) 

•ZZ(NNolM) 

• 

OOOOIO 

OOllO 

2 • 

•FF(NNDIM)  , A A • MND  1 M ) 

.FFAAINNDIMI  ,VV(NNd1M1 

• 

OOOOIO 

OOllO 

2* 

■COINNOlMI  » V V V . MMD 1 M ) 

•00010 

0011  1 

2» 

COMMON/PARAMS/  FULL 

• SUR 

,EMP  i aND 

• fak  , 

•oooto 

001 11 

2« 

• OB  , OBF  UL  ,0T 

• G 

.AS  tRHOZ 

i hhu  , 

OOOOIO 

0011 1 

2* 

• BETA  , AP  ■ BP 

•tlast 

.TOUMP  .OTOWMP 

»TCR  . 

OOOOIO 

00111 

2^ 

•OTCP  .TP  , OTP 

•ttotaw 

, PM  1 N .VSCALE 

.EPS  , 

OOOOIO 

0011  1 

2* 

•COMPEN  .SHEN  ,5PEN 

• BO 

.CK  »XPI 

. XP2  , 

OOOOIO 

OOI  I 1 

2* 

• Y P | .YP2  . UCRACK 

• 1MAX 

.UMAX  , J MAXH 

■JHAXH  , 

OOOOIO 

OOI  || 

2 • 

•KMAX  ,KBAR  .KBARH 

• NDUMR 

. NC YC  .ICR 

• JCR  . 

OOOOIO 

OOI  1 1 

2« 

• UMAX  ,]KMAXP  , SMALL 

• REV 

.HER  .JSER 

. XSEP  , 

OOOOIO 

OOI  1 1 

2 • 

•YSEP  ,NNMAX  .MMMAx 

•ZZPRT 

.OELZZ 

•00010 

00112 

2 • 

INTEGER  F ,0B  .FULL 

* SuR 

. EMP  |BND 

,FAK 

ooooio 

00112 

2* 

• .PART  .small  ,RtV 

OOOOIO 

00113 

2» 

DATA  FULL  / l / SUN  / 4/ E hP  / 7 /BNO  / 1 C /F  » iC  / 1 3/UB/)6/PaRT/&/ 

ooooio 

00123 

2* 

OATA  REV/lS/SMALL/n/ 

ooooio 

00126 

2 • 

DEFINE  INDEX  d .JUFLDIO,  1 8, 

F (I • J) | 

ooooio 

00127 

2* 

DEFINE  MBIT  (NB»ftD)aFLD(36«fj5»l  • * P I 

ooooio 

00130 

2* 

INCLUDL  GELCflN  , L I S T 

OOOOIO 

OOI  30 

2« 

END 

OOOOIO 

00130 

2 • 

(aLLCrtft  PROC 

OOOOIO 

00131 

2 • 

PAnAhETEK  uLMAX-Sy 

OOOOiO 

00132 

2 • 

PAKAHETEH  NGEL«&«yLMAX^l24lH 

OOOOIO 

00133 

2* 

COMMON  /GEL  1 / XDUwCDLMAX)  oTBDi  (QLMAX)  . 

HBUlC^LMAX)  t lm A X | T • 

OOOOIO 

00133 

2 • 

lOUUP.IPLOT.lEuTT, ISTOP, 

N A M E ( 12) .ShaSS, IKMAX 

OOOOIO 

00133 

2* 

• t SKOHbUBULULMAa  > ,VBUl<OLMaX) 

OOOOIO 

00133 

2 • 

• • A CL  • GD  T fSVLLtpISP  , V 2 EH  0 

OOOOIO 

00133 

2* 

c 

OOOOIO 

00133 

?• 

tND 

OOOOIO 

OOI  31 

55tpS-.0S 

OOOOIO 

00I3S 

4 • 

DO  i:o  J«2,JrtAXM 

OOOOIZ 

031  to 

5* 

DU  ilu  1 »•?  , JMAXf 

000032 

001*3 

6* 

(l  .JiliSf.i  J 

',u  Tr  i i 

00003S 

con  5 

7 • 

i f i Nb  ? u r v • *m(0 

t.  : i . 

oront? 

uO  1 *t  7 

&• 

1 JS  X l t * J * 

OCOON  7 

jfl  - Ifl  K K fs  ^ 

vn  -0  '0  < k s n 
ooooooo— 
o oooooo  o 
o ooooooo 
a ooooooo 


«A 

< 


ui 

in 


o 

*— 

• 

in 

o 

u 

— » 

in 

Ql 

o 

UI 

z 

n 

\3 

in 

< 

• 

H* 

— 

•*> 

a 

O 

X 

X 

• 

o 

o 

«— 

• 

• 

o 

£ 

X 

z 

->  “J 

— 

w w 

O 

> 

UI 

n 

»y>  a 

a 

a 

3 

< 

< o 

•— • 

. — . 

Z 

z 

x 

r u. 

”5 

-> 

M 

■)  > 

• 

• 

►- 

a 

a — * 

—* 

— 

33, 

►- 

o 

X 

X u. 

— 

o 

ui 

z 

•• 

<— 

->  — 

3 

u 

0 c 

UI 

z 

-i 

a. 

£ 

O 

(J 


O-Nn  Tlfl<0 


a 

JZ 


o 

— <M 

in 

<0  — «M 

in 

iA  J> 

in 

m 

lA  4 4 

o 

o 

o 

o o 

o 

o 

o o o 

X 

o 
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o 

u 

o o o 
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yrOR,S  SHM  AS 

FOR  SE2C”09/19/75-09:Hc;02  <3.1 


SlIHAS 


SUBROUTINE  SMHAS  ENTRr  POINT  CCO|6j 

STORAGE  used:  COOE(l)  00CI7«|  OATA(O)  UOOOSO;  blank  COMMONS!  OOOOOO 

COMMON  BLOCKS: 

0003  ARRAYS  100151 
OOOH  P AR APS  000073 

0005  GEL!  000H2H 

EXTERNAL  REFERENCES  I BLOCK . NAME) 

0006  NERR3S 


STORAGE  ASSIGNMENT  (BLOCK.  TYPE.  RELATIVE  LOCATION.  NAME) 


0001 

000)07 

1 0 l L 

3CC  I 

0U0I35 

UOL 

0001 

000027 

13*G 

0005 

OOOH 17 

ACC 

0003 

07  67  3H 

AFOB 

0003 

075*05 

ALN 

0000 

R 

OOOOIO 

AHXl 

0000 

R 

00001  H 

AHX  2 

OOOH 

000015 

AP 

OOOH 

0000 1 H 

BETA 

OOOH 

1 

0000C3 

BNO 

OOOH 

ooooi* 

BP 

OOOH 

000036 

CK 

OOOH 

000032 

COHPEN 

OOOH 

oooo7a 

DELZZ 

OOOH 

000023 

OTCP 

OOOH 

000021 

OTDUHp 

OOOH 

000025 

OTP 

0003 

R 

075272 

or 

0003 

075HI7 

OTP 

OOOH 

I 

000002 

EMP 

OOOH 

I 

OOOOOH 

FAK 

0003 

0 7 6 3 H 3 

FB 

0003 

0777H2 

FF 

0003 

076177 

FR 

0003 

076261 

FT 

OOOH 

1 

OOOOOO 

FULL 

OOOH 

OOOOIO 

6 

0005 

OOOH  20 

GOT 

OOOH 

000013 

HMU 

0003 

077162 

1CRACK 

0005 

000230 

l DU  HP 

0005 

000232 

1 ED  I T 

0005 

000251 

UMAX 

OOOH 

000C6C 

l ikHAXp 

ocoo 

l 

OGOOCi 

IM 

OOOH 

I 

000016 

l maxm 

uOoO 

1 

CCOO  1 2 

imjm 

30  jO 

000021 

1NJPS 

0005 

000233 

ISTOP 

0000 

I 

0C0002 

J 

OOOH 

OC.OUS6 

JCR 

0C03 

I 

077576 

JhAS 

ODu* 

OOC3H5 

JP  AX 

OOvH 

i 

C0uul7 

JMhaM 

OOOH 

3000S2 

kbarm 

OOOH 

03C J5l 

MAX 

uOCS 

0C0226 

LM  AX 

OOOH 

00005  H 

NCYC 

UOiiH 

00C053 

NDl/MP 

UOOH 

000067 

nnmax 

0003 

053650 

P 

0000 

1 

OOOOOO 

p ah  T 

oc:5 

OOCIHH 

P9UL 

0003 

07HSS3 

H 

OOOH 

I 

000062 

nEV 

JC03 

07657  1 

RHOVB 

OOOH 

0C3033 

SMEN 

OOJH 

1 

03006! 

Small 

0005 

G002S0 

SMASS 

0000 

R 

003001 

SSEP5 

OOOH 

1 

ooooci 

SUR 

OCOS 

OOOH  2 1 

SVEL 

0003 

0H6263 

533 

GGGS 

000227 

T 

OC33 

k 

C7SSHH 

TAU 

OOOH 

000017 

TL  AST 

OCOH 

00C02H 

TP 

0003 

077*60 

TT 

0003 

076673 

T33B 

0003 

OOOOCC 

u 

u035 

030253 

UBUL 

CC03 

005365 

V 

C005 

0003  35 

VBUL 

bC  jO 

k 

nooot 1 

V F 

0000 

R 

0C00I6 

VOLT 

ODcO 

R 

OOOOC  7 

VOL  1 

0030 

u 

-00013 

*0L2 

0003 

IOOI37 

V V V 

O00S 

0CCH23 

V2lKG 

jCy3 

C7-OI  2 

A 

0003 

C/7  100 

act 

00*3 

066622 

X K 

uC23 

A PL 

OCOH 

OGCciS 

aS£P 

C75u2C 

Y 

; t 

37-023 

YB 

0003 

C7  1 556 

T K 

' *5 

v-  - - 

C 7 5 i 'i  5 

rPc 

: w * 

C3Cu« l 

rP  \ 

0003 

C 7 7 7 1 1 

1 6 

6.  C - * 

> l 

//0C  * 

0001 

000035 

1 H 1 G 

0003 

077773 

AA 

0003 

R 

012752 

AMX 

0000 

R 

000015 

amxt 

OOOH 

00001 1 

AS 

0003 

075567 

BEN 

OOOH 

000035 

M 

0003 

1*0106 

CD 

OOoS 

000H22 

OJSP 

OOOH 

060007 

OT 

0003 

07H716 

OX 

0003 

07H757 

DXP 

OOOH 

000031 

EPS 

0003 

i 

061*35 

r 

0003 

I0002H 

FFAA 

0003 

076115 

ru 

0003 

020337 

FX 

6003 

0*572* 

FT 

0000 

1 

000003 

I 

OOOH 

000055 

ICR 

0000 

1 

OOOOOH 

! J 

OOOH 

006057 

IJHa? 

0003 

I 

07  75 1 H 

I HAS 

OOOH 

OOOOHH 

I MAX 

0305 

C0023I 

l PLOT 

OOOH 

000063 

1 SEP 

0303 

077307 

JCRAC* 

0000 

I 

000006 

JM 

OOOH 

00006H 

JSEP 

OOOH 

000051 

FB  AR 

OOOH 

000070 

HHHAX 

0005 

O0O23H 

NAME 

OOOH 

I 

ooooos 

OB 

OOOH 

000006 

OBFUL 

OOSH 

000027 

PM  IN 

0003 

0770|6 

POB 

OOOH 

000012 

RHOZ 

0003 

07H6S5 

RPL 

OOOS 

000252 

SMOM 

OOOH 

0000  3 H 

spen 

0003 

033311 

51  I 

00Q3 

0*0676 

S 1 3 

OOOH 

000022 

TCP 

OOOH 

000020 

tduhp 

OOOH 

000026 

ttotal 

0003 

076*32 

TI30 

OOOH 

0000H3 

UCRACK 

0003 

077350 

UOB 

0003 

R 

07*H25 

VFOB 

0003 

077H32 

VOB 

OOOH 

000030 

V5CALE 

0003 

100055 

VV 

0003 

075751 

XB 

0005 

OOOOQO 

XBUU 

OOOH 

000037 

XP1 

OOOH 

OOOOHO 

XP  2 

0005 

000062 

YBUL 

0003 

076507 

YCT 

OOOH 

0000*(i 

TP2 

OCOH 

C00066 

YSF.P 
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SKf«A  S 


00101 
00103 
SOI  03 
0010*1 

00105 

00106 
00107 
001  |0 
001  10 
001  10 
001  10 
001  10 
boi  io 
001  10 
OOI  10 
001  10 
601 10 
001  10 
001  10 
001  10 
OOI  |0 
0011 1 
0011  I 

6ou  i 

OOI  I I 
OOI  1 I 
OOI  1 I 
OOI  1 I 
001 1 1 
0011  1 
00112 
00112 
00113 
00123 
00126 
00127 
00130 
00130 

00130 

00131 

00132 
001  33 

00133 
00133 
00133 
00133 
00133 
0013*1 
0013b 
001*10 
001*13 
OOMb 
00 1 **7 


1 • 

SUBROUTINE  SMMAS 

000010 

2 • 

include  com, list 

000010 

2* 

COM# 

PMOC 

onooio 

2 • 

PARAMETER  id-33  ,jD-8s 

•KD-1SJ0 

, No • 1 2 .iJ0-50 

009010 

2* 

parameter  lo-isc  .nndim-2s 

•mmdim-id 

000010 

2* 

parameter  narr-io«io*jd#iimu#b«jd#i7* 

1 JD*2*K0^7*NNDIMfMM0 IM 

000010 

2 • 

parameter  npar-59 

ooooio 

2* 

common/aRrays/ui  Il>»  JD) 

• V(  id, JD) 

•AMXTIo. JD ) 

. 

000010 

2® 

• F X 1 ID, JD>  .FYI  ID.JD) 

> S 1 1 1 1 0 , JO  > . 5 I 3 1 1 0 » JD 1 

• 

ooooio 

2 • 

• S3  3 I ID.JD)  ,P( I j. JD) 

• FI  10.  JD) 

.xkikD) 

. 

OOOOIO 

2 • 

•YKIKD)  »X(1u) 

•R( 10) 

, XPLl  Ip  1 

> 

OOOOIO 

2^ 

•RPL(ID)  ,DX<ID) 

»OXP< |0) 

,Y( JO) 

• 

OOOOIO 

2* 

•YPLIJO)  ,DY<JD) 

•OYPI JD) 

.TaUIID) 

• 

OOOOIO 

2* 

• ALNI  1 JD)  ,BCN<  IJU) 

• XBI  I JD) 

, TB 1 1 JD) 

> 

OOOOIO 

2* 

• FLUJD)  .FPIUD) 

.FTI I JD) 

.FBI  1 JO) 

. 

O0O0IO 

2* 

• VFOdI  1 JO)  , T C Y | I JO) 

• R M 0 V • < I 0 1 

.T]3Bt 10) 

. 

•00010 

2* 

* T 3 3 B ( I J)  ,ArOb(  I JO) 

•POBI 1 JD) 

.XCT(lJO) 

. 

00O010 

2* 

•1CRACFI JD)  ,JC**CM  ID) 

• UuB ( I JD ) 

. VOB 1 IJU) 

> 

OOOOIO 

2« 

• IMAS I ! JO)  t JMAS ( I JD ) 

.TTINhDIM) 

.ZZINNC1M) 

. 

OOOOIO 

2 • 

•FF(NUDIM)  . A A I i«ND  I H ) 

,Ff  AA(NNDIH)  .WlNNoIM) 

t 

OOOOIO 

2 • 

• CO(NNOIM)  ,VVV  4 M)I0  1 M } 

OOOOIO 

2* 

COMMON/PA?  <lMi/  f DLL 

» SuR 

.EH.-  iaND 

.FAX  , 

ooooio 

2* 

• OB  , Ot)F  UL  ,0T 

• G 

i AS  .NHOZ 

. H MU  , 

OOOOIO 

2 • 

• BETA  • A P ,BP 

•TLAST 

.TOUMP  .otoomp 

• TCP  . 

OOOOIO 

2# 

•DTCP  .TP  .DTP 

.ttotal 

, PM  | N . VSC  ALE 

• EPS  . 

ooooio 

2« 

• COMPEN  § SHEN  » SPEN 

• BQ 

,CK  iXM 

t XP 2 , 

ooooio 

2* 

•TPI  t YP2  .UCRACK 

. IMAX 

, JH  A X , l M A XM 

.JMAXM  • 

OOOOIO 

2 • 

•kmax  .kbaR  .kbaRm 

• N DUMP 

,NCYC  .ICR 

• JCR  . 

OOOOIO 

2* 

• UMAX  .IKMAXP  .SMALL 

, RE  V 

.ISCP  .JSEP 

• X SEP  . 

OOOOIO 

2* 

• TSEP  , N N M A X .MMMAX 

, 2 2PR T 

.delzz 

OOOOIO 

2» 

INTEGER  F ,0D  .FULL 

.SUR 

,£Mp  ,BNO 

.FAX 

OOOOIO 

2* 

• .PART  , SMALL  #RCV 

OOOOIO 

2* 

DATA  FwLL/|/SUR/M/EhP/7/6:>IS/lC/FAX/!3/uB/i6/PAnT/s/ 

OOOOIO 

2* 

0 A T A REV/lb/bMALL/1**/ 

OOOOIO 

2 • 

DEFINE  INDEX  (1  , J)  «FLOU  , I ft  ,F  II  , J)  ) 

OOOOIO 

2« 

DEFINE  NBI T ( NB ,toD j -F L0< 36-N8 

. 1 .WO) 

OOOOIO 

2* 

include  gelcmn.lIst 

OOOOIO 

2» 

END 

OOOOIO 

2* 

GELCMf*  PKOC 

OOOOIO 

2* 

PARAMEiER  v«IMAX-Su 

OOOOIO 

2« 

parameter  ngel-s^wlmaa#^!4* 

000010 

2* 

COMMON  /6EL 1 / XcOLMLMAXl.TBlJLl8l.HAX). 

PBUlIQLMAX)  ,LMAX,T  . 

OOOOIO 

2* 

. 1 DUMP, 1 PLOT , ItulT.lSTOP.NAME  I 12)  ,SMaSS.|KMaX 

ooooio 

2# 

• , SMOh.UBULCQLMAA)  .VBUlUlMaXI 

OOOOIO 

2# 

• .ACL.bOT.SVEL.OlSP.VZERO 

ooooio 

2* 

C 

ooooio 

2* 

ENO 

OOOOIO 

3# 

5SEPS-.05 

ooooio 

<4* 

SO  IIS  J*2  , JM  A Xtt 

000012 

5» 

00  lie  1*2,1  MAXi| 

000035 

6 • 

IF  I Nbl T 1 SMALL ,F ( 1 , J 1 ) . «E . 1 ) GO  TO  | | D 

0000*10 

7* 

If!  MBIT  1 FULL  .7  ItijIl.i.L.llbO 

To  IIS 

0000*15 

8 • 

1 J* INDEX  | | . J) 

000052 

Page  278 


SMH  AS 


00150 

f • 

1H-1HAS* 1 Jl 

00151 

10* 

JM*  JH A S ( 1 J ) 

00152 

1 1 • 

VOLl-VFOSI  1 JI*TAtJ|  | )*0Y|  J) 

00153 

12* 

AMX 1 ■ AM X C I t 

0015H 

1 3* 

vr-i  .o 

00155 

IF<N0IT<OBfF< 1*vJm) >«NE9 1)60 

00157 

15* 

1MJM-1NDEX1 !Hf JM) 

OOUO 

!*• 

VF-VFOBt IMJH1 

00141 

17* 

101 

V0L2«VF»TAU(IH)»0Y(Jh) 

00142 

1 §• 

AHX2-AHX ( 1M. JH) 

00143 

1 1* 

AMXT»AMXt*AHX2 

0SI4* 

20* 

V0LT»V0Ll^V0L2 

00145 

2M 

AHX  < I . J)«  VOL  1 *411X1/ VOLT 

00144 

22* 

AMX< 1H, JH)»VOL2#AMX7/VOlT 

00147 

23« 

1 1C 

continue 

0C172 

2H« 

RETURN 

00173 

25« 

END 

END  of 

COMPILATION;  MO  DIAGNOSTICS. 

BHDG 


SPLOTS 


oooos* 
0000*0 
0000*1 
000070 
000072 
000071 
000(01 
•00(01 
000(07 
000( (7 
•00(2( 
000(23 
000( 2S 
I00 | 30 
OOi (12 
000(12 
•00 ( 75 
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5PU0TS 


tfFOR.S  SPtOTS 

for  se:2c-o9/I9/7&-o?:4*o:0‘*  <o»> 

SUBROUTINE  SPLOTS  ENTRY  point  'j0C25o 


STORAGE  USED;  CODEI1)  00026/;  DATA(G)  jOCGSlJ  BlAnK  CONrtONi2)  000000 
COHMON  BLOCKS; 

0003  ARRAYS  iooisi 

0004  PARAHS  000073 

0005  GEL  1 000424 


external  References  ibluck,  na*e> 


0006 

hodev 

0007 

dga 

0010 

NNCOds 

0011 

BOUNDS 

0012 

PLOTS 

oon 

L1NEUV 

00 14 

N 1 02S 

0010 

NERR3S 

storage 

ASSIGNMENT  (SLOCK,  TYPE 

Relative  cocatidn*  uahei 

0000 

000023 

1 OF 

0001 

OuOO 1 * 

iogl 

0031 

000212 

I02L 

0001 

000012 

1 l 4L 

0001 

000060 

1 1 **L 

0001 

0001 1 1 

1 6 3g 

0301 

000131 

1 7 2g 

0C01 

000144 

I75G 

0003 

077773 

aa 

OOOS 

0004 J 7 

ACC 

0003 

076734 

A F OB 

0033 

C7560S 

ALN 

O003 

012752 

AH  X 

000* 

OOOOIS 

AP 

0001 

ooodt 1 

AS 

0003 

0 75667 

BEN 

0004 

OiOCIt 

BETA 

0004 

: oooo03 

BNO 

0001 

00001* 

BP 

0001 

000035 

BQ 

0303 

1 CO  1 06 

CD 

00u4 

JJC036 

CK 

DCU4 

OOC J32 

COHPEN 

3001 

000072 

oelzz 

OOOS 

000422 

oisp 

0004 

000007 

OT 

0024 

C07023 

D T C P 

3034 

30 Ct)2  I 

UTOUHP 

0001 

00002S 

OTP 

0003 

074716 

DX 

0003 

074757 

DXP 

□ 3u3 

07S272 

Dr 

3003 

075417 

DTP 

0001 

I 

000002 

ChP 

0001 

000031 

EPS 

0003  | 

06123S 

F 

0 CU  4 

1 

0303C1 

F AK 

0003 

076343 

FB 

0003 

07  7 7*(  2 

FF 

0003 

100024 

FF  AA 

0003 

0761  1 S 

Fl 

0333 

074177 

F H 

0033 

076261 

FT 

0001 

1 

000000 

FULL 

6003 

o2o337 

FX 

0003 

025724 

F Y 

OJGOIO 

G 

03-5 

3C0H20 

GDT 

0031 

000013 

HHU 

0000 

1 

0000 I 4 

1 

0004 

OOCQSS 

ICR 

OOu  3 

377U2 

1 C R A C tc 

003  5 

00C23C 

10UMP 

OOOS 

000232 

1 ED  I T 

0000 

1 

00060 1 

1 P L 

0004 

000057 

I JNAX 

UO  JS 

0002S 1 

1 KM  A X 

0004 

000060 

1KHAXP 

0003 

077SI1 

1 H AS 

0001 

000044 

IMA* 

0004  | 

000046 

l m axh 

UOuO 

000332 

I N JP  S 

0035 

000231 

1 PLOT 

0001 

000063 

1 SEP 

0005 

000233 

ISTOP 

0000  t 

COOOIO 

1 XL 

0000 

I 

0JC307 

I XR 

ooco 

I 00001 I 

IYB 

0000 

1 

00000* 

ITT 

0000 

I 

000013 

J 

0004 

0000S6 

JCR 

0003 

07730/ 

JCRACK 

0003 

077576 

JHAS 

0001 

OOOOIS 

JHAX 

0001 

I 

000047 

jma  xh 

0004 

OOOC6  4 

JSEP 

0000 

I 

000312 

K 

OC04 

030051 

K9AR 

0001 

0000S2 

KB  ARM 

0001 

I 

ooooso 

KM  A x 

OOOS 

000226 

lmax 

0004 

000073 

MMMAX 

0035 

I 000234 

name 

0001 

OOOOS1 

NCYC 

0001 

OOOOS 3 

nduhp 

0004 

000067 

nnmax 

0304 

I 

ooooos 

OB 

0034 

000006 

OBFUL 

0003 

0S36S0 

P 

0000 

1 

0O0000 

PA*T 

OOOS 

003144 

PBUL 

0004 

OOOC27 

PH  |N 

GC  63 

077016 

POB 

0003 

071SS3 

R 

0001 

I 

000062 

REV 

0003 

076571 

RHOVB 

0034 

000012 

RH*OZ 

0003 

074*55 

RPL 

0001 

000033 

SHEW 

6001 

I 

0OQO61 

SMALt 

OOOS 

0C0250 

S t A 5 5 

0035 

300252 

SMOM 

00C4 

000034 

spen 

0001 

I 

oooooi 

SUR 

OOOS 

000421 

SVEt 

0003 

03331 1 

51  1 

0003 

01067* 

S 1 3 

00  j 3 

046263 

533 

OOOS 

R 

000227 

T 

0003 

07  55  4 4 

TaU 

0004 

000C22 

TCP 

0004 

3liOC2w 

TDUrP 

3C.4 

OOCU1 7 

tlast 

0001 

000021 

TP 

0003 

077660 

TT 

0004 

000026 

ttotal 

0003 

076632 

1 1 Jri 

0033 

376*73 

T 33b 

0003 

R 

000000 

U 

OOOS 

000253 

UBUl 

SPLOTS 


000s 

000013 

UCRACK 

0003 

077132 

VOB 

0003 

R 

071512 

X 

0000 

R 

003002 

XL 

0001 

000085 

X SEP 

0000 

R 

000005 

YBE 

0001 

R 

000011 

YP1 

0000 

R 

000020 

Y 2 

0003 

377350 

UOB 

OOJR 

R 

000030 

YSCALF 

0003 

075751 

XB 

0003 

R 

0716|1 

X PL 

0300 

R 

003015 

XI 

0005 

000062 

YBUL 

0001 

R 

COOO'U 

YP2 

0003 

07771,1 

ZZ 

C0u3 

H 

305365 

V 

JC33 

130055 

vv 

OOJS 

OOOOOO 

xbul 

DOOM 

H 

OOOC37 

API 

UCDO 

n 

000017 

A2 

0003 

076507 

YCT 

OOOR 

030066 

YSEP 

DOOM 

030071 

ZZPRT 

0005 

000335 

VBUL 

00u3 

100137 

YVV 

0003 

077100 

XCT 

000** 

R 

000010 

XP2 

0003 

R 

075020 

Y 

0003 

R 

071556 

yk 

0000 

R 

00000* 

yt 

3003 

074M25 

VFOg 

0005 

000*23 

vzeko 

3003 

R 

044422 

X K 

3000 

R 

000003 

XR 

0003 

074033 

Y t 

0093 

R 

07SHS 

YPL 

0000 

R 

000014 

Y 1 

00000  «0UGN0STlc« 


the:  name  fake  apfeaRs  in  a dimension  or  type 


STATEMENT  but  is  never  REFERENCE*. 


00)01 

00101 

0010) 

0O)O) 

00)01 

00101 

00)03 

00103 

00)03 

0010H 

0010S 

00) 04 
5 00107 

*2  ooiio 
* 00)10 
oo  00110 
° 001 10 
00110 

001) 0 
OCI  10 
OOIIO 
001  10 
001  10 
OOIIO 
OOIIO 
001  10 
031  10 
001  I I 
0011  I 
coil  I 

001  I I 
001  | 1 
0011  I 
OCI  1 1 

coil  I 

DC  III 
ZZ  » I 2 
OC  1 1 2 
Jul  • 3 
CC123 

c°!26 


)• 
2 • 
3* 
R* 

4* 
7 • 
8* 


c 

c 

c 

c 

c 


SUBROUTINE  SPLOTS 

•••••.••••••••••••••••••••••••••••••••••••••*••* 

••••••««•••••••••••••••••••••••••••••••.•••••••• 


••••••«*••••••••••♦•••*•••••••• 

•••••••••••••••••••••••*t****** 


splots  generate*  particle  plots  and  velocity  vector  plots. 


c 


INCLUDE  COM, LIST 


8 • COM*  MROC 

$•  PARAMETER  10*33  ,JD*6S  ,KU*ISO.  «ND»12  ,|JD*SO 

8*  PARAMETER  LD-ISj  ,NNDIM»25  ,MMD1N»10 

a*  parameter  naRR"10«id»jd*ii«id*s»jd*I7«ijo*2»kd*J*nndim*mhdim 

8*  PARAMETER  NP AR*5V 


8 • 

comhon/aRrays/ui  ii>, jo) 

,V( I D , JD I 

.AMXUo.JO) 

fi« 

• FX 1 10, JO)  »FY< |0, JO) 

• S 1 1 ( I 0 • Ju ) .5131 10. J0> 

«• 

• S3  3 1 ID, JO)  ,P(  Io* JO) 

,FI ID, JO) 

•XK(KD) 

#• 

•YKIKD)  »X(lu) 

, R 1 ID) 

,xpl (to) 

§• 

• RPLUOI  ,0X<  10) 

,DXP( ID) 

,YI JD) 

8* 

• YPLUOI  9DYCJOI 

,DYP( JD) 

.TAUUD) 

8 • 

• A L N ( 1 JO)  • BLN l I JO) 

,XBI 1 JD) 

,TB( I JD) 

8* 

• FLI  1 JO)  ,FR(  1 JO) 

,F 1 II JD  ) 

iPBUJDI 

8 • 

• VF0B1  I JO)  • Yc  T < I JD) 

, PhOvM  ID  1 

, T | 38 1 I 0 ) 

8 • 

• T33B1  10)  .ArOiil  t JO) 

,pue 1 1 jd  l 

, X C T I l JD • 

8« 

•ICRACX(JD)  .JC^ACK(IO) 

,U001 | JDI 

, VCB < 1 JD  ) 

0* 

•JMAS<  I JO)  ,JMA5i  | JO) 

,TT  CNNDIMI 

zziNNom 

8* 

• f f (NND ih)  , AA(hNDIM) 

.FFAAINNOIHV  » V V 1 n N l ! M ) 

8 • 

• CDCNNOlril  ,VVV|MHDlh) 

8* 

COMPJN/PARAMS/  FULL 

,SUR 

,EMP  • BND 

FAK 

8* 

•OB  .ObFUL  ,01 

.4 

, AS  * RHO  Z 

HMU 

8* 

• BETA  , AP  .BP 

.tlast 

,TDoMP  ,otoump 

TCP 

8 • 

•dtcp  ,TP  .OTP 

.ttotal 

,PM|N  ,VSCALE 

EPS 

8 • 

•COHPlN  .ShEh  . 5PEN 

. ft  * 

,CX  ,XPI 

X P 2 

8 • 

•YP1  »YP2  .UCRACK 

• IMA* 

,JM*X  , | MAXM 

JMAXM 

8* 

9 K M a X * Kb  AR  • ?'  6 A R P 

■NUUrtP 

, N C Y C lid 

JCR 

8 • 

• 1 JMAX  » * <M  A X P .SMALL 

• REV 

,|StP  , JST  P 

XSEP 

9 • 

• v S f.  P »N  .MAX  ,*ftwAX 

♦ZZPHT 

,ui±u 

8 • 

l N T E 6 F * F .oj  .FULL 

.S<'R 

,£Mt'  , bNO 

* 

FAK 

6 * 

• ,PA*T  • S L ,h* 

V/ 

CJ  • 

u At  A f JLL/  » */  Vs 

j / i ■ * • * / 1 j 7 

w t»  / , w / ► -•  4 I 7 5 7 

ft* 

IU!  ^ nt*  ' 3 ‘"#i  * 1 - ' 

ft* 

* t *t  i • . > » » » 1 «f  , • % ; 

, 1 r , j j 

000000 

000000 

000000 

oooooo 

000000 

000090 

OOOOOO 

OOOOOO 

oooooo 

oooooo 

oooooo 

oo&ooo 

OOOOOO 

006900 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

000300 

00CJ30 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

oooooo 

OOOOOO 

oooooo 

oooooo 

n^oooc 
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SPLoTS 


OOI27 

8* 

OEFluE  N&IT(NB,f;Dj«FLDl34-rjb.l|4w) 

030000 

00130 

8 • 

INCLUDE  GELCMM.lIST 

000000 

00130 

8* 

EN0 

oooooo 

00130 

8 • 

GELCMN  PKOC 

oooooo 

00131 

6 • 

PARAMETER  QLHA XmSo 

oooooo 

00132 

• • 

parameter  ngel-5*wlmax*i2*ih 

oooooo 

00133 

8* 

COMMON  /GEL  1 / XBUl««LMAX) ,yBUL(9LM*X)  .HBUlIOLMA*)  ,LMAX,T, 

•ooooo 

00133 

it 

. 1 DUMP , I PLOT  i IEulT  i ISTOP.NAMEI  12)  , S M ASS  , I KM  A X 

•00000 

00133 

• • 

• * SM0H,UBUL(QLMAA) tVBULlQLMAXi 

oooooo 

00133 

it 

• ,ACC,GDT,SVEL.UiSP,VZERO 

•QOQOO 

00133 

8 • 

C 

000*00 

00133 

• • 

END 

000*00 

00134 

ft 

0 I HENS  ION  FAKEUOO) 

000000 

00134 

lOt 

C 

••*••  set  bjndo#  mode 

dodooo 

00135 

lit 

CALL  MODEVC ,*INDOwM 

oooooo 

00134 

I2t 

IFL-O 

000004 

00 1 36 

I3t 

c 

•••••  SET  GR10  L | H | IS 

000004 

00137 

nt 

XL-XPL  l 1 1 

000005 

00140 

ISt 

XR ■ X PL t 1HAXM) 

0000*7 

001  H 1 

I4t 

Y T»  YPL < JMAXM 1 

00001  1 

001R2 

17t 

Y 0 E ■ Y P L ( 1 ) 

00001) 

00143 

I it 

100 

IF1XR.GT.YT  >G0  TO  1 |M 

•00016 

00 1 45 

1ft 

1 YT-923 

000021 

00146 

20* 

1 XH«1 23.  0*800.0»Xh/( YT-YBc 1 

00002) 

00147 

21 1 

GO  TO  115 

00004* 

00150 

22« 

l IH 

IXR-923 

000042 

00ISI 

23t 

1 YT-I 2 3.0*800. 0» C YT-VBE ) /XR 

00004) 

00152 

2M* 

1 is 

1 XL* 123 

00006* 

00153 

25« 

ITB-I2) 

000061 

do  1 53 

24« 

c 

•••••  DEFINE  GRAPH  AREA 

000061 

00154 

27t 

CALL  OGAUXLtlXRitTTilYBtXLtXR.TT.YBE) 

0000)2 

CO  1 55 

2it 

ENCODE! 10, NAME! 10) ) ,T 

000074 

00160 

2ft 

10 

FORMAT  1 6H  T1ME-.1PE12.4) 

000|*2 

00160 

30* 

c 

• ••••  dRa»  projectile,  outer  grid  lines,  etc. 

000)02 

00161 

3 l • 

call  bounds 

000)02 

00 1 6 1 

32t 

c 

•••••  plot  particles. 

000)02 

00162 

33t 

DO  1 0 I K-I.KMAX 

000|04 

00165 

3H* 

CALL  PLOTSIXK(K) .YKIKl ,42) 

000| 1 1 

00166 

35t 

101 

CONTINUE 

000)22 

00170 

34  • 

CALL  BOUNDS 

OO0 ) 22 

00 1 70 

37  • 

c 

•••••  DO  VELOCITY  VECTOR  PLOT. 

000)22 

00171 

38  • 

DO  102  J-2.JMAXH 

000)24 

00174 

3?* 

DO  102  1 a2  , I MAXM 

000)44 

00177 

HO* 

IF (NB I I (FULL ,F( I . J 1 ) ,NE. 1 .AND.NB I T ( SUR ,F ( I , J) ) *NE.  1 IGO  TO  102 

000)44 

00201 

H|t 

Xl-Xt  1 ) 

000)67 

00202 

H2t 

Tl-TC J) 

000)71 

00203 

H 3* 

X2-X1«.VSCALE«U(  | ,J) 

000)7) 

00204 

H *1  • 

T2-T 1*VSCALE»V1 1 ,J) 

000)77 

00205 

H5t 

CALL  LINEUVIXl ,YI ,*2,Y 2) 

00020) 

00206 

Hi* 

102 

continue 

000216 

002|| 

H 7 • 

IF! 1FL.EQ.I IRETURN 

000216 

00211 

Hi* 

c 

•••••  SET  6RID  LIM|TS  FOR  CLOSEUP  PLOTS. 

000216 

00213 

H?t 

IFL-I 

000224 

00214 

50* 

XL-XPl 

000226 
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002 1 S 

S 1 • 

AK-XP2 

00214 

S2* 

YT-YP2 

00217 

S3* 

YBE-YP 

00220 

SI* 

GO  TO 

00221 

ss* 

END 

end  of 

compilation; 

9HDG 


I DIAGNOSTICS. 


sflots 


000230 

000232 

000231 

000234 

000244 


SPOINT 
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• • i i 


5P0IM 

tfFOR.S  5PO I NT 

FOR  5E2C-09/19/75-c9;HC:07  IG.) 

SUBROUTINE  SPOInT  ENTRY  POINT  GC322| 


STORAGE  USCD;  C 0 Q E ( l ) 0G3230;  DaTA(O)  JOOUS7J  CL  A«<K  CUmmON|2)  i,COO}0 

COMMON  BLOCKS; 

0003  ARRAYS  I001SI 

0004  PARAMS  000073 

0005  GEL  I GOG  4 2 4 

0006  SPCO  000002 

EXTERNAL  REFEHt^CES  ittLOCK,  NAk,l  ) 

0007  CELL 

0010  LCELL 

OZ  1 I SORT 

0012  NPRTs 

00 1 3 N102S 

0014  NERR3S 


storage  assignment  (block.  type.  Relative  location,  name; 


0000 

OOOQI 7 

1 OF 

0001 

OGO 106 

100L 

3001 

0001 17 

1 0 1 L 

0001 

000157 

102L 

0001 

000173 

1 O^L 

0001 

cooioo 

\C  4L 

063  1 

000006 

l 3 7 G 

uOu  1 

000131 

200G 

0000 

R 

000010 

A 

0003 

077773 

AA 

0005 

000417 

ACC 

C003 

076734 

AFOB 

uOuO 

h 

COO Jl 1 

ala 

0003 

R 

075405 

ALN 

0003 

012752 

AMX 

OOOS 

ocnoi s 

Ap 

30G4 

03001 1 

AS 

0030 

H 

coo^l 2 

BEa 

9003 

R 

075447 

BEN 

OOOS 

0000|S 

BETA 

OOOS 

I 

0C0003 

BNO 

0j04 

C u 0 G 1 6 

BP 

GGG4 

03Cu35 

BO 

0033 

100104 

CD 

Ooos 

000034 

CK 

OOOS 

000032 

COMPtN 

00  uu 

K 

C j 0 j 1 3 

CjjI" 

’1 

OCllul  4 

0 

OO3S 

300072 

DELZ2 

0305 

000H22 

D | Sp 

0000 

R 

00001s 

PM  I N 

0004 

0 jOGC7 

31 

o034 

000^23 

uTCR 

OOuH 

00032 1 

DTDUMP 

OOOS 

000025 

DTP 

0000 

R 

07471 6 

DX 

0300 

R 

0 C 0 J C 6 

0*  A 

0/4/5; 

L*^ 

00&3 

0752/2 

DY 

C3C0 

R 

000007 

DYA 

0003 

0/S41 7 

0 YP 

03  J4 

I 

0wCu02 

EHP 

3034 

030031 

t P 5 

0300 

H 

oooooi 

EPSP 

0003 

l 

041235 

F 

OOOS 

I 

000004 

F AK 

30 u 3 

0 7 6 3 4 J 

t b 

aoy3 

07/  42 

Ft 

3003 

10002*1 

FFAA 

0C93 

0761 15 

f L 

0003 

076177 

FR 

aiJ 

07626 1 

FI 

u3C4 

I 

CGOuOC 

full 

0003 

920337 

FA 

0003 

02S72S 

FT 

ooos 

000010 

G 

U0u5 

000420 

GDT 

0004 

CD0U13 

mmu 

OOCO 

l 

300003 

1 

OOOS 

000055 

ICR 

0003 

077162 

ICRACK 

00C5 

000230 

i*UMP 

wQO  5 

0CC232 

IE01T 

0030 

1 

000005 

I J 

OOOS 

000057 

I J«A* 

0005 

00Q2SI 

I kmax 

00J4 

000060 

1KMAXP 

0003 

077514 

IMAS 

OOOS 

OOOOSH 

I M A X 

OOOH 

0000S4 

IMAXH 

0000 

000043 

INJPS 

0005 

0*0231 

IPLOT 

0004 

I 

000063 

1 SEP 

0005 

000233 

l STOP 

Oooo 

1 

ooooos 

J 

0004 

0000S6 

JCR 

0003 

077307 

JCRACK 

0003 

077576 

JM  A S 

DOOM 

0000S5 

jhax 

OOOH 

OOOOH7 

JMAXH 

0004 

I 

00CC64 

J5EP 

□ 000 

I 

000002 

K 

0004 

I 

000051 

KBAR 

DOGS 

000052 

kbarm 

OOOH 

000050 

KMAX 

0006 

I 

000000 

KSEP 

00O0 

I 

000016 

L 

0005 

I 

000224 

L«AX 

0004 

I 

000001 

L SEP 

OOOS 

O0OO7O 

MMMaX 

0005 

000234 

NAME 

0004 

000054 

NCYC 

0004 

000053 

NOUMP 

OOQH 

000047 

NNHAX 

OOOH 

I 

000005 

OB 

0004 

000006 

obful 

0003 

05365 j 

P 

OOJO 

1 

oouooo 

PART 

OOoS 

0001  H** 

PBUL 

OOOH 

000027 

RMIn 

0003 

077016 

POB 

0003 

C74S53 

R * 

O004 

I 

000062 

REV 

0003 

074571 

RHOVB 

OOOS 

000012 

rhoz 

0003 

074655 

RPL 

0004 

000G33 

Shen 

0034 

1 

300061 

small 

oocs 

000250 

SMASS 

0005 

000252 

smom 

0004 

000034 

5PEN 

0004 

I 

OuCOOl 

SUR 

ucas 

GOG  4 2 1 

SVEu 

0003 

03331 1 

SI  1 

6003 

0*0476 

S13 

0003 

046263 

533 

0005 

OOC227 

T 

0CC3 

075544 

TAU 

OOOS 

300022 

TCP 

OOOS 

000020 

TDUMP 

0004 

000C1 7 

TL  AST 

0004 

0J0G24 

If 

0033 

077*60 

TT 

OOOS 

000026 

TTOTAL 

0303 

0?6432 

T 1 3b 
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000}  074673 

T33B 

0003  OOOGCO 

U 

ocos 

0002S3 

UBUL 

0004 

0000*43 

UCRACK 

0003  077350 

UOB 

0003  008365 

V 

0005  000335 

VBUL 

0033 

07442S 

VF  OB 

0003 

077*132 

VOB 

0004  000030 

vscale 

0003  100085 

VV 

0003  100137 

VVV 

0005 

000423 

V2CR0 

0003 

07*451  2 

X 

0003  R 075751 

XB 

0005  R 000000 

X BUL 

0003  0771 00 

XCT 

0003 

R 066O22 

X K 

0003 

07  *4  4 1 *4 

X PL 

0004  000037 

XP1 

0004  000040 

XP2 

000*1  R OGOOfcS 

X SEP 

00  J3 

075020 

Y 

0003 

R 076033 

yb 

0005  R 000042 

YBML 

0003  0?6S07 

TCT 

0003  R 071556 

YK 

0003 

(75145 

YPL 

0004 

0000*4 1 

Yri 

000*4  0000*12 

Yf2 

0004  R 000046 

YSEP 

0003  077711 

ZZ 

0004 

000071 

ZZPRT 

OOIOI 

1* 

SUBROUTINE  SPOINT 

•00000 

00103 

2* 

INCLUDE  COM. LIST 

••0(00 

01103 

2 • 

COM*  PROC 

•ooooa 

00104 

2 • 

PARAMETER  1 D«33  ,JD«»S 

)K0>|500  . ND ■ 1 2 . l JD"50 

0000(0 

00105 

2# 

PARAMETER  LDa 1 5C  .NNDIM«»S 

.MMDlHalO 

• OOoM 

00106 

2# 

parameter  narrmood*  jd^i !• io«*s*jot 17* i jD*2«KD^7*NNDiHtHMoiM 

OOOOM 

00107 

29 

parameter  npar«s» 

000000 

0OIIO 

2* 

COMMON/ARRAY$/U( lu.JDI 

.V(IO.JD)  .ahxmo.JD) 

• 

oooooo 

00110 

2# 

•FXtIO.JDI  . F Y • 1 D » JD I 

.SIIIIDi  JO  I .SI3U0.JD) 

• 

oooooo 

001 10 

2* 

•S33 1 10 i JO)  •PIlUiJO) 

.F(ID.JD)  .Xk(KD) 

• 

(00(00 

•01 10 

2 • 

• vkikoi  • x ( i o » 

,R ( 1 01  iXPLIId) 

» 

•O0M( 

Oono 

29 

• RPLIIOI  i DX 1 1 0 ) 

.OXPCIOI  , Y ( JD 1 

• 

•00000 

0*110 

29 

• YPL 1 JD 1 » D Y I JD 1 

t DTP ( JD I .TAUIIo) 

• 

•00*09 

00 1 1 • 

29 

• ALNIIJO)  • BEN ( | JO ) 

• X(IIJD)  .Y((Ud) 

1 

0«00M 

Ooi  10 

29 

•FL 1 1 JD 1 .FRIlJD) 

• FT ( 1 JD 1 . Ft  1 1 JO  1 

1 

••OOI* 

00110 

2* 

•VFOBIIJDl  iYcT(IJD) 

• RHOV(  (ID)  »T|3H  I D 1 

t 

I009M 

00110 

2* 

• T33BI1D)  » AFO#  1 1 JD ) 

•POI(IJD)  .XCTfljDl 

• 

•BOlO* 

••no 

29 

• | CRACK ( JO ) iJCRaCKIID) 

. UOB  1 1 JD  I .VOdljOl 

• 

•QOom 

OOI  10 

29 

• I MAS  I 1 JD  1 i JllAS  1 1 JO  1 

.TTINNOIMI  .IZ(NNolM) 

• 

•00001 

OOI  10 

29 

• FFINN01M)  • A A ( NND 1 M 1 

.FFAACNNDIHl  .VVINNOIHI 

• 

■00(0* 

OOI  10 

29 

•CDINNDIM)  ,VVV|MMDIH) 

•0*00* 

OOI  II 

2 9 

common/params/  full 

. SUR  .CMP  tBND 

• fax  . 

OOOOOO 

0011 1 

2 • 

• OB  .OBFUL  i OT 

.6  .AS  .RHOZ 

• HMU  ) 

OOOOOO 

001 1 1 

2 • 

•BETA  .AP  .BP 

.TLAst  .TDurtP  .DTOUMP 

• TCP  • 

•00001 

OOI  1 1 

2 * 

• DTCP  » TP  .DTP 

.TTOYal  .PHIN  .VSCALE 

i EPS  . 

oooooo 

OOI  1 1 

2* 

•COMPEN  .ShEN  .spen 

• 8W  )CK  .XPI 

t XP2  . 

oooooo 

OOI  1 1 

29 

• Y P 1 . YP 2 .UCRACK 

. I M A A ,JMA*  . | M AXM 

•JMAXM  » 

OOOOOO 

Ooi  1 1 

29 

• UMAX  .KBAR  .KOARH 

.NOUMP  ,NCYC  . 1 CR 

i JCR  » 

oooooo 

0011  1 

29 

•UMAX  .IKMAXP  .SMALL 

, Rt V ,!SEP  .JSEP 

• X SEP  I 

oooooo 

OOI  1 1 

2« 

•YSEP  .NNMAX  .MMHA* 

.22PKT  .Otlll 

OOOOOO 

00112 

29 

integer  f .00  .FULL 

. SuR  .EMP  .640 

.fak 

OOOOOO 

00112 

29 

• .part  .small  ,Rrv 

OOOOOO 

OOI  13 

2* 

DATA  FULL/l/SUR/*4/EMP/7/BND/  107FAX/13/UB/14/FART/5/ 

oooooo 

00123 

2 • 

DATA  REV/IS/SMALL/14/ 

Oooooo 

00124 

2* 

DEFINE  INDEX  1 1 , JlaFLDIO, I8.F ( 1 . J) ) 

oooooo 

00127 

29 

DEFINE  NBlT<NB.wDi"FLD(36-MB 

• 1 • A 0 1 

OOOOOO 

00130 

29 

INCLUDE  5ELCMN , L I ^ T 

oooooo 

00130 

29 

END 

OOOOOO 

00130 

2* 

bELCHN  PROC 

oooooo 

00131 

T9 

PARAMETER  0LMAX«5o 

oooooo 

00132 

29 

PARAMETER  m G t f ,r>#-L^AX4  , • * j H 

oooooo 

00133 

29 

COMMON  / j LL 1 / M.Ul: 

V.  . * 11  i »‘’Nl  a*  t .LMAX  , T , 

oooooo 

00133 

29 

. 1 i)UN  . 1 ^lCJT  . ! i • , i P , M 

A T *5S,IFMe>A 

oooooo 
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00133 

2* 

• , ShOh.UbUHOLftAA)  • VdOU  wlHax  j 

oooooo 

00133 

2 • 

• tACC,6UTo5V£ituISP.V2i^o 

000000 

00133 

2 • 

C 

000000 

00133 

2* 

END 

oooooo 

0013** 

3* 

C0MM0N/SPC0M/K5CP . LSLP 

000000 

001  35 

M* 

EPS P*«2 

oooooo 

AaAaii  I 

C3I36 

5* 

00  100  K*K0ARo i t-* 

uuuuu 6 

001*1 

6* 

CALL  CELLC i .J.*> 

000004 

001*2 

7* 

J F < NB I T 100  .F ( I i J) | . HE. 1 )60  TO  IOj 

000014 

001  Hi 

8 • 

I J-INDCX( I .J) 

00002S 

00145 

9* 

0 X A • X B ( IJJ-XKCK) 

000030 

00  1 Hi 

10* 

DYA-YBl  I JI-YX(X) 

000033 

001 17 

1 1* 

A»SQRT  IDXA**2*DYA»*2) 

000034 

00150 

1 2* 

AL A*OX A/a 

OOOOM  7 

00151 

1 3 • 

BE A-OYA/A 

0o0oS2 

00152 

l M • 

COSTH*ALA*aL*M  |j)*tttA*bEN|iJ) 

OQOOSS 

00153 

1 5 • 

0»A*C0STH 

0Q004 1 

00154 

1 4* 

IF(NBI  TIREV.M  1 ,J,  ) .NF.  1 )GC  TO  \ ZH 

000043 

00156 

l 7 • 

IF  ( X K ( K.  ) • G T • X R ( l J J ) GO  TO  1 C 3 

000073 

oouo 

IB* 

1 J 4 CONTINUE 

000100 

30161 

19* 

IF(0*lT*EPS*  »DX(  1 , I{,0  To  .^1 

000  IOC 

00163 

20* 

ICO  continue 

000107 

00165 

21* 

ISEP*0 

000107 

00166 

22* 

JSEP-0 

000 1 10 

00167 

23* 

LSEP-0 

OOOlll 

00170 

2M* 

K5EP-0 

0001 12 

00171 

25* 

XSEP-0 • 0 

000113 

00172 

24* 

YS£P»0«0 

OOOl 1M 

00 1 73 

27* 

GO  TO  103 

0001  IS 

00174 

2B* 

101  KSEP-K 

OOOl 17 

00175 

29* 

DM  I N« 1 # E ♦ 4 

000 120 

00176 

30* 

LSEP-0 

000122 

00177 

3|* 

DO  102  L-l  ,LMAX 

OOOl 3 1 

00202 

32* 

dxa-xk(KSEp)-xbuLiL) 

000131 

00203 

33* 

DY A- YK l KSEP ) -YBUL  lL ) 

00013M 

00204 

3** 

D-SQRT(DXA**2^DYA«*2) 

000137 

00205 

35* 

IF (D»GE*DMlN)GO  To  102 

0001M7 

00207 

34* 

OM  l N»D 

000152 

00210 

37* 

L SEP -L 

000 1 SM 

0021  1 

3 B • 

102  CONTINUE 

000140 

002|3 

39* 

XSEP-XBUL(LSEP) 

000140 

00214 

MO* 

YSEP-YaUL(LSEP) 

000| 43 

002 15 

Ml* 

CALL  LCELLUSEP.JSEP.LSEP) 

000(45 

002 1 6 

M2* 

103  PRINT  10 » I SEP • JSEP. KSEP , LSEP . XSEP , YSEP 

000173 

00226 

M3* 

10  FORNATCIH  , • 1 SEP*  • . I M » • JSEP-*tIM»#  KSEP**  • I If 

00020M 

00226 

MM* 

• • LSEP - • • I M # • XSEP-*  • 1PE12*M , • YSEP" 1 • 1 PE  t 2 • M I 

OO02OM 

00227 

MS* 

RETURN 

00020M 

00230 

M 4 • 

ENO 

000227 

END  OF 

COMPILATION;  NO  DIAGNOSTICS. 

SP01NT 


s\ 

m 

u< 

x 

h- 

KA 


e? 

o 

X 

a 
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stress 


WFOR,S  STRESS 

FOR  SE2C-09/I9/7S-09:MC: 10  (Ot) 


SUBROUTINE  STRESS  ENTRY  POINT  uOJ62j 


STORAGE  USED:  CODEiI)  000437;  D A T A { u ) J002H7;  blANK  CO*MON(2)  qOOOOO 

common  BLOCKS! 

0003  ARRAYS  1 001 S I 

ODOR  PARAMS  000073 

OOOS  GEU  000  H 2 H 


EXTERNAL  REFERENCES  (BLOCK,  NAME) 

0006  BNDSTR 

0007  NERR3S 


storage  assignment  (BLOCK,  type,  relative  LOCATION,  NAME) 


0001 

00055 1 

I 0 1 L 

0031 

OuOl 13 

102L 

0001 

000152 

103c 

0001 

000010 

lOHC 

0001 

000027 

I34fi 

0001 

000030 

IHIG 

0001 

000053 

1 S6G 

0001 

000067 

144G 

0001 

000103 

I7HG 

0003 

077773 

AA 

OOOS 

000117 

ACC 

0000 

R 

COO  1 6 1 

AF 

0003 

R 

076731 

afob 

0003 

07S60. 

ALN 

0003 

0I27S2 

AMX 

000 1 

OOOOIS 

AP 

OOOH 

00001 1 

AS 

0003 

075*67 

BEN 

0001 

R 

000011 

BETA 

0001 

1 

000003 

BHD 

00  OH 

00001* 

BP 

OOOH 

000035 

8Q 

0003 

100106 

CD 

0001 

000036 

CK 

Oooi 

R 

060032 

COMPEN 

0001 

000072 

DElZZ 

OOOS 

000122 

DISP 

0000 

« 

000203 

DKK 

0000 

R 

000166 

DSi tOR 

0000 

R 

000171 

DSI 101 

0000 

R 

000167 

DSI^DR 

0000 

R 

000172 

DS 1 3q2 

0000 

R 

000170 

0S330R 

0000 

R 

000173 

DS330Z 

0001 

R 

000007 

DT 

0001 

000023 

DT  CP 

OOOH 

000021 

DTDUMp 

0001 

00002. 

DTP 

0000 

R 

000162 

DUDR 

0000 

R 

000163 

DUDZ 

0000 

R 

000161 

DVDR 

0000 

R 

C00I6S 

DVDZ 

0003 

R 

071716 

DX 

0003 

071757 

DXP 

0003 

R 

07S272 

DY 

0003 

07SS  1 7 

DYP 

0000 

R 

000171 

D1  1 

0000 

R 

00317S 

013 

0000 

R 

000177 

D22 

Oooo 

R 

000176 

D33 

0000 

R 

000201 

EDOT 

ODOH 

I 

0O00C2 

EMP 

0001 

030031 

EPS 

0003 

1 

06123. 

F 

0001 

1 

000001 

PAK 

0003 

076313 

F8 

0CU3 

077712 

F* 

OC  0 3 

100021 

ffaa 

0003 

0761 |S 

FL 

6003 

076177 

PR 

0003 

076261 

FT 

JOuR 

I 

000000 

Full 

3003 

H 

020337 

FX 

0003 

R 

025721 

FY 

oooi 

000010 

G 

OOOS 

0G0120 

GDT 

OUOH 

R 

000013 

h*u 

0000 

t 

C30I1S 

1 

0001 

OOOOSS 

ICR 

0003 

077162 

icrack 

OOOS 

000230 

IOUMP 

OOOS 

000202 

IEDIT 

0030 

I 

000160 

1 J 

0001 

000057 

UMAX 

OOOS 

0002S1 

IKHAS 

0001 

000060 

l K M A X p 

0033 

0 7 7 5 1 1 

I MAS 

OOQl 

OOC011 

IMAX 

0001 

I 

000016 

IMAXH 

oooo 

000211 

INJP9 

OOOS 

000231 

1 PLOT 

GO  JH 

000063 

ISEP 

0005 

000233 

ISTOP 

0000 

1 

000111 

J 

Oooi 

060056 

JCR 

0003 

077307 

JCRACK 

0003 

077S76 

JMAS 

0001 

00001. 

UMAX 

0001 

1 

000017 

JHAXM 

00Q1 

000061 

JSEP 

0001 

OOOOSI 

KB  AR 

OOOH 

000052 

KBARM 

0C01 

ooooso 

KM  A X 

OOOS 

000226 

IMAX 

0001 

000070 

MHHa* 

OOOS 

000231 

name 

OOOH 

OOOOSI 

NCYC 

0001 

OOOoSS 

nduhp 

0001 

000067 

NNHAX 

Oooi 

1 

O0OOOS 

OB 

0001 

000006 

obful 

0000 

R 

000202 

OM 

0003 

R 

053650 

P 

0000 

1 

000000 

PART 

OOOS 

000111 

PSUL 

0001 

000027 

PMIN 

1)003 

077016 

POB 

0003 

X 

07iSS3 

R 

0001 

1 

000062 

REV 

0003 

076S7J 

RHOVB 

OOOS 

000012 

RHOZ 

0003 

0716SS 

RPL 

0001 

R 

000033 

SHCN 

0001 

1 

000061 

SHALL 

OOOS 

000250 

SNASS 

OOOS 

0002S2 

SMOM 

OOOH 

000031 

SPEN 

0000 

R 

000117 

SUMCE 

0000 

R 

000116 

SUMSE 

0001 

1 

000001 

SUR 

OOOS 

000121 

SVEL 

0003 

R 

033311 

SI  1 

0000 

R 

0001SS 

si  IB 

oooo 

R 

00000 1 

Sit  BEL 

6000 

R 

000150 

31 1 L 

0003 

R 

010676 

SO 

0000 

R 

000  IS* 

5)39 

0000 

R 

000012 

SI3BEI 

0000 

R 

OOOISI 

S13L 

oooo 

R 

000200 

S22 

0003 

R 

016263 

S33 

0000 

R 

000 1 S 7 

533b 

0000 

R 

000103 

S338EL 

0000 

R 

0001 52 

S33L 

Ooos 

0502?7 

T 

0003 

R 

075511 

TAU 

OOOH 

C00022 

TCP 

0001 

000020 

TDUMP 

0001 

000017 

tlast 

0001 

OOOOfl 

TP 

0003 

077660 

TT 

OOOH 

000026 

TTOTAl 

0003 

076632 

T l 3b 

0003 

076673 

T3JB 

0003 

R 

000000 

U 

0000 

R 

000  t S3 

ua 

OOOS 

000253 

ubul 

0001 

000013 

UCRACK 

0003 

0773S0 

UOB 

0003 

R 

00S36S 

V 
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0000  R 

000  ISM  V 8 

ooos 

500335  VBUL 

wOu3 

076MZS  VFOB 

0003 

077  H32 

VOB 

0003 

IOOOSS  VV 

COOJ 

100137  vv  v 

COvS 

300H23  VZERO 

0003 

07HS12 

X 

0005 

OOOOOO  XBUL 

0003 

077  1 CO  XCT 

0003 

06bo22  XK 

00Q3 

07H61*» 

XPL 

OOOM 

OOOONO  XP 2 

OOJ1* 

0C006S  XSEP 

0033 

07S020  y 

0003 

076033 

TB 

0003 

076507  YCT 

0003 

07 1 SO*  TK 

3033 

07sl IS  TPL 

aoo*» 

o 

o 

o 

o 

X 

TP1 

OOOH 

000066  TSEP 

0503 

077711  ZZ 

0001 

000071  ZZPRT 

0010) 

l • 

subroutine  stress 

ooioi 

2* 

OOlQI 

3« 

OOIOI 

<-•»•*•••••  THIS  ROUTINE  CALCULATE* 

OEVUTOR  STRESSES. 

OOIOI 

5* 

OOIOI 

4* 

00103 

incluoe  com.list 

00103 

• • 

00103 

•• 

COH • PKOC 

OOIOH 

• • 

PARAMETER  10*33  .JD»85 

. KO* 1 $ 36  .NO-lZ  • I J0“50 

00105 

• • 

PARAMETER  L0*I5C  *NNulM»25 

,HHDIM«IO 

00106 

•• 

PARAMETER  NARR*lO*IO*JO^I l»I0  + b»JD*17*lJD*2#,<D47#NNDlHtMn0iM 

OO 1 07 

e* 

paraheter  !;paR«5R 

091  10 

$• 

COMMON/ARRaYS/UUu.JO) 

.VIID.JD)  »*MX(lD»JO) 

• 

001  10 

•• 

• F X I 10 t JO ) *FY( jDtJDI 

i S 1 1 ( 1 0 • JD 1 .Sl3|Ic,J0) 

• 

001  10 

«• 

•S33( IOiJD)  •P(lDiJD) 

,F<ID,J0)  ,XKlKO| 

• 

001  10 

• • 

•YKIKD)  • X C I D > 

.MIDI  » XPL  1 1 0 I 

1 

001  10 

• • 

• RPL  < I D 1 » OX  C A 0 1 

iOXP(IO)  . Y ( JO  ) 

I 

001  10 

• • 

•tPL(JO)  torijo) 

• DTP ( JO ) .TAUIlol 

I 

001  10 

•• 

• ALNU  JO)  iBEN|  I JO) 

•X8I1J.I  iYBIIJdI 

9 

001  10 

• • 

• FLUJD)  i FR  1 I JO  ) 

.FTI1J0I  .FBI  I JO  1 

9 

001  10 

$• 

• VFOB I I JO)  • YCT ( I JD) 

.RrtOVB  ( 10  ) .TI3.U0I 

9 

001  10 

• T i 36 ( 10)  »AFOb< 1 JD) 

iPOB I I JD  > ,XCT|ljD) 

• 

001  10 

$• 

•ICRACKCJO)  ,JCRaCF( id» 

• UOB ( | JO  1 .VOBIIJO) 

• 

001  10 

e* 

• IHASI  l JO)  . JMASI I JO) 

.TTltlNOlNl  .ZZINNOIMI 

• 

001  10 

8* 

• FFINNOIM)  • A A 1 1*  NO  I M ) 

.FFAnlKNOIrtl  .VVlNNQlM) 

• 

001  10 

1 • 

• CDINNOIM)  . WV 

001 1 1 

8* 

COMMON / PARAM5/  Nwi. 

,5UR  , E'.p  t&MD 

,fak 

1 

00111 

8* 

• 06  * 08FUL  tDT 

,u  .AS  tRHCZ 

. H M U 

• 

001  1 1 

0* 

•BETA  tAP  »bP 

. TL.A  ■>!  ,TC  jPP  .OTOUMP 

• TCP 

9 

001  1 1 

e* 

• OTCP  » TP  .DTP 

.UOTal  .P«1N  .VSCALE 

i EPS 

• 

001 1 1 

• • 

•COMPEN  .SHEN  tSPEN 

,B<  ,CK  .XPI 

• XP  2 

t 

001  1 I 

e« 

• TP|  . Y P2  tUCRACK 

. IMA A . Jh A A . JMAXH 

. JMAXM 

» 

001  1 1 

8* 

• KM A X • KB AR  .KBARM 

.NOUHP  ,NCTC  .ICR 

• JCR 

• 

001 1 1 

«• 

• JJMAA  • | K M A X P .SMALL 

.REV  ,ISeR  .JSEP 

i XSEP 

» 

001  1 1 

8« 

•TStP  .NNMAX  .MMHAX 

.ZZPRT  .DClZZ 

001  1 2 

§• 

INTEGER  F » 0 B .FULL 

. SUR  ,EMP  .0^0 

• fak 

00112 

0 • 

• .part  ,small  ,rev 

001  1 3 

8* 

OATa  FULL/ i / SUR/M/ tup /7/und/ 1 C/F ah/ 1 3/ue/ 1 6/P  ART /&/ 

00123 

3« 

0 a T A RCV/I&/SMALL/I4/ 

00126 

8* 

Dd  inf.  index  ( 1 • J ) «floo.  u .f  U 6.J)  ) 

CO  1 2 7 

8* 

PET  INF  NB  1 T I > » / **  l r>  1 Jo -fid 

» 1 • HIM 

00130 

8* 

INCLUDE  GElCMM.^I^Y 

0C133 

8 • 

LfiO 

300H 

000030 

VSCALE 

0003 

075751 

x§ 

6001 

000037 

XPI 

OOOS 

000062 

tsul 

oo«h 

0000*2 

YP2 

•00000 

000009 

•00090 

•00900 

000000 

000000 

ooooo* 

000000 

000000 

00*000 

•ooooo 

•00900 

•00*00 

Ooiso* 

000*09 

•••••• 

•••••• 

•00900 
•00*0* 
••••00 
• OMM 

•oOooa 

•00090 

000000 

000000 

000000 

000000 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

00O000 

oooooo 

ocoooo 

oooooo 

OQOonn 
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STRESS 


00130 

8 • 

GElCmn  proc 

000000 

00131 

8* 

PARAMETER  gLMAAcSo 

oooooo 

00132 

a* 

PARAMETER  NGEL»S*hLMaX* 1 2* 1 m 

000000 

00133 

8* 

CQMHON  ✓ GL  l 1 / XU^L  ( OLMAX  ) , YBUL  C ttLMAX  1 ,PBUl  ( OLflAX  | ,LMAX  , T , 

oooooo 

00133 

8 • 

. IOUMP,  IPt0TlKulT»|ST0PtNAHEC12i.SHASSilKMAX 

oooooo 

00133 

8 • 

• , SMOM  ,UBUL ( QLMAa 1 • VBDL ( QLMAX  ) 

oooooo 

00133 

«• 

• .ACC.GDT.SVEL.UISP.yzERO 

oooooo 

00133 

8 • 

c 

oooooo 

00133 

8* 

END 

oooooo 

00131 

9* 

01  HENS  ION  SI  IBEL< 101  .StJBELllO)  ,S3  3BEL( ID) 

oooooo 

00 1 35 

10* 

00  109  J*2  » JM A XM 

oooooo 

00110 

1 1 • 

00  109  I *2  » I MAXH 

000030 

00113 

12* 

1F1NB1  T COB.F  ( 1 » J)  mNE.  1 )G0  TO  10M 

000030 

00  MS 

13* 

S I 1 ( 1 • JMO.O 

000031 

00116 

M* 

SI 3( l , J|*0.0 

00<>03S 

00  M 7 

IS* 

S3  3 ( 1 , JMD.D 

000036 

001S0 

16* 

10M  CONTINUE 

000013 

OOISO 

17* 

c 

000013 

00  1 S3 

18* 

5UMSE-0. J 

000013 

00IS1 

19* 

SUMCE-OeO 

000011 

001S1 

20* 

c 

000011 

00155 

2 1 • 

00  100  1 *2  * I M A Xn 

000053 

00160 

22* 

SI  18EH  | )«5l 4 ( 1 , 1 # 

000053 

00161 

23* 

SI3BELI  1 1 -SI  3(1,1) 

OBOoSI 

00162 

2M* 

S33BEL ( 1 I-S3JI  1,1) 

0Q00S6 

00163 

25  • 

100  CONTINUE 

000067 

00163 

26* 

c 

000067 

0016S 

27* 

DO  101  J-2.JHAXH 

000067 

00170 

28* 

SI IL-SI | ( 1 , Jl 

000072 

00171 

29* 

SI3U-SI31 1 ,JI 

000071 

00172 

30* 

S33L-S33I 1 , J) 

000076 

00172 

31* 

c 

000076 

00173 

32* 

00  101  I-2.1HAXM 

000103 

00176 

33* 

IF (N0I T (FULL ,F ( | , j 1) ,NE. 1 ) &0  TO  101 

000106 

00200 

39* 

IF  INBI  T (OB.F  II , j)  1 .EQ . 1 100  To  (31 

000|I3 

00202 

35* 

GO  TO  102 

000 | 20 

00202 

36* 

c 

OPO | 20 

00203 

•DIAGNOSTIC* 

CONTROL  CAN  NEVER  REaCH  THE  N£XT  STaTlMEnT 

00203 

37* 

00  *U ( I • Jl 

000)21 

0020H 

38* 

VB» V ( 1 • Jl 

000|23 

0020S 

39* 

si  1 B*S  1 KliJ) 

000 | 2S 

00206 

*0* 

S13B-S13U  . J) 

000)27 

00207 

Mi* 

S33B*SJ3( 1 * Jl 

000)31 

00210 

92* 

1 J-1N0EX1 1 . Jl 

000)33 

0021  1 

93* 

AF*AFOB ( 1 Jl 

000)37 

00212 

MM* 

GO  TO  103 

000)1) 

00212 

MS* 

c 

000)1) 

00213 

H 6 • 

102  UB»0’0 

000 | 13 

002M 

9 7* 

VB-0.0 

000)13 

002  1 S 

98* 

SI  1 B*0«0 

000)11 

00216 

99* 

SI3B-0.0 

000)1S 

00217 

&0» 

S33B  B0 • 0 

000)16 

00220 

si* 

AF ■ 1 #0 

000)17 

00220 

S2* 

c 

000)17 

Page  290 


STRESS 


00221 

S3* 

00221 

5M  • 

00222 

ss* 

00222 

56* 

00223 

57  • 

00223 

58* 

00221 

St* 

00221 

60* 

00225 

*!• 

0022S 

62* 

0022* 

63* 

0022* 

6 H • 

00227 

65* 

00227 

66* 

00230 

67* 

00230 

68* 

00231 

69* 

00231 

70* 

00232 

71* 

00232 

72* 

00233 

73* 

00231 

79* 

00235 

75* 

0023* 

74* 

00237 

77* 

00210 

78* 

00211 

79* 

00212 

• 0* 

00213 

8|* 

00211 

82* 

00215 

83* 

0021* 

89* 

00217 

85* 

00250 

84* 

00251 

87* 

00252 

88* 

00252 

89* 

00253 

90* 

00253 

91# 

00251 

92* 

00251 

93* 

00255 

9H* 

002SS 

95* 

0025* 

94* 

0025* 

97* 

002*1 

98* 

002*1 

99* 

002*2 

too* 

0C7&2 

101* 

002*3 

10  2* 

002*i 

103* 

30265 

10*4* 

c 


c 

c 

c 


103  0U0H ■ ( F x ( I ,J)»< CU« I 1*1 ,JI)/2.0-Ubl 

■ »f  X ( l “ l . J ) • 1 ( U f I • jl +U  1 I - 1 , J I )/2>GaU6) 1 / • *F  *DX ( t 1 • 
DUDZ«IFYC I , J) •< (U| I , Jl*ul I . J*1 11/2.0-UB) 

• -FYCl,J-U*<<U(I.jl*U<l  ,J-1  II/2.C-UB1  I/UF*0YCJ1> 

0VDR"<FX» 1 ,J» • I { V | i ,J> *v( I* I . Jl 1/2.0-Vb » 

• -FX« I-l ,J>* ( I Vtl .Jl+V( I-| ,J) 1/2.0-VBI 1/(AF»0X| I » » 
DVDZ«<FY1 I |J)*1 1 V ( 1 « J ) ♦ V ( I .J*l ll/2.8*VBl 

• «r  Y t I ,J-I  !•<<  VI  l .J»*V(  1 ,J-|  » »/2.C-VB)  »/(*F»0YC  J>  ) 

OS  I IDR-lFXC  I 1/2.0*51 1B» 

•-Fxci-i  .j»»nsi  i<  i .j»*si  id/2.o-si  jbm/<*f»ox(  in 
D5I3DR-<FX|I .J)*< |SI3< I ,J)*SI3( 1*1 ,JI >'2.0-SI3»{ 

• -F  X t 1*1 » J)  • 1 ( S I 3 ( i ,JI*S|3L)/2.0*S|3»» )/< AF»0X< I ) ) 
DS33DR-1PXC 1 . Jl»«  «S33( I , J I .S33 II ♦ 1 . J 1 1 /2 . 3-S33B * 

. -FX  ( l-l  . J 1 * I t S33 ( I ,J)*Sj3L|/2.0-S33BI )/<AF*OX(  HI 

OSI10Z«CFY<liJ»al<SllCl,J|.51l<liJ*l>i/2.0*SI|B> 

• -FYI  J ( ! ,J»*S|l6EH  I H/2.3-SU3I 

DS|3DZ-1PYI I »J>«< 1SI31 I ,J).Sl3<t . J*>) >/2.C'S|3B> 

•“FY< I »J“I I • T ISI3I 1 » J 1 *S | 3BEL ( | I )/2.0'Sl3*l I / 1 AF  *DY  < J * > 
DS330Z* I F Y ( I » J)»<  t S33 ( I . J I *S33 1 I . J* I > ) /2 . G-S33B J 
,_FY< I , J-l >•( IS331  J .Jl *S33bEL( 1 1 1 /2 . 0-S J3B 1 l/< aF*0Y< J' » 
0 | l-OUOR 

D I 3« • 5»  (UUDZ*OV&R  | 


033-DVOZ 

D22aU ( 1 , J)/R<  I I 

S22--SU  I I .JI-S331  1 • J ) 

EOOT-SI I (1«J)*D1I.2.0»SJ3| i , J > »D I 3 *52 2 • D22* S33 < I .j>*033 
SUMSE«SUMSE*TAU< I ) »0Y 1 J) »eoot 
OH-.S* (OUDZ-OVORl 
OKKaD I 1*022*033 


SUMCE»SUHCE-TAU( l)*DY(J)*oKK«P(l.JI 


SI  IL«SI I ( I i J> 
S13L-SI31 I.J> 
S33LaS33< I i J I 


SI3BELI  1 t»SI3U  ,Jj 
SI  | BEL ( | >«S1 I I I , Jl 
S33BEL I I »*S33( I . J» 

CALCULATE  DEvIATqR  STRESSES. 

si  i < 1 . ji-si n i ,J»*0T* (2.0.hhu*;  i :-beta*si 1 1 1 .j)*2.o«si»< i .ji«oh 


*-,6666/*HHU*0Kk-U (I.JI*D5l|DK-«t:.Jl*U:>ll4.Z) 

S33«l*JI*S33tl .J»*0I*«2.C*hHU.i,33«bET*»S33I 1»J1-2.0*SI3II.JI»0M 
*-.6  666  7*HHU*DXK-U, l , J ) •DSJJOR- V I I , Jl *OS33oZ  ) 
S13II.J)"SI3<I»JI*0T»I2.J»mMU»J|J-b£Ta»SIJ<I»J> 

» - U I I »JI»0SI30R"V< I »J)*DSt3DZI 
>01  CONTINUE 

CALCULATE  COMPRESSION  energy 

COHPLN«COKPEN*DT»SUMCE 
**.»**••  CALCULATE  shear  ENFRgt 
SmEN«ShEN*OT*SUI'Sl 

SET  STRESSES  In  &Np  CELLS. 

CALL  BNDSTR 
RET  J«r- 
EM) 


0001S2 
000 | S2 
000|70 
000| 70 
000207 
000207 
00022* 
00022* 
000215 
000215 
0002*1 
0002*1 
000303 
000303 
000322 
000322 
000311 
000311 
0003*0 
0003*0 
000377 
OOOlOl 
000105 
000107 
006ll2 


60ll31 

000110 

6061II 

000152 

000151 

00015* 

0001*0 

0001*| 

0001*2 

0001*2 

0001*3 

0001*3 

OOOSO* 

00050* 

000532 

000532 

0005*1 

0005*1 

0005*1 

0005*1 

0005*5 

0005*5 

000S7I 

000573 

00043* 


END  OF  COMPILATION;  I DIAGNOSTICS 
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0FOR.S  SURCEL 

for  se2C"07/ii/7s-o9:io:  i*  *c»> 


SURCEL 


SUBROUTINE  SURCEL  ENTRY  POINT  -00216 

STORAGE  USED:  CODE!  I)  0002S7}  OATA(O)  000030)  BLANK  C0HM0N(2)  000000 

COMMON  BLOCKS: 

0003  ARRAYS  IOOISI 
0001  PARAMS  000073 
OOOS  GEL1  000121 


EXTERNAL  REFERENCES  IBLOCKi  NAME) 


0006 

aRho 

0007 

NERR6S 

0010 

NERR3S 

STORAGE 

ASSIGNMENT  (BLOCK,  TYPE 

, RELATIVE  LOCATION,  NAME) 

0001 

000063 

101L 

0001 

00007S 

I02L 

0001 

0001  l< 

103L 

0001 

000112 

10*L 

0001 

000  IS* 

107L 

000 1 

000171 

1 OIL 

0001 

000001 

I35G 

0001 

00002* 

HOG 

0003 

•77771 

AA 

0003 

07S60I 

aln 

0003 

012752 

AHX 

0001 

00001* 

A P 

0003 

07S667 

BEN 

0001 

000011 

BETA 

0001 

I 

000003 

BHD 

0003 

100)06 

CD 

0001 

000036 

CK 

0001 

000032 

compen 

0001 

000007 

DT 

0001 

000023 

DTCP 

0001 

000021 

dtdump 

0003 

0717S7 

DXP 

0003 

075272 

dy 

0003 

075117 

DYP 

0003 

l 

06123S 

F 

0001 

I 

oooooi 

FAK 

0003 

076313 

FB 

0003 

0761  IS 

F L 

0003 

076(77 

Fk 

0003 

076261 

FT 

0003 

02S721 

FT 

0001 

000010 

G 

OOOS 

000120 

got 

0001 

ooooss 

ICR 

0003 

077162 

icrack 

OOOS 

000230 

idump 

OOOS 

0002SI 

I KM  AX 

0001 

000060 

IKHAXP 

00J3 

077511 

IMAS 

0000 

000006 

INJPS 

0000 

I 

000003 

IP 

OOOS 

000231 

I PLOT 

0000 

I 

00000 1 

J 

0001 

0000S6 

JCR 

0003 

077307 

jcrack 

0001 

000017 

JMAXh 

0000 

I 

OOOOCl 

JP 

0001 

000061 

JSEP 

0001 

ooooso 

KM  AX 

OOOS 

000226 

lmax 

0001 

000070 

mmmax 

0001 

0000S3 

NDUMP 

0001 

GQ0067 

NNMAX 

OOJ1 

I 

OOOUO* 

OB 

0000 

1 

000000 

part 

OOOS 

000111 

PBUL 

0001 

000027 

pmin 

0001 

1 

000062 

REV 

0003 

076571 

RHOVB 

0001 

n 

000012 

RHOZ 

0001 

1 

000061 

SMALL 

OOOS 

0002S0 

SMaSS 

OOOS 

000252 

SHOP 

OOOS 

000121 

SVEL 

0003 

03331  1 

SI  1 

0003 

010*76 

Sl3 

0003 

07SS11 

TAU 

0001 

000022 

TCP 

0001 

000020 

TDUMP 

0003 

077660 

TT 

0001 

000026 

TTOTAl 

0003 

076632 

T I 3B 

OOOS 

0002S3 

UBUL 

0001 

000013 

ucrack 

0003 

3773S0 

UOB 

0003 

076<4ZS 

V FOB 

0003 

077132 

VOB 

0001 

000030 

VSCALE 

OOOS 

000123 

V2ER0 

JO- J 

071512 

X 

0C-3 

C7S751 

XB 

0003 

066622 

XK 

0003 

0716(1 

XPL 

J-01 

000037 

XP1 

0003 

C 7SC20 

Y 

0003 

076033 

YB 

CG-S 

330062 

YBUL 

0001 

00012* 

lou 

0001 

000211 

10*1 

0001 

000207 

10’L 

0001 

000223 

I10L 

OOOS 

000117 

ACC 

0003 

076731 

AFOB 

0006 

R 

000000 

ARHO 

6001 

000*11 

AS 

0001 

000016 

BP 

00«1 

00003* 

6* 

0001 

000072 

DELZZ 

OOOS 

000122 

oisp 

0001 

00002* 

DTP 

0003 

07171* 

DX 

0001 

I 

000002 

EHP 

6001 

000031 

EPS 

0003 

077712 

ff 

0003 

100021 

FFAA 

0001 

1 

000000 

full 

0003 

020337 

rx 

0001 

000013 

hmu 

0000 

| 

000002 

1 

000* 

000232 

IE01T 

0001 

0000S7 

UMAX 

0001 

I 

000011 

I MAX 

0001 

000016 

IMAXM 

0001 

000063 

I SEP 

OOOS 

000233 

ISTOP 

0003 

077576 

JM  AS 

6001 

I 

oooois 

UMAX 

0001 

000051 

KBAR 

6001 

0060*2 

XB  ARM 

OOOS 

000231 

name 

6001 

0006*1 

NCTC 

0001 

00000* 

obful 

0003 

0*16*0 

P 

0003 

077016 

POB 

0003 

R 

071SS3 

R 

0003 

071655 

RFL 

0001 

000033 

shen 

0001 

000031 

SPEN 

0001 

I 

ObOOOl 

SUM 

0003 

016263 

S3  3 

OOOS 

000227 

T 

0001 

000017 

tlast 

6001 

060021 

TP 

0003 

076673 

T33B 

0003 

R 

000000 

U 

0003 

R 

00*365 

V 

OOOS 

000335 

VBUL 

0003 

1 00055 

vv 

0003 

100137 

vvv 

000* 

000000 

XB  UL 

6003 

077100 

XCT 

0031 

000010 

XP2 

0001 

000065 

XSEp 

0003 

076507 

YCT 

0003 

071556 

TK 

4 


SJRCEL 


» 


ff 

>o 

n> 

w 

VD 

W 


00C3 

07S1M& 

YPL 

UOo  H 

DOOOHl  YPl 

600H 

ODOOH2  YP? 

OOOM 

003066  TSEP 

000H 

000071 

ZZPRT 

00101 

1 • 

subroutine  surcel 

00101 

2« 

00101 

3 • 

c • • • • 

00 101 

**• 

€•••« 

CELLS  * I TM  SHALL  MASS. 

00101 

$• 

00101 

6 • 

00103 

7 • 

INCLUDE  COM»LIST 

09103 

8« 

00103 

9» 

c # • 1 

00103 

9* 

COM  • 

PROC 

00  1 OR 

?• 

parameter  1 D*3 3 #JD»a5 

•KD-1400  ,ND»12  i I JD*50 

00105 

?• 

PARAMETER  LD*I5q  .NN0IM-2S 

00106 

9* 

parameter  narr»)0» jo«jd* i i 

•lD^5*JD^l7»lJ0^2«KD#7*NNDIMtMMDlM 

00107 

9« 

PARAMETER  NPAR-59 

001  10 

9* 

COMMON/aRRaYS/U(Id#JD) 

.VIU.JD)  .AMX1 lu.JOl 

t 

00110 

9» 

• F X ( t 0 ■ JO ) ,FY«|D,JD> 

•Sll(ID.JU)  ,Sl3(lD.JD> 

« 

001  10 

9 • 

• S3  3 1 ID* JD)  |P< lu  1 JO) 

.FIIO.JDI  » XK ( KO ) 

9 

00110 

9 • 

•YKlKD)  .*(lj) 

«R 1 I 0 1 . XpLl to ) 

9 

00110 

9* 

•RPL(IO)  .0X<ID) 

. OXP < | 0)  ,T(JD» 

9 

00110 

9» 

• YPL ( JO ) ,0Y(JDI 

.DYP(JO)  .TAU(IO) 

9 

00110 

9 • 

•ALNtlJD)  .BEN(IJD) 

• XB ( 1 JO)  .TB(IJO) 

9 

001  to 

9* 

• FL(IJD)  » FR  t I JO  I 

.FT ( I JOI  .FB( I JO) 

9 

001  10 

9 • 

• VFOB ( 1 JO  1 •YCTllJO) 

• rhovbooi  » T 1 3B  ) 1 0 ) 

9 

00110 

9® 

• T33BII0)  .ATObUJO) 

.POB(IJO)  .XCTlIjO) 

9 

ooi  io 

9» 

•ICRACKIJD1  .JCRaCKI 10) 

•U0BI1J0)  .VOBlljD) 

9 

001  10 

9« 

•IMaSIIJO)  .JMAS(IJD) 

.TTCNNDIM)  .ZZ(NNOIM) 

9 

001  10 

9« 

•FFINNDIH)  ,AA(nNO|N) 

.FFAAINNOIM)  .VV(NNoIM) 

9 

OOI  10 

9* 

•CO(NNdIH>  # V V V ) MHO  1 M ) 

OOI  I 1 

9 • 

COMMON/PARAMS/  FULL 

. S JR  . EMP  .BNO 

• FAX 

OOI  1 1 

9* 

•OB  .OSFUL  iOT 

,G  .*S  ,RMOZ 

t HMU 

00111 

9 • 

•BETA  i AP  .BP 

. TL  AST  .TOUMP  .otdump 

• TCP 

OOI  1 1 

9« 

• DTCP  .TP  .OTP 

.TTOTaL  i PM l N .vscale 

• EPS 

OOI  I 1 

9* 

•COMPEL  ,SHEN  .SPEN 

,BW  . CK  «XP> 

• XP2 

OOI  1 1 

9 • 

•YPl  .YP2  .UCRACK 

. I M A X ,JMAA  . | M A XM 

. JMAXM 

OOI  1 1 

9« 

• KM  AX  .KBAR  .KBARM 

.NUUMP  .NCYC  .ICR 

• JCR 

OOI  l 1 

9 • 

• UMAX  i 1 KM  AXP  .SMALL 

.REV  .ISLP  .JSEP 

• XSEP 

OOI  1 1 

9 • 

• Y SEP  .NNHAX  . MMM A X 

.ZZPRT  . DELZ  Z 

00112 

9 • 

INTEGER  F .OB  .FULL 

.SLR  .EMP  .BNO 

• FAX 

00112 

9 • 

• .part  .small  ,rev 

00  113 

9 • 

data  FULL/ I/SUR/R/EHP/ 7 /BNO/ 1 0/FAK / 1 3/UB/ 16/p aRT/5/ 

00123 

9 • 

data  rev/is/small/m/ 

00126 

9« 

DEFINE  INDEX! I iJ>«FLDCO*  18 

.FC I ,J) 1 

00127 

9« 

DEFINE  NBIT<NBiND|*FLD(36- 

NB  » 1 » AD ) 

00130 

lNCLUDt.  0ELCMN  , L I b T 

90130 

9« 

end 

00130 

9 • 

GELCMN  PHOC 

OOI  3 I 

9» 

PARAMETER  4LMAX«Sj 

00132 

9 • 

PAPAMEfEX  NGEL»t,*wLMA»*  | 2. 

l4* 

0003  077*1  1 ZZ 


000000 

000000 

000000 

000000 

000000 

oooooo 

OQOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

oooooo 

ooOooo 

oooooo 

OQOOOO 

OOOOOO 

oooooo 

oooooo 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

OOOOOO 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

ooOooo 

OQOOOO 

oooooo 

oooooo 

OOOOOO 
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oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 
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ooOooo 
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suacel 


00)33 

* • 

COMMON  /GEL > / XdOl««LMAX)  .YBUDOLMAX)  .MBUdOUMA 

00)33 

V* 

• 

I DUMP  ,) PLOT. )Eo)T,1STOP, NAME  02). SmaSS,)KHAX 

00)33 

• 

• SMOH.UBULIQLMAX) .VBULlOLMAXI 

001  33 

• 

.ACC.GDT.SVEL.uISP.VZERO 

00133 

V • 

C 

00)33 

*• 

ENO 

oom 

10 • 

DO  110  J-2'JMAX 

00)37 

II* 

DO  ))0  ) *2 . 1 MAX 

60I  42 

12* 

IF<NBlTISUR,FII,J»).NE.|>GO  TO  !)0 

00)42 

13* 

C' 

|F  NOT  A SMALL  HASS  SK)P  TO  NEXT  CELL. 

■ BIMM 

IM* 

IFtARHOI ).J).6T..0l*RH0l)G0  TO  )>0 

Itm 

15* 

c 1 

••••  LOOK  FOR  A FULL  CELL  TO  SET  VELOCITY  FROM. 

00)44 

14* 

If-I 

00 1 M 7 

17* 

IF  (Ne)TIFULL.F  1 ) . J*m  <NE.  ) )G0  TO  10) 

OOISI 

IS* 

JP-J*I 

00)52 

I?* 

GO  TO  105 

00)53 

20* 

101 

1 F i NBIT (FULLiF ( I • J- 1 ) ) «NE« 1 ) GO  TO  102 

00155 

21* 

JP- J-l 

00154 

22* 

GO  TO  105 

00157 

23* 

102 

JP-J 

00)40 

2M* 

1F<NBIT(FUIL*F< 1-1 • J)l «NE«| 1G0  TO  103 

00)42 

25* 

1P-I-1 

00)43 

24* 

GO  TO  105 

00)44 

27* 

103 

IFINBIT (FULL.F 1 )♦) iJII .HE. ) 160  TO  )04 

00144 

21* 

IP-1*) 

00)47 

2?  • 

GO  TO  105 

00)47 

30* 

c« 

• •••  LOOK  FOR  A SuR  CELL  TO  SET  VfLOClTT  FROM. 

00170 

31* 

10M 

IF<N6IT<SUR1F< m tJ) ) •NC.llfiO  TO  104 

60172 

32* 

JP-J 

00)73 

33* 

ir*i*i 

00174 

3 M* 

GO  TO  105 

00175 

35* 

104 

IF<NBlT  < SUR  » F ( 1 • J*  1 ) ) • N£  • 1 ) GO  TO  |07 

00)77 

34* 

JP-J*I 

00200 

37* 

IP-I 

0020) 

36  • 

GO  TO  105 

00202 

3?  • 

107 

IF<NBIT<SUR1F< 1 fJ-l ) ) .Ne« l)GO  TO  106 

00204 

MO* 

JP-J-1 

00205 

M* 

IP-I 

00204 

M2* 

GO  TO  IQS 

00207 

M3* 

108 

1F<NBI T | SUR |F < 1-1  * Jll .NEi 1 )G0  TO  10* 

002)  ) 

MM* 

JP-J 

002)2 

MS* 

1P-I-I 

002)3 

M4* 

GO  TO  105 

002)4 

M 7 • 

10* 

RETURNO 

002)4 

MS* 

C< 

>••••  SET  VELOCITT  FROM  NEIGHBORING  CELL. 

002)5 

MV* 

105 

U<I|J1"U<IP*JP)*N< 1P)/R(J) 

002)4 

50* 

V< I , J 1 - V < iPt JP) 

002)7 

5|* 

1 10 

CONTINUE 

00222 

52* 

RETURN 

00223 

53* 

END 

000000 


000000 

000000 

000000 

000000 

000000 


•ooooo 
00<>021 
000021 
•00026 
•00034 
000034 
•00044 
000050 
••0017 
000041 
000q43 
OO0Q7 I 


000073 

000071 


000074 
•00)06 
000)10 
•00) )2 


000)20 

00l)2> 

•00)23 

!O0)2! 

•00)33 


000)31 


000)40 


000)42 

000)10 

000)62 

000)14 

000)14 


000)44 

000)44 


000)70 

000)72 

000200 

000202 

000206 

000207 


000207 
0002) ) 


000220 

000227 

000227 

0002S4 


END  OF  COMPILATION; 


NO  DIAGNOSTICS. 
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wfor.s  survol 

FOR  SE2C-OV/I9/7S-0»:ho:22  (0,» 


SURVOL 


subroutine  survol  entry  POINT  &CIO**| 

STORAGE  USED:  CODEC  I)  001050!  DATA(O)  00002bi  BLANK  C0HM0N(2)  00000° 

common  blocks; 

0003  ARRAYS  lOOIbl 
OOOH  PARAMS  000073 
OOOS  CEL  I 000H2H 
000*  VOLCOH  000321 


EXTERNAL  REFERENCES  (BLOCK,  NAME) 

0007  CELL 
0010  CELVOL 
001  I RHO 

0012  NERK4S 

0013  NERR3S 


STORAGE  ASSIGNMENT  (BLOCK,  TYPE,  RELATIVE  LOCATION,  NAME) 


0001 

000021 

SOIL 

0001 

000026 

102L 

0001 

000063 

103L 

000 1 

000I3H 

lO^L 

0001 

000 1 H 1 

108L 

0001 

000136 

10*L 

0001 

000202 

H3L 

0001 

000206 

NHL 

0001 

000212 

1 1 

0001 

000377 

1 1*L 

0001 

000H03 

120L 

0001 

000H07 

1 2 1 L 

0001 

000&0H 

1 3 I L 

0001 

000617 

1 33L 

0001 

000660 

A*HL 

0001 

000677 

I3Sl 

CCUl 

C0073H 

139L 

0001 

000736 

IHOL 

0001 

00107b 

H3L 

0003 

077773 

AA 

OOOS 

OOOH 1 7 

ACC 

0003 

R 

0127S2 

AMX 

OOOH 

OOOOlb 

AP 

OOOH 

OCOOl  1 

AS 

0001 

I 

000003 

bnd 

OOjH 

ooooi* 

BP 

GCOH 

000  )35 

BQ 

OOOH 

000032 

COMP EN 

COGH 

330072 

OEL22 

OOOS 

000H23 

DISP 

OOOH 

000021 

DT  DUMP 

OOOH 

20002b 

DTP 

0003 

07H716 

DX 

0003 

075H17 

DYP 

OOOH 

1 

0v0G02 

EMP 

LOCH 

000031 

EPS 

0003 

07  63  H 3 

f b 

GUt*3 

C777H2 

FF 

GGo3 

100U2H 

FF  A A 

0003 

076261 

FT 

COOH 

1 

000000 

full 

0003 

020337 

F* 

OOOS 

000H20 

GOT 

CCOH 

000013 

HMU 

OOC6 

1 

000313 

1 

OOOS 

000230 

JOUMP 

OOOS 

000232 

I ED  1 T 

OOOH 

OOOOS7 

1 JHaX 

0003 

07  7S 1 H 

IMAS 

OOOH 

OOOOHN 

1 M A X 

OOOH 

OOOOH6 

IMAXM 

OOOS 

000231 

1 PLOT 

OOOH 

000063 

1 SEP 

OOOS 

000233 

ISTOP 

000*) 

OOOOS6 

JCR 

CCJ3 

0773C7 

JCRACk 

0003 

077S76 

JM  AS 

0000 

1 

000007 

JP 

OCOH 

00006  H 

JSEP 

0090 

1 

OOOOOS 

J2 

OCO*) 

1 

OOOOS2 

kbarm 

0T3H 

9C00S6 

KM  AX 

ocos 

000226 

lmax 

OOOH 

0C305H 

NCYC 

C 0 v H 

0C0053 

nduhp 

OCOH 

00C067 

NNMaX 

GOO* 

1 

C00C02 

N2 

OCO1* 

1 

C300CS 

OB 

OOOH 

000  j06 

OBFUL 

OOOS 

COOI HH 

Pit*  UL 

OCwH 

CjCv  r 7 

PH  |N 

oO  J 3 

077016 

POb 

001  1 

R 

000000 

RHO 

cc:3 

C 7 657  l 

RMOV  6 

JOOH 

R 

OOCOI 2 

RHO  Z 

CCOH 

CC3033 

SHEN 

OCrOH 

1 

0 wCu6 1 

small 

00^5 

0302SG 

SMASS 

0001 

00007S 

10HL 

ooot 

000102 

IOAl 

0001 

000160 

1 10L 

0001 

000170 

1 1 1 u 

0001 

000362 

UAL 

0001 

000365 

11*1 

0001 

000SS7 

122L 

0001 

000S43 

I30L 

0001 

000623 

13SL 

0001 

000673 

I37L 

0001 

000333 

IHIL 

0001 

000530 

M*L 

0003 

07473H 

AFOB 

0003 

075605 

aln 

0003 

075667 

BEN 

OOOH 

0000 J N 

BETA 

0003 

100106 

CD 

OOOH 

000036 

CK 

OOOH 

000007 

DT 

OOOH 

000023 

DTCP 

0003 

07H7S7 

DXP 

0303 

07S272 

DY 

0003 

1 

061235 

F 

OOOH 

I 

OOOOOH 

FA* 

0003 

076115 

FL 

0003 

076177 

PR 

0003 

02572*1 

FY 

030H 

000010 

6 

OOOH 

00005b 

ICR 

0003 

077162 

icRack 

OOOS 

0002SI 

IKMAX 

OOOH 

000040 

1KMAXP 

0000 

000010 

1 N JP* 

0000 

1 

0fl0006 

IP 

0000 

1 

000002 

12 

0006 

1 

0003] H 

J 

OOOH 

OOOOHS 

JHAX 

OOOH 

0000H7 

JMAXH 

0000 

1 

000001 

K 

OOOH 

OOOOSl 

kbar 

OOOH 

000070 

MMMAX 

OOOS 

O0023H 

name 

0006 

1 

000000 

NPT 

0006 

I 

OOOOOl 

N 1 

0003 

OS36SO 

P 

0000 

I 

OCOOQO 

part 

0003 

07H5S3 

R 

Oooh 

1 

O00O62 

REV 

OOC  3 

07  H 655 

rpl 

0006 

0003 | 6 

saRea 

OOGS 

0002S2 

smom 

OOOH 

00003H 

SPEN 

SURvOL 


OOUl 

1 000001 

SUR 

OCjS 

000121 

SVfL 

0036 

R C0U31S 

SVOL 

0003 

03331 1 

Si  I 

0003 

0*40676 

S 1 3 

0003 

0*4  6 26  3 

S 3 3 

Cu05 

00C227 

T 

0003 

07SSH 

TAU 

0001 

000022 

TCP 

0001 

000020 

TOU«P 

OCOH 

000017 

TLAS  \ 

Ow3N 

C0CC2*4 

TP 

0C03 

07/*60 

TT 

0001 

000024 

ttotal 

0003 

076632 

T 1 3b 

0003 

076673 

T 3 3B 

0CC3 

ooooco 

U 

00  j5 

3002S3 

UBUL 

0001 

000013 

UCRACK 

0003 

077350 

U0B 

0003 

005365 

V 

OUJS 

0D033S 

VBUL 

0003 

07  612S 

vroa 

0003 

077132 

V08 

0001 

000030 

vscale 

0003 

1 00055 

V V 

0003 

100137 

VW 

ooos 

000123 

V ZERO 

0003 

071SI2 

X 

0003 

075751 

XB 

ooos 

OOOOOO 

XBUL 

0006 

0003| 7 

XCENT 

0003 

077100 

XCT 

0000 

R 000001 

xr 

0003 

g 066622 

X K 

0003 

R 07H41*4 

X PL 

0006 

R 

00C0C3 

XPT 

0001 

000037 

XP1 

0001 

000010 

XP2 

0001 

000065 

XSEP 

0003 

075020 

Y 

0003 

076C33 

YB 

ooos 

000062 

YBUL 

0004 

000320 

TCENT 

0003 

076507 

yct 

0000 

R 000003 

Y F 

0003 

R 

071556 

YK 

0003 

R 07SI1S 

YPL 

0004 

R 000H7 

YPT 

0001 

OOOO1!  1 

YP1 

000<4 

OOOOR  2 

YP2 

000  *4 

000066 

Y SEP 

0003 

077711 

zz 

0001 

000071 

ZZPRT 

101 

1 • 

SUBROUT  IN 

E 

SURVCL 

OOOOOO 

| o | 

2* 

oooooo 

101 

3® 

oooooo 

00101 

00101 

00101 

00101 

00101 

00101 


•a 

B> 

XI 

ft 

to 


<»• 

5* 

6* 

7* 

e» 

?• 


S JPVOL  TRACES  Through  surface  particles  and  calculates  the 

fluid  VOLUME  and  FLUID  HASS  FOR  SURFACE  CELLS.  THE  VOLUME 
IS  THE  VOLU«t  OF  REVOLUTION  OF  THE  AREA  BOUNDED  BY  THE 

particles  in  the  cell  ano  the  cell  edges,  the  mass  is 
calculated  lu  GIVE  NORMAL  DENSITY  TO  THE  CELL. 


0010! 

10» 

00103 

1 1* 

INCLUDE  COM i L I ST 

00103 

1 2* 

00103 

12* 

COM  • 

PROC 

00101 

1 2* 

PARAMETER  ID»33 

• J0*B5 

.KO>!,00 

i NO* 1 2 • 1 JD"SO 

0010S 

\2* 

PARAMETER  LD-150 

,NNDlM»25 

. MMO 1 M* 1 0 

00104 

12* 

parameter  na«r»io 

• 1 D* JD+ 1 1*1D+S*JD*17* 

1 JD*2tlCD^7*NND!MtHM0!M 

00107 

12* 

PARAMETER  NPAR-S9 

001  10 

l 2 • 

COMHON/aRRAYS/UI lo. jdi 

,V( 10, JD) 

lAMXllOt  JO  1 

• 

00110 

\2* 

• rXIID.JD)  »F Y t | 0 i JO ) 

• Si  1 1 JO,  JD 

1 « S | 3 4 lo  • 30  1 

• 

001  10 

12* 

•S33II0.JD)  ,P<! 

J.  JD) 

,r< id. joi 

.XK(KD) 

• 

001  10 

12* 

•YKIKOl  .X| 1 

0 > 

,R ( ID) 

I XpL ( lol 

, 

00110 

1 2^ 

•RPLC1D)  ,0X1*0) 

,DXP ( 10) 

•Y 1 JD) 

• 

00110 

12* 

• YPL 1 JO ) , 0 Y 1 JO ) 

,DYP 1 JO) 

.TaOIIoI 

• 

001  10 

1 2 • 

• A L N ( 1 JJ)  t b E N * 1 JD) 

, XB  1 1 JO) 

. YB I l JO) 

• 

001  10 

1 2 • 

• P L 1 1 JD)  • FPt 1 JO) 

• FT  C i JD) 

.fbu  Jo) 

• 

001  10 

l 2 • 

• VPOB 1 1 JO ) , Y c T \ 1 JO ) 

, RhO  v 0 ( 10 ) 

,T|3B( ID) 

1 

001 10 

1 2 • 

• T33B1 ID)  , APObl 1 JO) 

• POB ( I JO) 

,XCT| 1 JD) 

• 

001  10 

1 2 • 

• ICRACK1 JO)  , JCRaCKI  ID) 

• UOB 1 1 JD) 

.VOBC IjO* 

• 

001 10 

12* 

• IMAS1 1 JD)  , JMAS1  1 JO) 

, TT  t NND I M ) 

.ZZ(NNolH) 

• 

001  10 

12* 

• FF(NNDIH)  , A A 1 NND 1 h ) 

, FF  A A 1 NND 1 

HI  iVV(NNoIM) 

• 

001  10 

12* 

♦ CD(NNDIM)  , V V V * HMD  I M ) 

001 1 1 

I 2 • 

COMMON/PXRAMS/ 

PULL 

• SUR 

. EMP  ibND 

• FA* 

com 

l 2 • 

• OB  , 08 P UL 

,DT 

• G 

■AS  tRHOZ 

• HMU 

001 1 1 

1 2 • 

•BETA  ,AP 

• BP 

. tlast 

.TDuMP  .DTOUMP 

• TCP 

001  1 1 

1 2 • 

• OTCP  , T P 

, 0 T P 

.ttotal 

• PM  1 N .VSCALE 

• EPS 

001 1 1 

1 2 • 

•COnPLN  ,ShEN 

• SPEN 

• BO 

.CX  .xPl 

, X P 2 

30111 

12* 

• YP!  , T P 2 

, UCRACK 

. 1MAX 

,JM«X  . | M A X H 

• JMAXM 

001 1 1 

1 2 • 

•khaa  .kban 

• K 0 A R « 

•NQUhP 

.NCYC  tlCR 

• JCR 

OCI  1 1 

1 2 • 

• JJMAa  , 1 K M h X P 

•small 

, RE  V 

■IStP  .JSEP 

• XSEP 

oooooo 

oooooo 

oooooo 

oooooo 

OOOOOO 

oadooo 

oooooo 

oooooo 

OOOOOO 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

OOOOOO 

OOOOOO 

OOOOOO 

oooooo 

OOOOOO 

OOOOOO 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 
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SUSVOL 


001  1 I 

12* 

•YSEP  ,NNMAX  .MHMAX  .ZZPRT  .OEtZZ 

00112 

12* 

integek  F .00  .full  .sjr  .emp  .OND  .fak 

00112 

12* 

• 

.PART  , SHALL  ,Rt V 

00113 

12* 

DATA  FULL/)/SUR/8/EMP/7/0 <D/ 1 C/F AK / 1 3/UB/ | 6/P AKT/S/ 

00123 

1 2 • 

OATA  REV/)5/SHALL/l8/ 

00124 

12* 

OEF )NE  INDEX) 1 , J) ■FLD)0, 1 8 . F < 1 , J ) ) 

00127 

12* 

DEFINE  N8)T)NBiWD|"FLD(34-tJB*l  i*D> 

00130 

12* 

include  gelcmn, list 

00130 

12* 

END 

00130 

12* 

gelcmn 

PROC 

*0131 

1 2* 

PARAHETE«  QLHAX-50 

• 0132 

1 2* 

PARAHETER  NGEL*5*RLMaX*|2*)8 

00133 

12* 

COMMON  /GEL  1 / XBUl«8LMAX ) .YBUL 10LMAX)  ,PBUl««UMAX) ,LMAX  ,T, 

00133 

1 2 • 

• 

I DUMP  • I PLOT • IEdI T 1 IStOP .Name  < 12 ) .SmaSS . iKHAX 

00133 

12* 

* 

, SMOM.UBuDQLHAX)  .VBUl<QlHAXJ 

00133 

12* 

• 

.ACC.GDT.SVEL.ulSP.VZtRO 

00133 

12* 

c 

00133 

12* 

END 

0013M 

13* 

COMMON/ VOL COM/NPT ,N1 .N2 , XPT I 1 00 1 . VPT  < 1 00  ) • 1 • J • S VOl 

0013* 

1 M • 

• 

.SaREA.XCENT.YCENT 

00138 

15* 

c##### 

•#*•  extrapolate  ro  FINq  ENTRY  POfM  (XF#yF)  for  CELL  CONTAINING 

00)  3*4 

l 4 • 

c####* 

••••  particle  no  i. 

00)35 

1 7 • 

K » 1 

00134 

1 •• 

CALL  CELL ( I «U , K ) 

00137 

It* 

IFUKCKt!  J-XK(K)  1 I00»  103  • 101 

001  M2 

20* 

100 

12-1 

00  M 3 

2 1 • 

N 1 ■ 3 

ooimm 

22* 

GO  TO  102 

00  1 MS 

23* 

101 

I2-I-I 

001M4 

2M  • 

N 1 ■ 1 

00  1 M 7 

25* 

102 

Yf-YIC  t K#l  )#(YK<K)-YK(K#1))  / C XK  I K ) »XIC  C Kt  1 ) ) • < XPL  (1  2 ) •XIC  ( K#  | ) ) 

0O1SO 

24* 

IF( YF.LT.YPLC J-l ) .OR. YF.GT.YPU J) |G0  TO  103 

00152 

27* 

XF#XPL<  12) 

0QIS3 

28* 

GO  TO  IQ6 

00ISM 

2 1 • 

103 

!FlYMK*l)*YKIK))|0*.107t|-N 

00  1 S 7 

30* 

105 

J2  ■ J 

00160 

31  • 

N | ■ 2 

00161 

32  * 

GO  TO  166 

00142 

33* 

IOM 

J2-J-I 

00143 

3 M • 

W 1 * M 

00  1 4 M 

3b» 

104 

XF»XkCK#il*CX»CCM-XKlK#|)  )/|fM<l-YXl**l  » l*<TpL<J2)-YK(K#|l) 

00165 

36* 

IF (XE  .GE*XHLi I-l  » #ANO« XF *LE **PL ( ! 1 IGO  TO  109 

00)47 

37* 

107 

returno 

00170 

38* 

109 

YF-YPL ( J2> 

00170 

39* 

c####* 

► ••••  STORE  COORDINATES  FOR  POINTS  1 AND  2. 

00171 

MO* 

106 

NPT#1 

00172 

Ml* 

XPT ( NPT ) ■ XF 

00173 

M2* 

YPT(NPT)#YF 

00  1 7 M 

M3* 

NP  T #2 

00175 

MM# 

APT (NPT | » X K < K > 

00176 

MS# 

YFT  ( NP  T 1 * Y iC  ( iC  1 

00176 

M6* 



>••••  FIND  cT.Lt  INDICES  lP.jp  rjR  PaRTICLE  NO.  <tl. 

CO  l 7 7 

M 7 ♦ 

1 1C 

CALL  CLL  L ( |P  . JP  • 11 

00177 

MR* 



r*##*  COMPARE  IP  Tu  l AND  J P TO  J. 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

•ooooo 

oooooo 

OOOOOO 

oooooo 

oooooo 

•ooooo 

OQOOOO 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

OOOOOO 

oooooo 

aooooi 

000.04 

000013 

000019 

•Q0017 

000021 

•00023 

000024 

ooOott 

000057 
000041 
000043 
000047 
0Q007I 
000073 
000075 
000077 
000102 
000| 15 
000|3<« 
000|34 
000134 

ooom 

OOOjHH 
000 ) 84 
000150 
000 | 53 

000  I 5S 
000155 
030  | 42 

000 1 AC 
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SUR vOL 


00200 

*4  9* 

1 1 1 

1F11P-Illl2.ll3.il** 

000  | 70 

00203 

so* 

1 12 

12*1-1 

300]73 

C0201 

51* 

N2*  I 

000174 

0020S 

52* 

00  TO  115 

000200 

00206 

53* 

I 13 

1F4 J.EO. JP1G0  TO  l 30 

000202 

00210 

5*4* 

GO  TO  117 

000201 

002)  1 

55* 

1 1 *4 

12*1 

000204 

00212 

56* 

N2*3 

000207 

00212 

57* 

C* 

>**••  JP  NOT  EQUAL  1.  CALCULATL  intersection  HIGH  cell  edge • 

000207 

00213 

58* 

1 15 

YF-YK(K*l>*(rK(»:)-YK(K*lM/(XK(K)«XK(K*n)*<XrL<l2)-XK(K*|)) 

000212 

00213 

59* 

c* 

»••••  IP  INTERSECTION  above  top  or  below  BOTTOM  of  cell,  GO  TO  1 I 7 

000212 

002 1 *1 

60* 

!F<YF.GT.YPLUI,Oh.YF,lt.YPL!J-II  IGO  TO  I 1 7 

00022. 

002 1 4 

61* 

NPT*NPT*I 

00021) 

00214 

62* 

c* 

STORE  INTERSECTION  POINT 

000213 

00217 

63* 

XPT ( MPT  J -XPL (12) 

000217 

C0220 

6*4* 

YPTCNPTl-YF 

0002S1 

00220 

65* 

c* 

»•*••  calculate  r lu i d volume. 

0002S  1 

00221 

66* 

call  celvol 

0002S3 

00221 

67* 

c* 

calculate  r l j i u mass. 

0002S  3 

00222 

68* 

IF  < Na  IT (SUR ,F i l,Jj)«EQ't)AHX(!  .J)«RHOZ*SVOL 

0002SS 

C0221 

69« 

ifinbitifull.fci.j) I.NE.l >gO  TO  1 M 1 

000271 

00224 

70* 

IF  < fcr*0<  1 1 J ) *GT  .nHuZ  )G0  TO  1*4  1 

000)01 

00230 

71* 

IF fNQ 1 T ( oe ,r ( I , J > ) .NE  . 1 ) AMX < 1 , J) *RhOZ*SVOl 

000)1) 

00232 

72* 

1*41 

CONTINUE 

000))) 

00232 

73* 

c« 

LAST  POINT  FUR  this  CELL  IS  ENTRY  POINT  FOR  NEXT  CELL 

000))) 

00233 

7*4* 

XPT1  l)-XPT(NPT) 

000))) 

0023H 

75* 

YPT ( 1 ) ■ YPT ( NPT ) 

00033S 

002  35 

74* 

NP  T • | 

000)37 

00236 

77* 

N 1 *N2 ♦ 2 

000)11 

00237 

78* 

Nl-MODCNI-l  # *4 ) ♦ 1 

000)11 

002*40 

79* 

1 F C 1 P • L T • 1 )G0  TO  116 

000)Si 

002  *4  2 

80* 

1-1*1 

0003SS 

002*4  3 

8 | • 

GO  TO  117 

000)40 

002*4*4 

8 2* 

1 16 

1-1-1 

000)42 

002*4  *4 

83* 

c* 

>••••  CUMPaRE  IP  Tu  1 AND  jp  To  J. 

000)42 

002HS 

8*4* 

1 1 7 

IF  4 JP-J)  116.119,120 

000)4S 

00250 

85* 

1 U 

J2» J-l 

000)70 

00251 

86* 

N 2 ■ *4 

000)7) 

C02S2 

87* 

GO  TO  121 

000)7S 

00253 

80* 

1 19 

1 F C IP-1 >1  1 l . 130, 1 1 1 

000)77 

00256 

89* 

120 

J2*  J 

00010) 

00257 

90* 

N2-2 

OOOlOl 

00257 

91* 

c « 

>••••  JP  NOT  EQUAL  J.  CALCULATE  I NTERSElT IoN  At  TOp  0«  BOTTOM. 

000401 

00260 

92* 

121 

XF-XK  U*I  1*1  AKIKl-XK  IK*I  1 1 / I YK  IK  )*YKlK»I  1 !•«  YPLJ  J21-YIC  IK*I  1 J 

000107 

00260 

93* 

c« 

>••••  IF  INTERSECTION  OUTSIDE  CELL  EDGE  GO  TO  Hft. 

000107 

00261 

9 *4  • 

IF (XF.LT  .XPLI I-l > .OR.XF.GT.XPL 1 1 I >60  TU  1 I I 

000122 

00263 

95* 

NPT*NPT* I 

000110 

00263 

96* 

c* 

STORE  POINT  WHERE  PARTICLE  STRINw  EX|T5  CELL. 

000110 

0026*4 

97* 

XPT  < NP T ) * X F 

000111 

00265 

9 8* 

YPT (NPT )-YPL  Cj2) 

000114 

00265 

99* 

c* 

CALCULATE  FLUID  VOLUME 

000114 

00266 

100* 

CALL  CtLVOL 

OOOlSO 

00266 

1CI  • 

c* 

calculate  fluio  mass 

OOOlSO 

03267 

102* 

IF  IN4I  T 1 SUR  ( I , J,  ) .tQ.  1 J *tlX  I I . J )«Km02*SVwL 

3C01S2 

ooe  »6*<* 


SURVOL 


0027| 

1 03  • 

1F(NU1 T (FULL.F ( l « J)  ) .NE, l >&0  TO  lM2 

00273 

IOM* 

l F ( R HO  t 1 »J).GT.RHuZ)GO  TO  )M2 

00275 

105* 

I F 1 Nfl 1 T ( 08 • F ( 1 • J ) ) • NE  • 1 ) A H X ( 1 .j)»Rh0Z*5V0l 

00277 

106* 

l M 2 

CONT 1NUE 

00277 

1 0 7 • 

C* 

>••••  ENTKT  POINT  to  NEXT  CELL  IS  EXIT  POInT  OF  THIS  CELL. 

00300 

108* 

XPT< 1 I-XPTINPTI 

00301 

109* 

TPT ( 1 I * YPT ( NPT ) 

00302 

110* 

NP  T ■ l 

00303 

111* 

N 1 -N2*2 

00304 

112* 

Nl-NODINI-l • 1 1 ♦ 1 

00305 

I 13* 

in jp.lt.jioo  to  122 

00307 

1 1M* 

J*J*1 

00310 

115* 

GO  TO  111 

003|1 

1 16* 

122 

J*  J*  1 

003|2 

l 17* 

GO  TO  III 

00312 

116* 

C« 

>••••  particles  k *nd  k*i  are  in  same  cell,  store  **i# 

00313 

1 |4» 

130 

NPT-NPT* 1 

00314 

120* 

XPTiNPT  )-XK(K*l  ) 

00315 

121* 

YPT1NPT  ) * Y K ( K ♦ 1 ) 

003|* 

122* 

IFtK.GE.KBARMlGO  TO  131 

00320 

123* 

K-K  ♦ 1 

00321 

1 2 M* 

GO  TO  1 10 

00321 

125* 

»••••  EXTRAPOLATE  TO  FIND  E X 1 1 POINT  F ON  CtLL  *1TH  LAST  PARTICLE. 

00322 

124* 

131 

IF(XK(K*l)-XK(K))l32il3M,|33 

00325 

127* 

132 

12-1*1 

0032* 

I 28* 

N2-1 

00327 

12?* 

GO  TO  135 

00330 

130* 

133 

12-1 

00331 

131  • 

N2-3 

00332 

1 32* 

135 

YF-YX(K;*l  )*(YK(K)-YK(K*l  ))/(  XX  (K).XK  U*l  ))•  tXPU  121-XK  (K*l  ) ) 

00333 

133* 

IF( YF.GT.YPL1 J) • Ok • YF.LT *YPt ( J-! ) IGO  TO  UM 

00335 

1 3M  • 

XF-XPLC  12) 

0033* 

135* 

GO  TO  1 MO 

00337 

136* 

1 3M 

1F(YK(K*1)~YK(K) ) } 36 1 139* 137 

00342 

137* 

136 

J2-J-I 

00343 

138* 

N2-M 

00344 

139* 

GO  TO  138 

00315 

\H0* 

137 

J2-J 

0034* 

1H1  • 

N 2 - 2 

00347 

1H2* 

1 38 

XF-XK(K*1)*(AIUKI-X*(K*|  ) )/lfK(i()»YX(<*l  1 I*(YPL(J2)-T,<'1K*1  ) ) 

00350 

1M3* 

1F(XF«GT#XPw1  1 ) .Oh.XF.LT  iAPK  l-l  ) | GO  Tu  Ij9 

00352 

l MM* 

YF-YPLU2) 

00353 

IMS* 

GO  TO  1 MO 

00354 

1 M 6 • 

139 

RETURNO 

00354 

1 M 7 • 

C' 

.....  STORE  EXIT  POINT. 

00355 

1 M 8 • 

1 M 0 

NPT-NP  T ♦ 1 

0035* 

1 H 9 • 

APT (NPT ) -XF 

00357 

150* 

TPT ( NPT) -yf 

00357 

151* 

c « 

► ••••  CALCULATE  V0l.U"E  and  mass. 

C0360 

152* 

call  celvol 

0036  1 

153* 

IF  * NB  m SUK  |F  l 1 , J 1 ) *LV  • 1 ) A ,1*  : I 1 J svul 

003*3 

1 5M  • 

I F ( N u I r (FUlL.F  (Z.j))*  *!  . 1 ) G 3 Tu  * 

003*5 

155* 

1 FI  ft  M 0 i I . J ) . G T • P H 0 i * G TO  Mi 

003*7 

156* 

iFfNdl  Hio.rii  |J|  i . E * I ;A  X t I ,j)»wnuZ*aVOi 

000471 
anOboi 
OOOblO 
OOOb  3 0 
000530 
0Q0S30 
000632 
000531 
00063* 
00061 1 
00061* 
000652 
0006S5 
0006S7 
0006*1 
0006*1 
0005*3 
0005*5 
000671 
000673 
000677 
000602 
000*02 
000*01 
000*10 
•00*13 
000*15 
000*17 
•00*20 
000*23 
000*3* 
000*54 
000*5* 
000**0 
000**1 
000**7 
000*71 
000673 
000671 
000677 
000712 
000730 
000732 
000731 
000734 
00073* 
000741 
000743 
000743 
000745 
000747 
OO076* 
00077* 
001005 


h 


00371 

C0372 

00373 


lS7« 

158* 

!S9« 


i h 3 continue: 

RETURN 

END 


END  OF  COMPILATION; 


NO  DIAGNOSTICS. 


SHOG 


S U ft  1/  0 L 


001025 

001025 

0010M7 


NOROM 
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BFOR,S  *DKUH 

for  sE2c-o?/i?/7s-a9!9o:39  <d»i 


WORUM 


SUBROUTINE  r-ORUM  ENTRT  point  »OOC3o 


STORAGE  USED:  CODE! I > 000090;  OATACO)  G003I9;  blank  C0MM0N(2)  oooooo 

COMMON  BLOCKS: 

0003  ARRAYS  IOCISI 
OOUH  PARAMS  C00073 
OOOS  GELl  000921 


EXTERNAL  REFERENCES  CBLOCK,  NAME) 

0006  nTnan 

0007  NERR3* 


STORAGE  ASSIGNMENT  I6L0CK,  TYPE,  RELATIVE  LOCATION,  NAHEI 


0003 

077773 

AA 

0005 

0D09|7 

ACC 

0003 

076739 

AFOB 

0003 

075605 

AlN 

0009 

0000  IS 

AP 

OOO4* 

00001 1 

AS 

0003 

075667 

BEN 

0009 

000019 

BETA 

0009 

000016 

BP 

OOOH 

000035 

BQ 

0003 

100106 

CO 

0009 

000036 

CK 

0009 

000072 

OELZZ 

0005 

000922 

DISP 

000* 

000307 

DT 

0009 

000023 

DTCP 

0009 

00002S 

DTP 

0003 

07  97  l 6 

OX 

OC  33 

079757 

OXP 

0003 

075272 

OY 

0009 

1 000002 

EmP 

000  H 

000031 

EPS 

0003 

] 061235 

F 

0009 

I 

000009 

FAK 

0003 

077792 

FF 

0003 

100029 

ffaa 

0003 

076115 

FL 

0003 

076177 

FR 

0009 

I OOOOOO 

FULL 

0003 

020337 

FX 

0003 

025729 

FY 

0009 

0000 1 0 

G 

0009 

OCOCI3 

hMU 

OOOM 

C00055 

ICR 

JC03 

077162 

ICRaCK 

OOOS 

000230 

IDUMP 

0009 

00C0S7 

1 JMaa 

0305 

000251 

I K H A X 

DOJM 

000360 

ikmaxp 

0003 

077519 

1 HAS 

0009 

000096 

liAXrt 

0000 

OuOOlO 

JNJPS 

CC^.5 

o: 3231 

I PLOT 

0009 

000063 

I SEP 

OOOS 

000233 

l ST  OP 

000^ 

3tiCUS6 

JCR 

0003 

07/307 

JC*ACK 

0003 

077576 

JMAS 

0009 

000097 

jMAXm 

0 COM 

20C369 

J SEP 

ZZ  0** 

?2?35 | 

KBAP 

0009 

000052 

KBARH 

OOUS 

000226 

lmax 

C3007G 

Mflh  A A 

cL-5 

OOt’UH 

NA*t 

0009 

000059 

NCYC 

0009 

0G0C6  7 

Nfjfi  A A 

OCCH  1 

| 2000C5 

Ob 

; h 

OSuU06 

OBF  Ut- 

0003 

0536»0 

P 

OOOS 

000199 

PbUL 

000327 

P M * f« 

O J J 

07/014 

POB 

0303 

079553 

R 

0003 

07657  1 

hhOVt} 

OOuS 

0301 1 2 

K nO  Z 

OC-J 

C7  hoSB 

ti?L 

0009 

000033 

SHEN 

OOOS 

000250 

SMASa 

00 

000252 

5*0* 

uCuH 

300i»3H 

SPEN 

0009 

I 

00000 1 

SUR 

0003 

033311 

51  1 

0C03 

09C676 

S 1 3 

US03 

0H4243 

S3  3 

OOOS 

000227 

T 

0009 

000022 

TCP 

OCOH 

000020 

T DUMP 

OOOM 

OOOUI7 

tlast 

0009 

000029 

TP 

0009 

000026 

TTOTAL 

0003 

076632 

TUB 

w0u3 

076673 

T 3 3b 

0003 

R 

OOOOOO 

U 

0009 

000093 

ucrack 

0003 

077350 

UOB 

0003 

305J45 

V 

OOOS 

000335 

V BUL 

0003 

077932 

v Ob 

OOJM 

C00030 

VSCALF 

0033 

I OOjSc, 

vV 

0303 

100137 

VVV 

0003 

0 7 9S 1 2 

X 

0003 

075751 

XB 

0C35 

OOOJOC 

XBUL 

0003 

077100 

X C T 

0003 

0796  1 9 

X PL 

OOOH 

0 3003  7 

XP  I 

COO  M 

3300M0 

XP2 

0009 

000065 

XSEP 

0003 

076033 

Yfr 

L 005 

C0CC62 

tb’ul 

JC  0 3 

076507 

i CT 

0003 

07  15S6 

TIC 

0009 

00009 1 

It  1 

03^ 

«k.0:»t2 

YP2 

OCOM 

300066 

tsep 

0003 

0777|  1 

zz 

0003  012752  AHX 


0009  I 000*03  »ND 
0009  000032  COHpEN 

0009  000021  DtOuHP 


0003 

0003 

0003 

0005 

0005 

O009 

0000 

0009 

0009 


0759*7  OYP 
076393  FB 
076261  FT 
000920  GOT 
000232  I ED  I T 
000099  IMA* 
OOOOOI  ISTaT 
000095  UMAX 
003050  KMAX 


3009 

0003S3 

NOUmP 

0030 

I 

oooooo 

part 

0009 

I 

000062 

REV 

0009 

I 

000061 

shall 

OOOS 

000921 

SVEL 

0003 

0*5599 

TAU 

0003 

077660 

TT 

OOOS 

000253 

ubul 

0003 

076925 

vfob 

OOOS 

000923 

VZERO 

0003 

066622 

XK 

0003  075020  Y 

0003  075195  YPL 

0009  000071  ZZPRT 
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#1>RUM 


OOIOI 

1 • 

SUBROUTINE  WDRUH 

000000 

00103 

2 • 

INCLUDE  COM, LIST 

000000 

00103 

2* 

COM» 

PROC 

000000 

00I0R 

2* 

PARAMETER  1 0*33  ,J0*8s 

*KO*lSoO 

,ND*i2  ,iJD»SO 

000000 

00105 

2 • 

parameter  ld-iso  »NNDlM*?5 

,MMDIH-I0 

000000 

00106 

2 • 

parameter  narr*io«id»jd^i t jd#i 7« i jo^2*ko^7«nndim4Mmd 

IM 

000000 

00107 

2® 

PARAMETER  NPAR-59 

000000 

001 10 

2* 

COHMON/aRRAYS/U(Io.JD) 

*V(  ID.JDl 

, A hX| Id, JO) 

oooooo 

001 10 

2# 

•FX!lO,JD>  .FYljD.JD) 

• S 1 1 ( 1 D . J J « , S I 3 1 Id  , JO  ) 

000000 

001 10 

2* 

• S3  3 1 1 0 • JO  1 .P(IUiJO) 

.Ft  10,  JDI 

•XkIKDi 

OOOOOO 

001 10 

2 • 

• YK(KO)  . X ( 1 u 1 

,R( ID) 

• XPLUo) 

flobooo 

001 10 

2* 

• RPLUD)  *0X1  | D 1 

,DXP( ID) 

,ri jd) 

OOOOOO 

001  10 

2* 

•YPL(JO)  .0Y1J0I 

•DYPt JD) 

.TaUIID) 

ootooo 

001  10 

2* 

•ALNIIJO)  .BEN(IJD) 

• X 6 t 1 JD) 

.YbUJd) 

oooooo 

001  10 

2 • 

• ELI  I JD ) ,Frl|J0l 

.FT! | JD) 

• FBI  1 JO) 

Oooooo 

001  10 

2^ 

• VF0B11JD)  • Yf  T ( 1 JO ) 

• RHOVi 1 10  1 

* T 1 3B 1 | D | 

oooooo 

001  10 

2* 

•T33B110)  .ArOytlJD) 

• POB ( I JD) 

,XCTI 1 JD) 

oooooo 

001  10 

2 • 

• 1 CRACK  ( JO  ) .JCKaCMIO) 

• UOB ( | JD) 

•V0B4 1 JD) 

oooooo 

001  10 

2* 

•INAS(IJO)  .JMASIIJD) 

•TT (NN01M) 

>ZZ(NNolM) 

oooooo 

001  10 

2« 

•FFINNDIMI  , A A ( i.ND  1 M ) 

,FFAA(nND1mI  .VVINNqIM) 

oooooo 

001  10 

2 • 

• CDINND1MI  * V V V * HMD  1 M | 

000009 

001 1 1 

2^ 

common/params/  FULL 

• sup 

,EMP  *BN0 

• fak  , 

oooooo 

001  1 1 

2^ 

•OB  .OflFUL  *0T 

• G 

.AS  .RHOZ 

,HHU  I 

oooooo 

001  11 

2* 

• BETA  * AP  • BP 

•TLAST 

.TDUNP  .DTDUMP 

• TCP  • 

oooooo 

2?  OOlll 

2^ 

• DTCP  * TP  « OTP 

•ttotal 

,P*|N  i VSCALE 

• EPS  , 

oooooo 

■2  ooiii 

2* 

• COMPEN  * SHEN  . 5PEN 

iIQ 

, CK  .XFI 

• XP2  , 

oooooo 

® OOlll 

2* 

•YP|  ,YP2  .UCRACK 

• I M A X 

.JNaX  , J M AXM 

•JMAXM  , 

OQOOOO 

g Oom 

2* 

• KHAX  * KB AR  iKBARM 

•NDUMP 

,NCYC  .ICR 

• JCR  i 

OOOOOO 

u OOlll 

2* 

• UMAX  * | KMAXP  .SMAtL 

• REV 

,1S£P  i J5EP 

•XSEP  i 

oodooo 

ooii  i 

2^ 

•YSEP  .NNMAX  ,MMMAX 

, ZZPRT 

.DCLZZ 

OOOOOO 

00112 

2« 

INTEGER  F ,08  (FULL 

• SUR 

•EHP  .bND 

• FAK 

ooOooo 

00112 

2* 

• .PART  .SIIALt  ,REV 

oooooo 

001  1 3 

2# 

DATA  FOLL/I/SUR/H/EMP/7/BM0/1O/FAK/13/UB/16/PAHT/S/ 

oooooo 

00123 

2* 

DATA  REV/I5/SMALL/IH/ 

ooOooo 

00 1 26 

2* 

DEFINE  INDEX! I iJIbFLDIO, I8*F I 1 *JI  I 

oooooo 

00127 

2* 

DEFINE  NBIT(NB*«0|«FLD(36-NB 

, l ,*u) 

oooooo 

00130 

2* 

include  gelcmn.ust 

oooooo 

00130 

2* 

END 

oooooo 

00130 

2 • 

6ELCMN  PROC 

oooooo 

00131 

2 • 

PARAMETER  gLMAX-Sj 

oooooo 

00132 

2 • 

parameter  NGEL*6«gLMAXM2*iM 

OOOOOO 

00133 

2® 

COMMON  /GEL  1 / XBUL18LMAX ) .YBUL(OLMAX)  , 

PBULlQLMAX) .lmax.t, 

oooooo 

00133 

2 • 

. IDUMP  * 1PL0T  * |L  j 1 T , IST0P,NAHEl IT)  ,SmaSS* |K«aX 

OoOoOO 

00133 

2* 

• . SM0M.UBUL1QLMAA) .VBUL (QlMAX 1 

oooooo 

00133 

2* 

• , acc, got ,svel iu isp, v zero 

oooooo 

00133 

2« 

c 

oooooo 

00133 

2« 

END 

oooooo 

001  31 

3» 

CALL  NTRANU  1 ,IOti  .NPAR.EULL 

,ISTaT) 

oooooo 

00135 

CALL  NTRANt 1 1 ,22) 

000007 

00136 

5* 

CALL  NTRAN (11 , 1 ,NARR,U • iSTaT ) 

000013 

00137 

*• 

CALL  NTRANt | | ,22) 

000022 

OOIRO 

7 • 

return 

030026 

OCltl 

8* 

END 

000037 
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9 


f 


»PRT  ,T 

FURPUR  R125-09/19-o9:3H 

*1LK 1N5-D* TPF % l lEHENT  TABLE 


o name:  version 

GEL 

GEL 

GELCMN 

LYNX 

lynx 
CHAIN 
CGEN 
BOUND 
BOUND 
CALCA 
CALCA 
CEOIT 
CEO  l T 

CPLOT 
CPLOT 
ERROR 
ERROR 
GED1T 
GED1T 
GEN 
GEN 
GEN! 

GEN  I 
GRID 
GRIO 
KREAD 
kread 
KRRITE 
KKRITE 
LGRAN 
LGRAN 

linput 

LINPUT 
HM  X COM 

mmxcom 
motion 
MOT  ION 
PN 
PN 

RELAX 
RELAX 
RESTAR 
RESTaR 
SCALC 
5CALC 
SET 
SET 

state 


TYPE 

DATf 

FOR  SYMB 

19 

SEP 

7 9 

relocatable 

19 

SEP 

79 

FOR  PROC 

06 

OEC 

7 9 

FOR  SYMd 

06 

DEC 

79 

relocatable 

06 

DEC 

79 

FOR  PROC 

06 

DEC 

79 

FOR  PROC 

06 

DEC 

79 

FOR  SYMB 

06 

DEC 

79 

relocatable 

06 

OEC 

79 

FOR  SYMB 

06 

OEC 

79 

RELOCATABLE 

06 

DEC 

79 

FOR  SYMB 

06 

OEC 

79 

RELOCATABLE 

06 

DEC 

79 

FOR  SYMb 

06 

OEC 

79 

RELCCATadLl 

06 

OEC 

79 

fOR  SYHb 

06 

dec 

79 

relocatable 

i>6 

DEC 

79 

FOR  SYMB 

06 

dec 

79 

relocatable 

06 

DEC 

79 

FOR  SYMB 

06 

DEC 

79 

relocatable 

06 

DEC 

79 

FOR  SYMB 

06 

DEC 

79 

relocatable 

06 

dec 

79 

FOR  SYMB 

06 

dec 

79 

relocatable 

06 

DEC 

79 

FOR  SYMB 

06 

dec 

79 

relocatable 

06 

DEC 

79 

FUR  SYMb 

J6 

DEC 

79 

NELOCAT A&Lt 

06 

OEC 

79 

FUR  SYMB 

06 

DEC 

79 

RELOCAT  afLE 

06 

DEC 

79 

FOR  SYMB 

06 

DEC 

79 

RELOCATABLE 

06 

DEC 

79 

FOR  SYMo 

06 

OEC 

79 

RELOCAT ALLL 

G6 

OEC 

79 

FOR  SYMb 

06 

DEC 

79 

relocatable 

06 

OEC 

79 

FOR  SYMB 

06 

DEC 

79 

RELOCATADLt 

06 

OEC 

79 

FOR  SYMB 

06 

DEC 

79 

RELOCATADLt 

06 

OEC 

79 

FOR  SYMB 

06 

DEC 

79 

RELQCATABLc 

06 

DEC 

79 

FOR  SYMB 

06 

DEC 

79 

RELOCATABLE 

06 

DEC 

79 

FUR  S Y Mu 

U 6 

dec 

79 

RELOCATABLE 

06 

OEC 

79 

FOR  SYMn 

06 

DEC 

79 

T |Ht 

SEQ  « 

S12E-PRE 

|TE*T 

KYCLE 

N0R9)  PSRHqOE  LOCATION 

I i :s» :o3 

l 

7 

5 

0 1 

1792 

1 1 : : o** 

z 

2 

6 

179? 

13:35:55 

3 

3 

1 

0 1 

1809 

13235:58 

9 

7 

5 

0 1 

1812 

13:35:58 

s 

2 

8 

1819 

I3;3ilo0 

4 

20 

1 

0 1 

182? 

13:38:01 

7 

9 

l 

0 1 

1899 

13:3*201 

8 

39 

5 

0 1 

1853 

ij:3*:oh 

9 

3 

14 

1892 

13:36:05 

10 

20 

5 

0 1 

1911 

1 3:3* ;u7 

1 1 

2 

16 

1931 

13236:08 

12 

19 

b 

0 1 

199? 

1 3 :3* :q8 

13 

2 

10 

1943 

13:36:  10 

19 

9 

s 

0 1 

197S 

13236:12 

IS 

2 

13 

1989 

is:  36:  »3 

14 

2 

5 

0 I 

199? 

13:36:13 

17 

2 

2 

2801 

13:36:15 

18 

8 

5 

0 1 

2005 

13:36:1* 

19 

2 

9 

2013 

13136217 

20 

49 

5 

0 1 

2029 

13:36:20 

21 

3 

SI 

2093 

13:36:22 

22 

63 

5 

0 I 

2197 

13:36:25 

23 

3 

38 

2210 

13:36:26 

29 

36 

5 

0 1 

2251 

13:36:28 

2S 

3 

27 

2287 

13:3*: jo 

24 

9 

5 

0 1 

2317 

13:36:30 

27 

2 

2 

2321 

i3:36:ji 

28 

9 

s 

0 1 

2325 

13:36: J2 

29 

2 

2 

232? 

13:3*: j3 

30 

15 

5 

0 1 

2333 

13:36:38 

31 

3 

17 

2398 

13:36236 

32 

7 

5 

0 1 

2368 

13236237 

33 

3 

8 

2375 

13:3*238 

39 

6 

5 

0 1 

2386 

13:36:39 

35 

2 

s 

2392 

13:36:90 

34 

121 

5 

0 1 

239? 

13236:96 

37 

2 

55 

2520 

13:36:99 

38 

3 

5 

0 1 

2577 

13:36:50 

39 

2 

3 

2580 

13:36:52 

90 

59 

5 

0 1 

2585 

13:36:57 

*1 

3 

49 

2699 

13:36:58 

92 

16 

5 

0 1 

2711 

i3:37:oo 

93 

2 

1 1 

2727 

i3*.37:oi 

99 

59 

5 

0 | 

2790 

I3:37:u6 

95 

3 

52 

2799 

13:37: J7 

94 

10 

5 

0 I 

2899 

13:37:09 

97 

2 

6 

2859 

i3:37:io 

98 

5 

5 

0 1 

2867 

Page  306 


STaTC 

Rt'LOCATAOLE 

C 6 

DEC 

7*4 

1 3: 37;  1 1 

ZONE 

FOR  SYMB 

06 

DEC 

7*4 

13:37: t3 

ZONE 

RELOCATADLl 

06 

OEC 

7*4 

13:37:  i? 

CON 

for  proc 

06 

DEC 

7*4 

13:37:^6 

ACCEL 

FUR  SYMB 

06 

DEC 

7*4 

» j : 3 7 ; ^ 7 

ACCEL 

RELOCATADLt 

06 

DEC 

7 *♦ 

I3:37:ie 

areas 

FOR  SYMb 

06 

DEC 

7*4 

i 3 : 37 : jo 

AREAS 

RELOCATABLE 

06 

DEC 

7*4 

13:37:32 

ARHO 

FOR  SYMb 

06 

DEC 

7*4 

13:37: 33 

ARHO 

RELOCATABLE 

06 

DEC 

7*4 

13:37:3** 

AVIS 

FOR  SYMB 

06 

DEC 

7*4 

13:37:35 

AVIS 

relocatable 

u6 

DEC 

7*4 

13:37:38 

BNOCCL 

FOR  SYMB 

06 

DEC 

7*4 

13:37:31 

bndcel 

REIOCAT  ApLt 

06 

DEC 

7*4 

13:37 : *to 

bnosth 

FOR  SYMB 

06 

DEC 

7*4 

1 3t37:t2 

bndstr 

RELOCAT  Af4LL 

06 

DEC 

7*4 

1 3 : 37 : -*3 

bounds 

FOR  SYMb 

C 6 

DEC 

7*4 

I j:37  :**5 

BOUNDS 

RELOCAT ABEE 

06 

OEC 

7*4 

1 1 :37 :*u 

CDT 

FOR  SYMB 

06 

DEC 

7M 

13:37:*** 

COT 

RELOCATABLE 

04 

DEC 

7*4 

13:37;**$ 

CELL 

FOR  SYMB 

06 

DEC 

7*4 

i3*.37: 5 j 

CELL 

RELOCATABLE 

0* 

OEC 

7*4 

13537:52 

CELVOL 

FOR  SYMB 

06 

DEC 

7*4 

i 3 : 37 ; 5* 

CELVOL 

relocatable 

J6 

DEC 

7 *4 

13:37:58 

CEXIT 

FOR  SYMB 

06 

DEC 

7*4 

13:38:03 

CEXIT 

RELOCATABLE 

06 

OEC 

7*4 

i3:38:oi 

CPR INT 

FOR  SYMB 

06 

• EC 

7*4 

n:38:  io 

CPRINT 

RELOCATABLE 

06 

DEC 

7*4 

>3:38:13 

CRACK 

FOR  STMB 

06 

DEC 

7*4 

I3:38:t5 

CRACK 

relocatable 

06 

DEC 

7*4 

13:38:18 

CREATE 

FOR  SYMB 

06 

DEC 

7*4 

n:38:20 

CREATE 

relocatable 

06 

OEC 

7*4 

13138:22 

OlRCOS 

FOR  SYMB 

06 

DEC 

7 *t 

*3:38:2*1 

dircos 

relocatable 

06 

DEC 

7H 

13:36:26 

DUMP 

for  symb 

06 

i)EC 

7* 

*3:38:27 

DUMP 

PELOCATARLc 

J 6 

DEC 

7*4 

1 3 : 3 8 : 2 » 

EDIT 

FOR  SYMB 

Oh 

DEC 

7*4 

1 3 • 38  ; J 1 

EDIT 

relocatable 

Oh 

DEC 

;i 

*3: 38JJ* 

E INPUT 

FOR  SYMB 

0 6 

DEC 

7*4 

l3:38:*o 

einput 

RELCCATABLt 

l 6 

OEC 

7*4 

4 3 : 3 8 : « i 

ENPLT 

FOR  SYMB 

u d 

DEC 

7i 

13:38:  *is 

ENPLT 

relocatable 

Oo 

DEC 

7*4 

1 3 : 38 : *«7 

EULER 

FOR  SYMB 

06 

PEC 

7*4 

I3:36:ii 

EULER 

relocatable 

06 

DEC 

7*4 

13:38:50 

FLUID 

FOR  SYMb 

06 

DEC 

7*4 

I3:ja:5i 

FLUID 

RELOCAT AlLe 

06 

DEC 

7*4 

13:38:51 

INTER 

FOR  SYMB 

06 

DEC 

7 *4 

13:38:55 

inter 

relocatable 

06 

OEC 

7*4 

13:38:57 

lcell 

FOR  5TM0 

06 

DEC 

7*4 

13:38:58 

lcell 

RLLOCaT Ap lE 

J6 

PEC 

7*« 

13: 39;j0 

NASS 

FUR  SYMB 

06 

OEC 

7-4 

1 » : 39 :d2 

HASS 

K E L 0 C A T AliLc. 

06 

LtC 

7-1 

1 3 : 19 : ■.*' 

J-ESh 

FOR  STMB 

06 

ru 

7i 

i 3 : 3» ; 1 2 

NFSm 

«ELOC aTAt Lu 

">6 

'E  C 

7t 

i 


*49 

2 

*4 

2872 

so 

120 

5 

0 1 

2878 

S| 

3 

6 4 

2998 

52 

11 

1 

C 1 

3065 

S3 

i 

5 

0 1 

3079 

S *4 

2 

7 

308« 

ss 

21 

5 

0 1 

3097 

56 

2 

16 

31  18 

S7 

8 

5 

0 1 

31*6 

SB 

2 

6 

31*4*4 

S9 

25 

5 

0 I 

3152 

6§ 

2 

25 

3177 

61 

13 

5 

0 1 

320*4 

62 

2 

1 1 

3217 

63 

9 

5 

0 1 

3230 

6*4 

2 

6 

3239 

6 S 

6 

5 

0 1 

32*7 

66 

2 

b 

3253 

67 

13 

5 

0 1 

3260 

68 

2 

13 

3273 

69 

• 

5 

0 1 

3288 

70 

2 

8 

3294 

71 

2*4 

S 

0 1 

3306 

72 

2 

1*4 

33*0 

73 

18 

s 

0 1 

33R4 

7*4 

2 

20 

336*4 

75 

18 

s 

0 1 

3386 

76 

2 

19 

3*40*4 

77 

15 

5 

0 1 

3*425 

7 • 

2 

1 1 

3*4*0 

79 

19 

5 

0 1 

3*453 

80 

2 

1*4 

3*472 

• 1 

3 

5 

0 1 

3*188 

82 

l 

3 

3*491 

63 

5 

5 

0 1 

3*495 

8 *4 

2 

3 

3500 

85 

22 

5 

0 I 

3505 

86 

2 

19 

3527 

b; 

i ; 

5 

0 1 

35*48 

88 

3 

1 b 

3565 

89 

10 

5 

0 1 

3583 

90 

2 

8 

3593 

91 

1 *4 

5 

0 1 

3603 

92 

3 

*4 

3617 

93 

18 

5 

0 1 

362*4 

9*4 

2 

17 

36*42 

95 

9 

S 

0 1 

3661 

96 

1 

13 

3670 

97 

8 

5 

0 1 

368*4 

98 

2 

8 

3692 

99 

1 7 

5 

0 1 

3702 

r DO 

2 

16 

3719 

I 01 

20 

S 

0 1 

3737 

102 

2 

22 

3757 
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0 


move 

FOR  SYMB 

06 

dec 

7 9 

MOVE 

RELOCATABLE 

04 

DEC 

71 

obcel 

FOR  SYMB 

06 

DEC 

79 

OBCEL 

RELOCATABLE 

C 6 

dec 

79 

OBPRT 

FOR  SYMB 

06 

DEC 

7 i 

obprt 

RELOCATAOLt 

06 

9EC 

71 

08VEL 

for  symb 

06 

DEC 

79 

OBVEL 

RELOCATABLE 

06 

DEC 

79 

OFF 

FOR  SYMB 

04 

BEC 

79 

OFF 

RELOCATAOLt 

06 

DEC 

79 

ON 

FOR  5 Y MB 

06 

BE  C 

79 

ON 

RELOCATABLE 

04 

DEC 

79 

PF1T 

FOR  SYMB 

06 

dec 

79 

PF1T 

RELOCATAOLt 

04 

dec 

79 

PHASE1 

FOR  SYMB 

06 

dec 

79 

phasei 

RELOCATAOLt 

06 

dec 

79 

PHASE2 

FOR  SYMB 

04 

dec 

71 

PHASE2 

relocatable 

06 

DEC 

79 

PHASE3 

FOR  SYMB 

06 

DEC 

79 

PHASE3 

RELOCATAOLt 

06 

DEC 

79 

PPRES 

FOR  SYMB 

06 

DEC 

79 

PPRES 

RELOCATAOLt 

04 

DEC 

7 i 

pRES 

FOR  SYMB 

06 

DEC 

79 

PRES 

relocatable 

04 

dec 

79 

PRESET 

for  symb 

04 

8EC 

79 

PRESET 

relocatable 

06 

DEC 

79 

PRO 

FOR  SYMB 

06 

DEC 

79 

PRO 

relocatable 

04 

DEC 

79 

PRPLT 

FOR  SYMB 

06 

DEC 

79 

PRPLT 

relocatable 

04 

DEC 

79 

RORUH 

FOR  SYMB 

06 

DEC 

79 

RORUM 

relocatable 

06 

DEC 

79 

reflag 

for  SYMB 

06 

dec 

79 

REFLAG 

RELOCATABLE 

06 

DEC 

79 

REFLCT 

fOR  SYMB 

06 

dec 

79 

reflct 

RELOCATAOLt 

06 

dec 

79 

REPRO 

FOR  SYMB 

06 

DEC 

79 

repro 

RELOCATAOLt 

06 

OEC 

79 

reset 

FOR  SYMB 

06 

DEC 

79 

RESET 

RELOCATAOLt 

06 

DEC 

79 

RESTRT 

for  symb 

06 

DEC 

79 

restrt 

RELOCATABLE 

06 

DEC 

79 

RHO 

for  SYMB 

06 

DEC 

79 

RHO 

relocatable 

06 

DEC 

79 

SCELLS 

for  symb 

06 

DEC 

79 

5CELL5 

RELOCATABLE 

06 

DEC 

79 

setplt 

FOR  SYMB 

06 

dec 

79 

setplt 

RELOCATABLE 

06 

OEC 

79 

SHIFT 

FOR  SYMB 

06 

dec 

79 

SHIFT 

relocatable 

06 

DEC 

79 

SMCELL 

FOR  5 Y MB 

06 

DEC 

79 

SMCELL 

RELOCATAl.Lt 

06 

DEC 

79 

SMMAS 

FOR  5Y M* 

06 

DEC 

79 

SMMAS 

relocatable 

06 

DEC 

7 1 

3:39;  1 6 
3:39:22 
3 : 39 ; 23 
3:39:26 
13:39:28 
13:39; ji 
13:39:33 
13:39:35 
1 3 : 39 ; j7 
13:39:38 
i3:39:**i 
13:39:95 
13:39:98 
13:39:50 
13:39:52 
13:39:57 
13:39:59 
13:90:06 
13190: | 1 

13:90: ia 

13:90:20 

13:90:2S 

13:90:30 

13:90:35 

ii:9o:37 

13190:92 

13:90194 

i3:9i : os 

13:91 :07 
13191 :09 
13:91 : 10 
13:91 ; 12 
13:91 : <3 
13191 :2 2 
13:91 :27 
13:91 :29 
13:91533 
13:91 ; 39 
13:91190 
13:91 : 93 
13:91:95 
i3:9i 197 
13192:06 
13:92:07 
13:92115 
13:92: 1 8 
13:92:27 
13192:30 
13:92:33 
13:92:34 
13:92139 
13192:93 
13192:^7 

i3:92:5o 


103 

109  2 

105 

106  2 

107 

108  2 
| 09 

110  2 

1 1 1 

112  1 

113 

119  1 

115 

114  1 

117 

118  2 

119 

1 20  2 
121 

122  2 

123 

1 2 9 2 

125 

126  2 

127 

128  2 

129 

130  3 
1*1 

132  2 

133 

139  2 

135 

136  2 

137 

138  2 

139 

190  2 

191 

1 42  2 

193 

199  2 

195 

196  2 

197 

198  2 

199 

150  2 

151 

152  2 
1 5 3 

1 5 9 2 

1 55 

156  2 


26  5 0 

29 

9 5 0 

12 

19  5 0 

21 

5 5 0 

6 

3 5 0 

2 

19  5 0 

5 

3 5 0 

6 

16  S 0 

17 

21  5 0 

20 

20  5 0 

19 

14  5 0 

19 

17  5 0 

17 

7 5 0 

6 

57  5 0 

49 

10  5 0 

16 

2 5 0 

9 

29  5 0 

29 

9 5 0 

6 

9 5 0 

13 

|9  5 0 

13 

8 5 0 

5 

8 5 0 

5 

8 5 0 

11 

11  5 0 

9 

16  5 0 

19 

3 5 0 

6 

5 5 0 

9 


378  J 
3807 
3838 

3897 
3841 
3875 

3898 
3903 
3911 
3919 
3917 
3931 
3937 
3990 
3997 
3963 
3982 
9003 
9025 
9095 
9066 
9082 
9103 
9120 
9139 
9194 
9 1 §9 
9211 
9278 
9288 
9304 
9308 
93 1 9 
9338 
9349 
9378 
9386 
9395 
99  10 
992M 
9939 
9997 
9959 
9942 
9949 
99>7 
9990 
9501 
9512 
9528 
9599 
9597 
9555 
9560 


splots 

FOR  SYMb 

>j  6 

DEC 

79 

SPLOTb 

RELOCATABLE 

u 6 

oec 

79 

SPOIUT 

FOR  SYMB 

J6 

DEC 

74 

SPOINT 

RLLCCATATLc 

06 

DEC 

7 9 

STRESS 

FOR  SYMb 

u 6 

OEC 

74 
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